51 CHARACTER*128 bort_str1,bort_str2
54 CHARACTER*11 refr,refr_orig
56 CHARACTER*4 scal,scal_orig
57 CHARACTER*3 bitw,bitw_orig
83 CALL
nemtab(lun,nemo,idsn,tab,iele)
84 IF(tab.NE.
'B') goto 900
90 IF(unit.EQ.
' ') goto 904
91 tabb(iele,lun)(71:94) = unit
94 CALL
jstnum(scal,sign,iret)
95 IF(iret.NE.0) goto 901
96 tabb(iele,lun)(95:95) = sign
97 tabb(iele,lun)(96:98) = scal
100 CALL
jstnum(refr,sign,iret)
101 IF(iret.NE.0) goto 902
102 tabb(iele,lun)( 99: 99) = sign
103 tabb(iele,lun)(100:109) = refr
106 CALL
jstnum(bitw,sign,iret)
107 IF(iret.NE.0 ) goto 903
108 IF(sign.EQ.
'-') goto 903
109 tabb(iele,lun)(110:112) = bitw
115 900
WRITE(bort_str1,
'("BUFRLIB: ELEMDX - CARD READ IN IS: ",A)') card
116 WRITE(bort_str2,
'(18X,"MNEMONIC ",A," IS NOT A TABLE B ENTRY '//
117 .
'(UNDEFINED, TAB=",A,")")') nemo,tab
118 CALL
bort2(bort_str1,bort_str2)
119 901
WRITE(bort_str1,
'("BUFRLIB: ELEMDX - CARD READ IN IS: ",A)') card
120 WRITE(bort_str2,
'(18X,"PARSED SCALE VALUE (=",A,") IS NOT '//
121 .
'NUMERIC")') scal_orig
122 CALL
bort2(bort_str1,bort_str2)
123 902
WRITE(bort_str1,
'("BUFRLIB: ELEMDX - CARD READ IN IS: ",A)') card
124 WRITE(bort_str2,
'(18X,"PARSED REFERENCE VALUE (=",A,") IS NOT '//
125 .
'NUMERIC")') refr_orig
126 CALL
bort2(bort_str1,bort_str2)
127 903
WRITE(bort_str1,
'("BUFRLIB: ELEMDX - CARD READ IN IS: ",A)') card
128 WRITE(bort_str2,
'(18X,"PARSED BIT WIDTH VALUE (=",A,") IS NOT '//
129 .
'NUMERIC")') bitw_orig
130 CALL
bort2(bort_str1,bort_str2)
131 904
WRITE(bort_str1,
'("BUFRLIB: ELEMDX - CARD READ IN IS: ",A)') card
132 WRITE(bort_str2,
'(18X,"UNITS FIELD IS EMPTY")')
133 CALL
bort2(bort_str1,bort_str2)
subroutine jstnum(STR, SIGN, IRET)
This subroutine left-justifies a character string containing an encoded integer, by removing all lead...
subroutine bort2(STR1, STR2)
This subroutine calls subroutine errwrt() to log two error messages, then calls subroutine bort_exit(...
This module contains array and variable declarations used to store DX BUFR tables internally for mult...
subroutine nemtab(LUN, NEMO, IDN, TAB, IRET)
This subroutine returns information about a descriptor from the internal DX BUFR tables, based on the mnemonic associated with that descriptor.
subroutine elemdx(CARD, LUN)
THIS SUBROUTINE DECODES THE SCALE FACTOR, REFERENCE VALUE, BIT WIDTH AND UNITS (I.E., THE "ELEMENTS") FROM A TABLE B MNEMONIC DEFINITION CARD THAT WAS PREVIOUSLY READ FROM A USER-SUPPLIED BUFR DICTIONARY TABLE FILE IN CHARACTER FORMAT BY BUFR ARCHIVE LIBRARY SUBROUTINE RDUSDX.
subroutine capit(STR)
This subroutine capitalizes all of the alphabetic characters in a string.