INTERFACE
SUBROUTINE ABOR1(CDTEXT)
CHARACTER(LEN=*) :: CDTEXT
END SUBROUTINE ABOR1
END INTERFACE