abor1.F90

Go to the documentation of this file.

SUBROUTINE abor1(CDTEXT)

IMPLICIT NONE

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

print*,'ABOR1 CALLED',cdtext

return
end