54 CHARACTER*128 bort_str
64 CALL
status(lunit,lun,il,im)
75 IF(nsub(lun).EQ.msub(lun))
THEN
79 nsub(lun) = nsub(lun) + 1
90 IF(msgunp(lun).EQ.0)
THEN
92 CALL
upb(nbyt,16,mbay(1,lun),ibit)
98 mbyt(lun) = mbyt(lun) + nbyt
99 ELSEIF(msgunp(lun).EQ.1)
THEN
108 ELSEIF(msgunp(lun).EQ.2)
THEN
119 900 CALL
bort(
'BUFRLIB: READSB - INPUT BUFR FILE IS CLOSED, IT MUST'//
120 .
' BE OPEN FOR INPUT')
121 901 CALL
bort(
'BUFRLIB: READSB - INPUT BUFR FILE IS OPEN FOR OUTPUT'//
122 .
', IT MUST BE OPEN FOR INPUT')
123 902
WRITE(bort_str,
'("BUFRLIB: READSB - MESSAGE UNPACK TYPE",I3,"IS'//
124 .
' NOT RECOGNIZED")') msgunp
subroutine upb(NVAL, NBITS, IBAY, IBIT)
THIS SUBROUTINE UNPACKS AND RETURNS A BINARY INTEGER CONTAINED WITHIN NBITS BITS OF IBAY...
This module contains array and variable declarations used to store bitmaps internally within a data s...
subroutine rdtree(LUN, IRET)
THIS SUBROUTINE UNPACKS THE NEXT SUBSET FROM THE INTERNAL UNCOMPRESSED MESSAGE BUFFER (ARRAY MBAY IN ...
subroutine status(LUNIT, LUN, IL, IM)
This subroutine checks whether a specified Fortran logical unit number is currently connected to the ...
subroutine rdcmps(LUN)
THIS SUBROUTINE UNCOMPRESSES AND UNPACKS THE NEXT SUBSET FROM THE INTERNAL COMPRESSED MESSAGE BUFFER ...
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 readsb(LUNIT, IRET)
This subroutine reads the next data subset from a BUFR message into internal arrays.