124 CALL
status(lunit,lun,il,im)
132 IF(lunxx.LT.0) CALL
closmg(lunit)
137 IF(msglen(lun).GT.0)
THEN
138 IF(msglen(lun).GT.lmsgt) goto 904
141 msgt(n) = msgtxt(n,lun)
148 IF(lunxx.LT.0) goto 100
154 IF( ccmf.EQ.
'Y' )
THEN
173 IF( (msglen(lun).GT.0) .AND. (msgl+msglen(lun).LE.lmsgt) )
THEN
175 msgt(msgl+n) = msgtxt(n,lun)
177 msgl = msgl+msglen(lun)
185 900 CALL
bort(
'BUFRLIB: WRITSA - OUTPUT BUFR FILE IS CLOSED, IT '//
186 .
'MUST BE OPEN FOR OUTPUT')
187 901 CALL
bort(
'BUFRLIB: WRITSA - OUTPUT BUFR FILE IS OPEN FOR '//
188 .
'INPUT, IT MUST BE OPEN FOR OUTPUT')
189 902 CALL
bort(
'BUFRLIB: WRITSA - A MESSAGE MUST BE OPEN IN OUTPUT '//
190 .
'BUFR FILE, NONE ARE')
191 904 CALL
bort(
'BUFRLIB: WRITSA - OVERFLOW OF OUTPUT BUFR MESSAGE '//
192 .
'ARRAY; TRY A LARGER DIMENSION FOR THIS ARRAY')
subroutine msgupd(LUNIT, LUN)
THIS SUBROUTINE PACKS UP THE CURRENT SUBSET WITHIN MEMORY (ARRAY IBAY IN MODULE BITBUF) AND THEN TRIE...
subroutine wrcmps(LUNIX)
THIS SUBROUTINE PACKS UP THE CURRENT SUBSET WITHIN MEMORY (ARRAY IBAY IN MODULE BITBUF), STORING IT FOR COMPRESSION.
subroutine status(LUNIT, LUN, IL, IM)
This subroutine checks whether a specified Fortran logical unit number is currently connected to the ...
subroutine closmg(LUNIN)
This subroutine closes the BUFR message that is currently open for writing within internal arrays ass...
subroutine writsa(LUNXX, LMSGT, MSGT, MSGL)
This subroutine is similar to subroutine writsb(), except that in addition to writing each completed ...
subroutine bort(STR)
This subroutine calls subroutine errwrt() to log an error message, then calls subroutine bort_exit() ...
subroutine wrtree(LUN)
THIS SUBROUTINE CONVERTS USER NUMBERS INTO SCALED INTEGERS AND PACKS THE USER ARRAY INTO THE SUBSET B...