41 COMMON /hrdwrd/ nbytw,nbitw,iord(8)
45 CHARACTER*128 bort_str
51 CALL
status(lunit,lun,il,im)
54 + CALL
errwrt(
'BUFRLIB: RDMSGW - SKIPPING OVERLARGE MESSAGE')
56 + CALL
errwrt(
'BUFRLIB: RDMSGW - SKIPPING CORRUPTED MESSAGE')
This module declares and initializes the MXMSGL variable.
f77int crdbufr(f77int *nfile, char *bufr, f77int *mxbyt)
This function reads the next message from a BUFR file that was previously opened for reading...
subroutine rdmsgw(LUNIT, MESG, IRET)
THIS SUBROUTINE READS THE NEXT BUFR MESSAGE FROM LOGICAL UNIT LUNIT AS AN ARRAY OF INTEGER WORDS...
subroutine status(LUNIT, LUN, IL, IM)
This subroutine checks whether a specified Fortran logical unit number is currently connected to the ...
subroutine errwrt(STR)
This subroutine allows the user to specify a custom location for the logging of error and diagnostic ...