53 CALL
status(lunit,lun,il,im)
54 IF(lunit.NE.lunin) msglim(lun) = 0
58 IF(nsub(lun).GT.0)
THEN
59 CALL
msgwrt(lunit,mbay(1,lun),mbyt(lun))
60 ELSE IF(nsub(lun).EQ.0.AND.nmsg(lun).LT.msglim(lun))
THEN
61 CALL
msgwrt(lunit,mbay(1,lun),mbyt(lun))
62 ELSE IF(nsub(lun).LT.0)
THEN
66 CALL
wtstat(lunit,lun,il,0)
72 900 CALL
bort(
'BUFRLIB: CLOSMG - OUTPUT BUFR FILE IS CLOSED, IT '//
73 .
'MUST BE OPEN FOR OUTPUT')
74 901 CALL
bort(
'BUFRLIB: CLOSMG - OUTPUT BUFR FILE IS OPEN FOR '//
75 .
'INPUT, IT MUST BE OPEN FOR OUTPUT')
subroutine msgwrt(LUNIT, MESG, MGBYT)
This subroutine performs final checks and updates on a BUFR message before writing it to a specified ...
subroutine wrcmps(LUNIX)
THIS SUBROUTINE PACKS UP THE CURRENT SUBSET WITHIN MEMORY (ARRAY IBAY IN MODULE BITBUF), STORING IT FOR COMPRESSION.
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 ...
subroutine closmg(LUNIN)
This subroutine closes the BUFR message that is currently open for writing within internal arrays ass...
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...