abor1.F90 Source File

SUBROUTINE ABOR1(CDTEXT)

IMPLICIT NONE

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

print*,'ABOR1 CALLED',CDTEXT

return
end SUBROUTINE ABOR1