SUBROUTINE ABOR1(CDTEXT) IMPLICIT NONE CHARACTER(LEN=*), INTENT(IN) :: CDTEXT print*,'ABOR1 CALLED',CDTEXT return end SUBROUTINE ABOR1