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