27 SUBROUTINE stntbi ( N, LUN, NUMB, NEMO, CELSQ )
31 CHARACTER*(*) numb, nemo, celsq
36 CALL
nenubd( nemo, numb, lun )
38 IF ( numb(1:1) .EQ.
'0')
THEN
39 idnb(n,lun) =
ifxy(numb)
40 tabb(n,lun)( 1: 6) = numb(1:6)
41 tabb(n,lun)( 7:14) = nemo(1:8)
42 tabb(n,lun)(16:70) = celsq(1:55)
44 ELSE IF ( numb(1:1) .EQ.
'3')
THEN
45 idnd(n,lun) =
ifxy(numb)
46 tabd(n,lun)( 1: 6) = numb(1:6)
47 tabd(n,lun)( 7:14) = nemo(1:8)
48 tabd(n,lun)(16:70) = celsq(1:55)
This module contains array and variable declarations used to store DX BUFR tables internally for mult...
subroutine nenubd(NEMO, NUMB, LUN)
THIS SUBROUTINE CHECKS A MNEMONIC AND FXY VALUE PAIR THAT WERE READ FROM A USER-SUPPLIED BUFR DICTION...
function ifxy(ADSC)
THIS FUNCTION RETURNS THE INTEGER CORRESPONDING TO THE BIT-WISE REPRESENTATION OF AN INPUT CHARACTER ...
subroutine stntbi(N, LUN, NUMB, NEMO, CELSQ)
THIS SUBROUTINE STORES A NEW ENTRY WITHIN INTERNAL BUFR TABLE B OR D, DEPENDING ON THE VALUE OF NUMB...