rdmtbb.f

Go to the documentation of this file.

C> @file
C> @brief Read master Table B information from local file system.
C>
C> @author J. Ator @date 2007-01-19
 
C> This subroutine reads master Table B information from two separate
C> ASCII files (one standard and one local) and then merges the
C> output into a single set of arrays.
C>
C> Each of the two ASCII files must already be individually sorted
C> in ascending order with respect to the FXY numbers.
C>
C> @param[in] LUNSTB -- integer: Fortran logical unit number for
C>                      ASCII file containing standard Table B
C>                      information
C> @param[in] LUNLTB -- integer: Fortran logical unit number for
C>                      ASCII file containing local Table B
C>                      information
C> @param[in] MXMTBB -- integer: Dimensioned size (in integers) of
C>                      merged output arrays; used by the subroutine
C>                      to ensure that it doesn't overflow these
C>                      arrays
C> @param[out] IMT   -- integer: Master table
C>                      - This value is read from both ASCII
C>                        files and must be identical between them.
C> @param[out] IMTV  -- integer: Version number of master table
C>                      - This value is read from the standard ASCII
C>                        file.
C> @param[out] IOGCE -- integer: Originating center
C>                      - This value is read from the local ASCII
C>                        file.
C> @param[out] ILTV  -- integer: Version number of local table
C>                      - This value is read from the local ASCII
C>                        file.
C> @param[out] NMTBB -- integer: Number of entries in merged output
C>                      arrays
C> @param[out] IMFXYN -- integer(*): Merged array containing bit-wise
C>                       representations of FXY numbers
C> @param[out] CMSCL -- character*4(*): Merged array containing
C>                      scale factors
C> @param[out] CMSREF -- character*12(*): Merged array containing
C>                       reference values
C> @param[out] CMBW  -- character*4(*): Merged array containing
C>                      bit widths
C> @param[out] CMUNIT -- character*24(*): Merged array containing units
C> @param[out] CMMNEM -- character*8(*): Merged array containing
C>                      mnemonics
C> @param[out] CMDSC -- character*4(*): Merged array containing
C>                      descriptor codes
C> @param[out] CMELEM -- character*120(*): Merged array containing
C>                       element names
C>
C> @author J. Ator @date 2007-01-19
        SUBROUTINE rdmtbb ( LUNSTB, LUNLTB, MXMTBB,
     .                      IMT, IMTV, IOGCE, ILTV,
     .                      NMTBB, IMFXYN, CMSCL, CMSREF, CMBW,
     .                      CMUNIT, CMMNEM, CMDSC, CMELEM )
 
        CHARACTER*200   STLINE, LTLINE
        CHARACTER*128   BORT_STR
        CHARACTER*6     CMATCH, ADN30
        CHARACTER*4     CMDSC(*)
        CHARACTER       CMELEM(120,*)
        CHARACTER       CMUNIT(24,*)
        CHARACTER       CMSREF(12,*)
        CHARACTER       CMMNEM(8,*)
        CHARACTER       CMSCL(4,*), CMBW(4,*)
 
        INTEGER         IMFXYN(*)
 
C-----------------------------------------------------------------------
C-----------------------------------------------------------------------
 
C       Call WRDLEN to initialize some important information about the
C       local machine, just in case it hasn't already been called.
 
        CALL wrdlen
 
C       Read and parse the header lines of both files.
 
        CALL gettbh ( lunstb, lunltb, 'B', imt, imtv, iogce, iltv )
 
C       Read through the remainder of both files, merging the
C       contents into a unified set of master Table B arrays.
 
        nmtbb = 0
        CALL getntbe ( lunstb, isfxyn, stline, iers )
        CALL getntbe ( lunltb, ilfxyn, ltline, ierl )
        DO WHILE ( ( iers .EQ. 0 ) .OR. ( ierl .EQ. 0 ) )
          IF ( ( iers .EQ. 0 ) .AND. ( ierl .EQ. 0 ) ) THEN
            IF ( isfxyn .EQ. ilfxyn ) THEN
              cmatch = adn30( isfxyn, 6 )
              GOTO 900
            ELSE IF ( isfxyn .LT. ilfxyn ) THEN
              CALL sntbbe ( isfxyn, stline, mxmtbb,
     .                      nmtbb, imfxyn, cmscl, cmsref, cmbw,
     .                      cmunit, cmmnem, cmdsc, cmelem )
              CALL getntbe ( lunstb, isfxyn, stline, iers )
            ELSE
              CALL sntbbe ( ilfxyn, ltline, mxmtbb,
     .                      nmtbb, imfxyn, cmscl, cmsref, cmbw,
     .                      cmunit, cmmnem, cmdsc, cmelem )
              CALL getntbe ( lunltb, ilfxyn, ltline, ierl )
            ENDIF
          ELSE IF ( iers .EQ. 0 ) THEN
            CALL sntbbe ( isfxyn, stline, mxmtbb,
     .                    nmtbb, imfxyn, cmscl, cmsref, cmbw,
     .                    cmunit, cmmnem, cmdsc, cmelem )
            CALL getntbe ( lunstb, isfxyn, stline, iers )
          ELSE IF ( ierl .EQ. 0 ) THEN
            CALL sntbbe ( ilfxyn, ltline, mxmtbb,
     .                    nmtbb, imfxyn, cmscl, cmsref, cmbw,
     .                    cmunit, cmmnem, cmdsc, cmelem )
            CALL getntbe ( lunltb, ilfxyn, ltline, ierl )
          ENDIF
        ENDDO
 
        RETURN
 900    WRITE(bort_str,'("BUFRLIB: RDMTBB - STANDARD AND LOCAL'//
     . ' TABLE B FILES BOTH CONTAIN SAME FXY NUMBER: ",5A)')
     .   cmatch(1:1), '-', cmatch(2:3), '-', cmatch(4:6)
        CALL bort(bort_str)
        END