66 CHARACTER*128 bort_str
76 CALL
status(lunit,lun,il,im)
87 IF(nsub(lun).EQ.msub(lun))
THEN
91 nsub(lun) = nsub(lun) + 1
102 IF(msgunp(lun).EQ.0)
THEN
104 CALL
upb(nbyt,16,mbay(1,lun),ibit)
110 mbyt(lun) = mbyt(lun) + nbyt
111 ELSEIF(msgunp(lun).EQ.1)
THEN
120 ELSEIF(msgunp(lun).EQ.2)
THEN
131 900 CALL
bort(
'BUFRLIB: READSB - INPUT BUFR FILE IS CLOSED, IT MUST'//
132 .
' BE OPEN FOR INPUT')
133 901 CALL
bort(
'BUFRLIB: READSB - INPUT BUFR FILE IS OPEN FOR OUTPUT'//
134 .
', IT MUST BE OPEN FOR INPUT')
135 902
WRITE(bort_str,
'("BUFRLIB: READSB - MESSAGE UNPACK TYPE",I3,"IS'//
136 .
' 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.