igetprm.f

Go to the documentation of this file.

C> @file
C> @brief Get the current value of a parameter

C> This function returns the current value of a parameter used
C> for allocating one or more internal arrays within the
C> BUFRLIB software.
C>
C> @author J. Ator
C> @date 2014-12-04
C>
C> @param[in] CPRMNM - character*(*): Parameter
C>                    - 'MXMSGL' = Maximum length (in bytes) of a BUFR
C>                                 message
C>                    - 'MAXSS'  = Maximum number of data values in an
C>                                 uncompressed BUFR subset
C>                    - 'MXCDV'  = Maximum number of data values that
C>                                 can be written into a compressed BUFR
C>                                 subset
C>                    - 'MXLCC'  = Maximum length (in bytes) of a
C>                                 character string that can be written
C>                                 into a compressed BUFR subset
C>                    - 'MXCSB'  = Maximum number of subsets that can be
C>                                 written into a compressed BUFR
C>                                 message
C>                    - 'NFILES' = Maximum number of BUFR files that can
C>                                 be accessed for reading or writing at
C>                                 any one time
C>                    - 'MAXTBA' = Maximum number of entries in internal
C>                                 BUFR Table A per BUFR file
C>                    - 'MAXTBB' = Maximum number of entries in internal
C>                                 BUFR Table B per BUFR file
C>                    - 'MAXTBD' = Maximum number of entries in internal
C>                                 BUFR Table D per BUFR file
C>                    - 'MAXMEM' = Maximum number of bytes that can be
C>                                 used to store BUFR messages in
C>                                 internal memory
C>                    - 'MAXMSG' = Maximum number of BUFR messages that
C>                                 can be stored in internal memory
C>                    - 'MXDXTS' = Maximum number of dictionary tables
C>                                 that can be stored for use with BUFR
C>                                 messages in internal memory
C>                    - 'MXMTBB' = Maximum number of master Table B
C>                                 entries
C>                    - 'MXMTBD' = Maximum number of master Table D
C>                                 entries
C>                    - 'MXMTBF' = Maximum number of master Code/Flag
C>                                 entries
C>                    - 'MAXCD'  = Maximum number of child descriptors
C>                                 in a Table D descriptor sequence
C>                                 definition
C>                    - 'MAXJL'  = Maximum number of entries in the
C>                                 internal jump/link table
C>                    - 'MXS01V' = Maximum number of default Section 0
C>                                 or Section 1 values that can be
C>                                 overwritten within an output BUFR
C>                                 message
C>                    - 'MXBTM'  = Maximum number of bitmaps that can be
C>                                 stored internally for a BUFR subset
C>                    - 'MXBTMSE' = Maximum number of entries that can be
C>                                  set within a bitmap
C>                    - 'MXTAMC' = Maximum number of Table A mnemonics
C>                                 in the internal jump/link table which
C>                                 contain at least one Table C operator
C>                                 with XX >= 21 in their subset definition
C>                    - 'MXTCO'  = Maximum number of Table C operators
C>                                 with XX >= 21) in the subset definition
C>                                 of a Table A mnemonic
C>                    - 'MXNRV'  = Maximum number of 2-03 reference
C>                                 values in the internal jump/link
C>                                 table
C>                    - 'MXRST'  = Maximum number of long character
C>                                 strings that can be read from a
C>                                 compressed subset
C>
C> @returns igetprm  - integer: Value of CPRMNM
C>                       - -1 = Unknown CPRMNM
C>
C> <b>Program history log:</b>
C> - 2014-12-04  J. Ator    -- Original author
C>
    INTEGER FUNCTION igetprm ( CPRMNM )

    USE modv_maxss
    USE modv_nfiles
    USE modv_mxmsgl
    USE modv_mxdxts
    USE modv_maxmsg
    USE modv_maxmem
    USE modv_maxtba
    USE modv_maxtbb
    USE modv_maxtbd
    USE modv_maxjl
    USE modv_mxcdv
    USE modv_mxlcc
    USE modv_mxcsb
    USE modv_mxmtbb
    USE modv_mxmtbd
    USE modv_mxmtbf
    USE modv_maxcd
    USE modv_mxs01v
    USE modv_mxbtm
    USE modv_mxbtmse
    USE modv_mxtamc
    USE modv_mxtco
    USE modv_mxnrv
    USE modv_mxrst

    character*(*)   cprmnm
    character*64    errstr

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

    IF ( cprmnm .EQ. 'MAXSS' ) THEN
        igetprm = maxss
    ELSE IF ( cprmnm .EQ. 'NFILES' ) THEN
        igetprm = nfiles
    ELSE IF ( cprmnm .EQ. 'MXMSGL' ) THEN
        igetprm = mxmsgl
    ELSE IF ( cprmnm .EQ. 'MXDXTS' ) THEN
        igetprm = mxdxts
    ELSE IF ( cprmnm .EQ. 'MAXMSG' ) THEN
        igetprm = maxmsg
    ELSE IF ( cprmnm .EQ. 'MAXMEM' ) THEN
        igetprm = maxmem
    ELSE IF ( cprmnm .EQ. 'MAXTBA' ) THEN
        igetprm = maxtba
    ELSE IF ( cprmnm .EQ. 'MAXTBB' ) THEN
        igetprm = maxtbb
    ELSE IF ( cprmnm .EQ. 'MAXTBD' ) THEN
        igetprm = maxtbd
    ELSE IF ( cprmnm .EQ. 'MAXJL' ) THEN
        igetprm = maxjl
    ELSE IF ( cprmnm .EQ. 'MXCDV' ) THEN
        igetprm = mxcdv
    ELSE IF ( cprmnm .EQ. 'MXLCC' ) THEN
        igetprm = mxlcc
    ELSE IF ( cprmnm .EQ. 'MXCSB' ) THEN
        igetprm = mxcsb
    ELSE IF ( cprmnm .EQ. 'MXMTBB' ) THEN
        igetprm = mxmtbb
    ELSE IF ( cprmnm .EQ. 'MXMTBD' ) THEN
        igetprm = mxmtbd
    ELSE IF ( cprmnm .EQ. 'MXMTBF' ) THEN
        igetprm = mxmtbf
    ELSE IF ( cprmnm .EQ. 'MAXCD' ) THEN
        igetprm = maxcd
    ELSE IF ( cprmnm .EQ. 'MXS01V' ) THEN
        igetprm = mxs01v
    ELSE IF ( cprmnm .EQ. 'MXBTM' ) THEN
        igetprm = mxbtm
    ELSE IF ( cprmnm .EQ. 'MXBTMSE' ) THEN
        igetprm = mxbtmse
    ELSE IF ( cprmnm .EQ. 'MXTAMC' ) THEN
        igetprm = mxtamc
    ELSE IF ( cprmnm .EQ. 'MXTCO' ) THEN
        igetprm = mxtco
    ELSE IF ( cprmnm .EQ. 'MXNRV' ) THEN
        igetprm = mxnrv
    ELSE IF ( cprmnm .EQ. 'MXRST' ) THEN
        igetprm = mxrst
    ELSE
        igetprm = -1
        CALL errwrt('++++++++++++++++++WARNING+++++++++++++++++++')
        errstr = 'BUFRLIB: IGETPRM - UNKNOWN INPUT PARAMETER '//
     .      cprmnm
        CALL errwrt(errstr)
        CALL errwrt('++++++++++++++++++WARNING+++++++++++++++++++')
    ENDIF

    RETURN
    END