71 COMMON /maxcmp/ maxcmb,maxrow,maxcol,ncmsgs,ncsubs,ncbyts
72 COMMON /padesc/ ibct,ipd1,ipd2,ipd3,ipd4
73 COMMON /reptab/ idnr(5,2),typs(5,2),reps(5,2),lens(5)
74 COMMON /dxtab / maxdx,idxv,nxstr(10),ldxa(10),ldxb(10),ldxd(10), &
76 COMMON /mrgcom/ nrpl,nmrg,namb,ntot
77 COMMON /dateln/ lendat
82 COMMON /tnkrcp/ itryr,itrmo,itrdy,itrhr,itrmi,ctrt
83 COMMON /endord/ iblock,iordbe(4),iordle(4)
87 character*6 adsn(5,2),dndx(25,10)
88 character*3 typx(5,2),typs
89 character*1 repx(5,2),reps
94 dimension ndndx(10),nldxa(10),nldxb(10),nldxd(10),nld30(10)
97 data adsn /
'101000',
'360001',
'360002',
'360003',
'360004' , &
98 '101255',
'031002',
'031001',
'031001',
'031000' /
99 data typx /
'REP',
'DRP',
'DRP',
'DRS' ,
'DRB' , &
100 'SEQ',
'RPC',
'RPC',
'RPS' ,
'SEQ' /
101 data repx /
'"',
'(',
'{',
'[' ,
'<' , &
102 '"',
')',
'}',
']' ,
'>' /
103 data lenx / 0 , 16 , 8 , 8 , 1 /
105 data (dndx(i,1),i=1,25)/ &
106 '102000',
'031001',
'000001',
'000002', &
107 '110000',
'031001',
'000010',
'000011',
'000012',
'000013',
'000015', &
108 '000016',
'000017',
'000018',
'000019',
'000020', &
109 '107000',
'031001',
'000010',
'000011',
'000012',
'000013',
'101000', &
112 data (dndx(i,2),i=1,15)/ &
113 '103000',
'031001',
'000001',
'000002',
'000003', &
114 '101000',
'031001',
'300004', &
115 '105000',
'031001',
'300003',
'205064',
'101000',
'031001',
'000030'/
117 data ndndx / 25 , 15 , 8*0 /
118 data nldxa / 35 , 67 , 8*0 /
119 data nldxb / 80 , 112 , 8*0 /
120 data nldxd / 38 , 70 , 8*0 /
121 data nld30 / 5 , 6 , 8*0 /
134 maxbyt = min(10000,mxmsgl)
154 ibct =
ifxy(
'063000')
155 ipd1 =
ifxy(
'102000')
156 ipd2 =
ifxy(
'031001')
157 ipd3 =
ifxy(
'206001')
158 ipd4 =
ifxy(
'063255')
195 idnr(i,j) =
ifxy(adsn(i,j))
196 typs(i,j) = typx(i,j)
197 reps(i,j) = repx(i,j)
229 nxstr(j) = ndndx(j)*2
232 call
ipkm(dxstr(j)(i1:i1),2,
ifxy(dndx(i,j)))
259 if(lendat.ne.10) lendat = 8
302 '/gpfs/dell2/emc/obsproc/noscrub/Jeff.Ator/NCEPLIBS-bufr-GitHub/build3/install/tables'
subroutine mtinfo(CMTDIR, LUNMT1, LUNMT2)
This subroutine allows the specification of the directory location and Fortran logical unit numbers t...
This module contains array and variable declarations used to store DX BUFR tables internally for mult...
This module contains array and variable declarations used to store the internal jump/link table...
function ifxy(ADSC)
THIS FUNCTION RETURNS THE INTEGER CORRESPONDING TO THE BIT-WISE REPRESENTATION OF AN INPUT CHARACTER ...
subroutine ipkm(CBAY, NBYT, N)
This subroutine encodes an integer value within a specified number of bytes of a character string...
subroutine bfrini
This subroutine initializes numerous global variables and arrays within internal modules and COMMON b...
This module contains array and variable declarations for the internal Table A mnemonic cache that is ...
This module contains array and variable declarations used to store BUFR messages internally for multi...