moda_mstabs.F

Go to the documentation of this file.

C> @file
C> @brief Declare arrays for internal storage of master Table B
C> and Table D entries.

C> This module contains array and variable declarations used to
C> store master Table B and Table D entries within internal
C> memory.
C>
C> <p>Data values within this module are stored by subroutine
C> ireadmt().
C>
C> @author J. Ator
C> @date 2014-12-10

    MODULE moda_mstabs

#ifndef MAXCD_H
#define MAXCD_H
      USE modv_maxcd
#endif

#ifndef MXMTBB_H
#define MXMTBB_H
      USE modv_mxmtbb
#endif

#ifndef MXMTBD_H
#define MXMTBD_H
      USE modv_mxmtbd
#endif

C>        @var nmtb
C>        Number of master Table B entries (up to a maximum of MXMTBB).
C>
C>        @var ibfxyn
C>        Bitwise representations of FXY numbers for master Table B.
C>
C>        @var cbscl
C>        Scale factors corresponding to ibfxyn.
C>
C>        @var cbsref
C>        Reference values corresponding to ibfxyn.
C>
C>        @var cbbw
C>        Bit widths corresponding to ibfxyn.
C>
C>        @var cbunit
C>        Units corresponding to ibfxyn.
C>
C>        @var cbmnem
C>        Mnemonics corresponding to ibfxyn.
C>
C>        @var cbelem
C>        Element names corresponding to ibfxyn.
C>
C>        @var nmtd
C>        Number of master Table D entries (up to a maximum of MXMTBD).
C>
C>        @var idfxyn
C>        Bitwise representations of FXY numbers for master Table D.
C>
C>        @var cdseq
C>        Sequence names corresponding to idfxyn.
C>
C>        @var cdmnem
C>        Mnemonics corresponding to idfxyn.
C>
C>        @var ndelem
C>        Numbers of child descriptors corresponding to idfxyn.
C>
C>        @var idefxy
C>        Bitwise representations of child descriptors corresponding
C>        to idfxyn.

#ifdef DYNAMIC_ALLOCATION
      INTEGER :: nmtb
      INTEGER :: nmtd
      INTEGER, ALLOCATABLE :: ibfxyn(:)
      CHARACTER, ALLOCATABLE :: cbscl(:,:)
      CHARACTER, ALLOCATABLE :: cbsref(:,:)
      CHARACTER, ALLOCATABLE :: cbbw(:,:)
      CHARACTER, ALLOCATABLE :: cbunit(:,:)
      CHARACTER, ALLOCATABLE :: cbmnem(:,:)
      CHARACTER, ALLOCATABLE :: cbelem(:,:)
      INTEGER, ALLOCATABLE :: idfxyn(:)
      CHARACTER, ALLOCATABLE :: cdseq(:,:)
      CHARACTER, ALLOCATABLE :: cdmnem(:,:)
      INTEGER, ALLOCATABLE :: ndelem(:)
      INTEGER, ALLOCATABLE :: idefxy(:)
#else
      INTEGER, BIND(C) :: NMTB
      INTEGER, BIND(C) :: NMTD
      INTEGER, BIND(C) :: IBFXYN(MXMTBB)
      CHARACTER, BIND(C) :: CBSCL(4,MXMTBB)
      CHARACTER, BIND(C) :: CBSREF(12,MXMTBB)
      CHARACTER, BIND(C) :: CBBW(4,MXMTBB)
      CHARACTER, BIND(C) :: CBUNIT(14,MXMTBB)
      CHARACTER, BIND(C) :: CBMNEM(8,MXMTBB)
      CHARACTER, BIND(C) :: CBELEM(120,MXMTBB)
      INTEGER, BIND(C) :: IDFXYN(MXMTBD)
      CHARACTER, BIND(C) :: CDSEQ(120,MXMTBD)
      CHARACTER, BIND(C) :: CDMNEM(8,MXMTBD)
      INTEGER, BIND(C) :: NDELEM(MXMTBD)
      INTEGER, BIND(C) :: IDEFXY(MXMTBD*MAXCD)
#endif

    END MODULE