64 CALL
status(lunit,lun,il,im)
73 IF( ccmf.EQ.
'Y' )
THEN
83 900 CALL
bort(
'BUFRLIB: WRITSB - OUTPUT BUFR FILE IS CLOSED, IT '//
84 .
'MUST BE OPEN FOR OUTPUT')
85 901 CALL
bort(
'BUFRLIB: WRITSB - OUTPUT BUFR FILE IS OPEN FOR '//
86 .
'INPUT, IT MUST BE OPEN FOR OUTPUT')
87 902 CALL
bort(
'BUFRLIB: WRITSB - A MESSAGE MUST BE OPEN IN OUTPUT '//
88 .
'BUFR FILE, NONE ARE')
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 writsb(LUNIT)
This subroutine writes a complete data subset into a BUFR message, for eventual output to logical uni...
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...