NCEPLIBS-bufr  11.5.0
 All Data Structures Files Functions Variables Pages
stntbi.f
Go to the documentation of this file.
1 C> @file
2 C> @author ATOR @date 2009-03-23
3 
4 C> THIS SUBROUTINE STORES A NEW ENTRY WITHIN INTERNAL BUFR
5 C> TABLE B OR D, DEPENDING ON THE VALUE OF NUMB.
6 C>
7 C> PROGRAM HISTORY LOG:
8 C> 2009-03-23 J. ATOR -- ORIGINAL AUTHOR
9 C> 2014-12-10 J. ATOR -- USE MODULES INSTEAD OF COMMON BLOCKS
10 C>
11 C> USAGE: CALL STNTBI ( N, LUN, NUMB, NEMO, CELSQ )
12 C> INPUT ARGUMENT LIST:
13 C> N - INTEGER: STORAGE INDEX INTO INTERNAL TABLE B OR D
14 C> LUN - INTEGER: I/O STREAM INDEX INTO INTERNAL TABLE B OR D
15 C> NUMB - CHARACTER*6: FXY NUMBER FOR NEW TABLE B OR D ENTRY
16 C> (IN FORMAT FXXYYY)
17 C> NEMO - CHARACTER*8: MNEMONIC CORRESPONDING TO NUMB
18 C> CELSQ - CHARACTER*55: ELEMENT OR SEQUENCE DESCRIPTION
19 C> CORRESPONDING TO NUMB
20 C>
21 C> REMARKS:
22 C> THIS ROUTINE CALLS: IFXY NENUBD
23 C> THIS ROUTINE IS CALLED BY: RDUSDX STSEQ
24 C> Not normally called by application
25 C> programs.
26 C>
27  SUBROUTINE stntbi ( N, LUN, NUMB, NEMO, CELSQ )
28 
29  USE moda_tababd
30 
31  CHARACTER*(*) numb, nemo, celsq
32 
33 C-----------------------------------------------------------------------
34 C-----------------------------------------------------------------------
35 
36  CALL nenubd( nemo, numb, lun )
37 
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)
43  ntbb(lun) = n
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)
49  ntbd(lun) = n
50  ENDIF
51 
52  RETURN
53  END
This module contains array and variable declarations used to store DX BUFR tables internally for mult...
Definition: moda_tababd.F:10
subroutine nenubd(NEMO, NUMB, LUN)
THIS SUBROUTINE CHECKS A MNEMONIC AND FXY VALUE PAIR THAT WERE READ FROM A USER-SUPPLIED BUFR DICTION...
Definition: nenubd.f:48
function ifxy(ADSC)
THIS FUNCTION RETURNS THE INTEGER CORRESPONDING TO THE BIT-WISE REPRESENTATION OF AN INPUT CHARACTER ...
Definition: ifxy.f:49
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...
Definition: stntbi.f:27