moda_nrv203.F

Go to the documentation of this file.

C> @file
C> @brief Declare arrays for internal storage of changed
C> reference values.

C> This module contains array and variable declarations for use
C> with any 2-03-YYY (change reference value) operators present
C> within the internal jump/link table.
C>
C> <p>Data values within this module are stored by subroutine
C> tabsub().
C>
C> @author J. Ator
C> @date 2012-03-02

    MODULE moda_nrv203

#ifndef MXNRV_H
#define MXNRV_H
      USE modv_mxnrv
#endif

C>        @var nnrv
C>        Number of entries in the jump/link table which contain
C>        new reference values (up to a maximum of MXNRV).
C>
C>        @var ibtnrv
C>        Number of bits in Section 4 occupied by each new
C>        reference value for the current 2-03-YYY operator in
C>        scope; set to 0 if no such operator is currently in
C>        scope.
C>
C>        @var ipfnrv
C>        A number between 1 and nnrv, denoting the first entry
C>        within the module arrays which applies to the current
C>        data subset in scope; set to 0 if no 2-03-YYY operators
C>        have been applied to the current data subset in scope. 
C>
C>        @var tagnrv
C>        Table B mnemonic to which the corresponding new
C>        reference value in nrv applies.
C>
C>        @var nrv
C>        New reference values corresponding to inodnrv.
C>
C>        @var inodnrv
C>        Entries within jump/link table which contain new
C>        reference values.
C>
C>        @var isnrv
C>        Start of entry range in jump/link table, within which
C>        the corresponding new reference value in nrv will be
C>        applied to all occurrences of the corresponding
C>        Table B mnemonic in tagnrv.
C>
C>        @var ienrv
C>        End of entry range in jump/link table, within which
C>        the corresponding new reference value in nrv will be
C>        applied to all occurrences of the corresponding
C>        Table B mnemonic in tagnrv.

      INTEGER :: NNRV
      INTEGER :: IBTNRV
      INTEGER :: IPFNRV
#ifdef DYNAMIC_ALLOCATION
      CHARACTER*8, ALLOCATABLE :: TAGNRV(:)
      INTEGER, ALLOCATABLE :: INODNRV(:) 
      INTEGER, ALLOCATABLE :: NRV(:) 
      INTEGER, ALLOCATABLE :: ISNRV(:) 
      INTEGER, ALLOCATABLE :: IENRV(:) 
#else
      CHARACTER*8 :: TAGNRV(MXNRV)
      INTEGER :: INODNRV(MXNRV) 
      INTEGER :: NRV(MXNRV) 
      INTEGER :: ISNRV(MXNRV) 
      INTEGER :: IENRV(MXNRV) 
#endif

    END MODULE