SUBROUTINE ABOR1(CDTEXT)

IMPLICIT NONE

CHARACTER(LEN=*), INTENT(IN) :: CDTEXT

print*,'ABOR1 CALLED',CDTEXT

return
end