stntbi.f

Go to the documentation of this file.

C> @file
C> @author ATOR @date 2009-03-23
    
C> THIS SUBROUTINE STORES A NEW ENTRY WITHIN INTERNAL BUFR
C>   TABLE B OR D, DEPENDING ON THE VALUE OF NUMB.
C>
C> PROGRAM HISTORY LOG:
C> 2009-03-23  J. ATOR    -- ORIGINAL AUTHOR
C> 2014-12-10  J. ATOR    -- USE MODULES INSTEAD OF COMMON BLOCKS
C>
C> USAGE:    CALL STNTBI ( N, LUN, NUMB, NEMO, CELSQ )
C>   INPUT ARGUMENT LIST:
C>       N      - INTEGER: STORAGE INDEX INTO INTERNAL TABLE B OR D 
C>     LUN      - INTEGER: I/O STREAM INDEX INTO INTERNAL TABLE B OR D
C>    NUMB      - CHARACTER*6: FXY NUMBER FOR NEW TABLE B OR D ENTRY
C>                (IN FORMAT FXXYYY)
C>    NEMO      - CHARACTER*8: MNEMONIC CORRESPONDING TO NUMB
C>   CELSQ      - CHARACTER*55: ELEMENT OR SEQUENCE DESCRIPTION
C>                CORRESPONDING TO NUMB
C>
C> REMARKS:
C>    THIS ROUTINE CALLS:        IFXY     NENUBD
C>    THIS ROUTINE IS CALLED BY: RDUSDX   STSEQ
C>                               Not normally called by application
C>                               programs.
C>
    SUBROUTINE stntbi ( N, LUN, NUMB, NEMO, CELSQ )

    USE moda_tababd

    CHARACTER*(*) numb, nemo, celsq

C-----------------------------------------------------------------------
C-----------------------------------------------------------------------

    CALL nenubd( nemo, numb, lun )

    IF ( numb(1:1) .EQ. '0') THEN
            idnb(n,lun) = ifxy(numb)
            tabb(n,lun)( 1: 6) = numb(1:6)
            tabb(n,lun)( 7:14) = nemo(1:8)
            tabb(n,lun)(16:70) = celsq(1:55)
            ntbb(lun) = n
    ELSE IF ( numb(1:1) .EQ. '3') THEN
            idnd(n,lun) = ifxy(numb)
            tabd(n,lun)( 1: 6) = numb(1:6)
            tabd(n,lun)( 7:14) = nemo(1:8)
            tabd(n,lun)(16:70) = celsq(1:55)
            ntbd(lun) = n
        ENDIF

    RETURN
    END