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> | Date | Programmer | Comments |
C> | -----|------------|----------|
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