igetprm.f

Go to the documentation of this file.

C> @file
C> @brief Get the current value of a parameter.
C>
C> @author J. Ator @date 2014-12-04
 
C> Get the current value of a parameter.
C>      
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> @param[in] CPRMNM - character*(*): Parameter
C> - 'MXMSGL' = Maximum length (in bytes) of a BUFR 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 subset.
C> - 'MXLCC'  = Maximum length (in bytes) of a character
C> string that can be written into a compressed BUFR subset.
C> - 'MXCSB'  = Maximum number of subsets that can be
C> written into a compressed BUFR message.
C> - 'NFILES' = Maximum number of BUFR files that can
C> be accessed for reading or writing at 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 internal memory.
C> - 'MAXMSG' = Maximum number of BUFR messages that
C> can be stored in internal memory.
C> - 'MXDXTS' = Maximum number of dictionary tables that can
C> be stored for use with BUFR messages in internal memory.
C> - 'MXMTBB' = Maximum number of master Table B entries.
C> - 'MXMTBD' = Maximum number of master Table D entries.
C> - 'MXMTBF' = Maximum number of master Code/Flag entries.
C> - 'MAXCD'  = Maximum number of child descriptors in a
C> Table D descriptor sequence definition.
C> - 'MAXJL'  = Maximum number of entries in the
C> internal jump/link table.
C> - 'MXS01V' = Maximum number of default Section 0 or Section 1
C> values that can be overwritten within an output BUFR 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 contain at least
C> one Table C operator with XX >= 21 in their subset
C> definition.
C> - 'MXTCO'  = Maximum number of Table C operators
C> with XX >= 21 in the subset definition of a Table A mnemonic.
C> - 'MXNRV'  = Maximum number of 2-03 reference
C> values in the internal jump/link table.
C> - 'MXRST'  = Maximum number of long character
C> strings that can be read from a compressed subset.
C> - 'MXH4WLC' = Maximum number of long character strings that can
C> be stored internally.
C>
C> @returns igetprm - integer: Value of CPRMNM:
C> - -1 Unknown CPRMNM
C>
C> @author J. Ator @date 2014-12-04
        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
        USE modv_mxh4wlc
 
        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 IF ( cprmnm .EQ. 'MXH4WLC' ) THEN
            igetprm = mxh4wlc
        ELSE
            igetprm = -1
            CALL errwrt('++++++++++++++++++WARNING+++++++++++++++++++')
            errstr = 'BUFRLIB: IGETPRM - UNKNOWN INPUT PARAMETER '//
     .          cprmnm
            CALL errwrt(errstr)
            CALL errwrt('++++++++++++++++++WARNING+++++++++++++++++++')
        ENDIF
 
        RETURN
        END