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
 
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
      CHARACTER*8, ALLOCATABLE :: tagnrv(:)
      INTEGER    , ALLOCATABLE :: inodnrv(:) 
      INTEGER*8  , ALLOCATABLE :: nrv(:) 
      INTEGER    , ALLOCATABLE :: isnrv(:) 
      INTEGER    , ALLOCATABLE :: ienrv(:) 
 
    END MODULE