70 CHARACTER*128 bort_str
81 CALL
status(lunit,lun,il,im)
82 IF(jsr(lun).NE.0) goto 900
86 IF(jsr(junn).NE.1) goto 902
106 jbay(i) = mbay(i,lun)
108 CALL
wtstat(lunit,lun,-1,0)
129 idate(lun) =
i4dy(jdat)
131 mbay(i,lun) = jbay(i)
134 CALL
readmg(lunit,subset,kdate,ier)
135 IF(ier.LT.0) goto 905
137 CALL
wtstat(lunit,lun,il,im)
140 jsr(lun) = mod(jsr(lun)+1,2)
146 900
WRITE(bort_str,
'("BUFRLIB: REWNBF - ATTEMPING TO SAVE '//
147 .
'PARAMETERS FOR FILE FOR WHICH THEY HAVE ALREADY BEEN SAVED '//
148 .
'(AND NOT YET RESTORED) (UNIT",I3,")")') lunit
150 901
WRITE(bort_str,
'("BUFRLIB: REWNBF - ATTEMPING TO SAVE '//
151 .
'PARAMETERS FOR BUFR FILE WHICH IS NOT OPENED FOR EITHER INPUT'//
152 .
' OR OUTPUT) (UNIT",I3,")")') lunit
154 902
WRITE(bort_str,
'("BUFRLIB: REWNBF - ATTEMPING TO RESTORE '//
155 .
'PARAMETERS TO BUFR FILE WHICH WERE NEVER SAVED (UNIT",I3,")")')
158 903
WRITE(bort_str,
'("BUFRLIB: REWNBF - SAVE/RESTORE SWITCH (INPUT '//
159 .
'ARGUMENT ISR) IS NOT ZERO OR ONE (HERE =",I4,") (UNIT",I3,")")')
162 905
WRITE(bort_str,
'("BUFRLIB: REWNBF - HIT END OF FILE BEFORE '//
163 .
'REPOSITIONING BUFR FILE IN UNIT",I3," TO ORIGINAL MESSAGE '//
164 .
'NO.",I5)') lunit,jmsg
function i4dy(IDATE)
This function converts a date-time with a 2-digit year (YYMMDDHH) to a date-time with a 4-digit year ...
subroutine wtstat(LUNIT, LUN, IL, IM)
This subroutine can be used to connect or disconnect a specified Fortran logical unit number to/from ...
subroutine status(LUNIT, LUN, IL, IM)
This subroutine checks whether a specified Fortran logical unit number is currently connected to the ...
void cewind(f77int *nfile)
This subroutine rewinds a BUFR file back to its beginning.
subroutine bort(STR)
This subroutine calls subroutine errwrt() to log an error message, then calls subroutine bort_exit() ...
This module contains array and variable declarations used to store BUFR messages internally for multi...
subroutine readmg(LUNXX, SUBSET, JDATE, IRET)
This subroutine reads the next BUFR message from logical unit ABS(LUNXX) into internal arrays...
subroutine rewnbf(LUNIT, ISR)
THIS SUBROUTINE, DEPENDING ON THE VALUE OF ISR, WILL EITHER: 1) STORE THE CURRENT PARAMETERS ASSOCIAT...