56 CHARACTER*128 bort_str
64 IF(lunit.LE.0) goto 900
65 IF(lun .LE.0) goto 901
66 IF(il.LT.-1 .OR. il.GT.1) goto 902
67 IF(im.LT. 0 .OR. im.GT.1) goto 903
72 IF(abs(iolun(lun)).NE.lunit)
THEN
73 IF(iolun(lun).NE.0) goto 905
80 iolun(lun) = sign(lunit,il)
91 900
WRITE(bort_str,
'("BUFRLIB: WTSTAT - INVALID UNIT NUMBER PASSED '//
92 .
' INTO FIRST ARGUMENT (INPUT) (=",I3,")")') lunit
94 901
WRITE(bort_str,
'("BUFRLIB: WTSTAT - INVALID I/O STREAM INDEX '//
95 .
'PASSED INTO SECOND ARGUMENT (INPUT) (=",I3,")")') lun
97 902
WRITE(bort_str,
'("BUFRLIB: WTSTAT - INVALID LOGICAL UNIT STATUS'//
98 .
' INDICATOR PASSED INTO THIRD ARGUMENT (INPUT) (=",I4,")")') il
100 903
WRITE(bort_str,
'("BUFRLIB: WTSTAT - INVALID BUFR MESSAGE STATUS'//
101 .
' INDICATOR PASSED INTO FOURTH ARGUMENT (INPUT) (=",I4,")")') im
103 905
WRITE(bort_str,
'("BUFRLIB: WTSTAT - ATTEMPTING TO REDEFINE '//
104 .
'EXISTING FILE UNIT (LOGICAL UNIT NUMBER ",I3,")")') iolun(lun)
subroutine wtstat(LUNIT, LUN, IL, IM)
This subroutine can be used to connect or disconnect a specified Fortran logical unit number to/from ...
subroutine bort(STR)
This subroutine calls subroutine errwrt() to log an error message, then calls subroutine bort_exit() ...