59 CHARACTER*128 bort_str
64 IF(lunit.LE.0 .OR. lunit.GT.99) goto 900
77 IF(abs(iolun(i)).EQ.lunit) lun = i
86 IF(iolun(i).EQ.0)
THEN
106 il = sign(1,iolun(lun))
113 900
WRITE(bort_str,
'("BUFRLIB: STATUS - INPUT UNIT NUMBER (",I3,") '//
114 .
'OUTSIDE LEGAL RANGE OF 1-99")') lunit
subroutine status(LUNIT, LUN, IL, IM)
This subroutine checks whether a specified Fortran logical unit number is currently connected to the ...
subroutine bort(STR)
This subroutine calls subroutine errwrt() to log an error message, then calls subroutine bort_exit() ...