55 SUBROUTINE cmsgini(LUN,MESG,SUBSET,IDATE,NSUB,NBYT)
57 CHARACTER*128 bort_str
72 CALL
nemtba(lun,subset,mtyp,msbt,inod)
73 CALL
nemtab(lun,subset,isub,tab,iret)
74 IF(iret.EQ.0) goto 900
80 mcen = mod(jdate/10**8,100)+1
81 mear = mod(jdate/10**6,100)
82 mmon = mod(jdate/10**4,100)
83 mday = mod(jdate/10**2,100)
84 mour = mod(jdate ,100)
89 IF(mcen.EQ.1) goto 901
91 IF(mear.EQ.0) mcen = mcen-1
92 IF(mear.EQ.0) mear = 100
102 CALL
pkc(bufr , 4 , mesg,mbit)
109 CALL
pkb( 0 , 24 , mesg,mbit)
110 CALL
pkb( 3 , 8 , mesg,mbit)
117 CALL
pkb(len1 , 24 , mesg,mbit)
118 CALL
pkb( 0 , 8 , mesg,mbit)
119 CALL
pkb( 3 , 8 , mesg,mbit)
120 CALL
pkb( 7 , 8 , mesg,mbit)
121 CALL
pkb( 0 , 8 , mesg,mbit)
122 CALL
pkb( 0 , 8 , mesg,mbit)
123 CALL
pkb(mtyp , 8 , mesg,mbit)
124 CALL
pkb(msbt , 8 , mesg,mbit)
125 CALL
pkb( 29 , 8 , mesg,mbit)
126 CALL
pkb( 0 , 8 , mesg,mbit)
127 CALL
pkb(mear , 8 , mesg,mbit)
128 CALL
pkb(mmon , 8 , mesg,mbit)
129 CALL
pkb(mday , 8 , mesg,mbit)
130 CALL
pkb(mour , 8 , mesg,mbit)
131 CALL
pkb(mmin , 8 , mesg,mbit)
132 CALL
pkb(mcen , 8 , mesg,mbit)
139 CALL
pkb(len3 , 24 , mesg,mbit)
140 CALL
pkb( 0 , 8 , mesg,mbit)
141 CALL
pkb(nsub , 16 , mesg,mbit)
142 CALL
pkb( 192 , 8 , mesg,mbit)
143 CALL
pkb(isub , 16 , mesg,mbit)
144 CALL
pkb( 0 , 8 , mesg,mbit)
156 CALL
pkb((nbyt+4) , 24 , mesg,mbit)
157 CALL
pkb( 0 , 8 , mesg,mbit)
190 CALL
pkb(mbyt,24,mesg,mbit)
196 900
WRITE(bort_str,
'("BUFRLIB: CMSGINI - TABLE A MESSAGE TYPE '//
197 .
'MNEMONIC ",A," NOT FOUND IN INTERNAL TABLE D ARRAYS")') subset
200 . (
'BUFRLIB: CMSGINI - BUFR MESSAGE DATE (IDATE) is 0000000000')
function i4dy(IDATE)
THIS FUNCTION CONVERTS AN EIGHT DIGIT INTEGER DATE (YYMMDDHH) TO TEN DIGITS (YYYYMMDDHH) USING THE Y2...
subroutine pkc(CHR, NCHR, IBAY, IBIT)
This subroutine encodes a character string within a specified number of bits of an integer array...
subroutine cmsgini(LUN, MESG, SUBSET, IDATE, NSUB, NBYT)
THIS SUBROUTINE INITIALIZES A NEW BUFR MESSAGE FOR OUTPUT IN COMPRESSED BUFR.
subroutine nemtab(LUN, NEMO, IDN, TAB, IRET)
THIS SUBROUTINE SEARCHES FOR MNEMONIC NEMO WITHIN THE INTERNAL TABLE B AND D ARRAYS HOLDING THE DICTI...
subroutine bort(STR)
This subroutine calls subroutine errwrt() to log an error message, then calls subroutine bort_exit() ...
subroutine pkb(NVAL, NBITS, IBAY, IBIT)
This subroutine encodes an integer value within a specified number of bits of an integer array...
subroutine nemtba(LUN, NEMO, MTYP, MSBT, INOD)
THIS SUBROUTINE SEARCHES FOR MNEMONIC NEMO WITHIN THE INTERNAL TABLE A ARRAYS HOLDING THE DICTIONARY ...