pkg/rw/RW_MFLDS.h

C $Header:  $
C $Name:  $

C     !ROUTINE: RW_MFLDS.h
C     !INTERFACE:
C     include "RW_MFLDS.h"
C     !DESCRIPTION:
C     \bv
C     *==========================================================*
C     | RW_MFLDS.h
C     | o Variables used for reading Multi-Fields files (+ meta-file)
C     *==========================================================*
C     | This block allows to shared information across threads
C     |  and between READ_MFLDS subroutines
C     *==========================================================*
C     \ev

C     sizFldList :: dimension of field-list arrays
      INTEGER  sizFldList
      PARAMETER( sizFldList = 100 )

C--   COMMON / RW_MFLDS_I / Integer valued MFLDS variables.
C     thirdDim  :: 3rd dimension of fields in current MFLDS file
C     nFl3D     :: Number of 3-D fields in current MFLDS file
C     nFlds     :: Number of fields (3D+2D) in current MFLDS file
C     nMissFld  :: Number of missing fields (attempted to read but not found)
      COMMON / RW_MFLDS_I /
     &        thirdDim, nFl3D, nFlds, nMissFld

      INTEGER thirdDim
      INTEGER nFl3D
      INTEGER nFlds
      INTEGER nMissFld

C--   COMMON / RW_MFLDS_C / Character valued MFLDS variables.
C     mFldsFile :: current MFLDS file name
C     fldList   :: list of fields in current MFLDS file
C     fldMiss   :: list of missing fields (attempted to read but not found)
      COMMON / RW_MFLDS_C /
     &        mFldsFile, fldList, fldMiss
      CHARACTER*(MAX_LEN_FNAM) mFldsFile
      CHARACTER*(8) fldList(sizFldList)
      CHARACTER*(8) fldMiss(sizFldList)

C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
1	C $Header: $
2	C $Name: $
3
4	C !ROUTINE: RW_MFLDS.h
5	C !INTERFACE:
6	C include "RW_MFLDS.h"
7	C !DESCRIPTION:
8	C \bv
9	C ==========================================================
10	C \| RW_MFLDS.h
11	C \| o Variables used for reading Multi-Fields files (+ meta-file)
12	C ==========================================================
13	C \| This block allows to shared information across threads
14	C \| and between READ_MFLDS subroutines
15	C ==========================================================
16	C \ev
17
18	C sizFldList :: dimension of field-list arrays
19	INTEGER sizFldList
20	PARAMETER( sizFldList = 100 )
21
22	C-- COMMON / RW_MFLDS_I / Integer valued MFLDS variables.
23	C thirdDim :: 3rd dimension of fields in current MFLDS file
24	C nFl3D :: Number of 3-D fields in current MFLDS file
25	C nFlds :: Number of fields (3D+2D) in current MFLDS file
26	C nMissFld :: Number of missing fields (attempted to read but not found)
27	COMMON / RW_MFLDS_I /
28	& thirdDim, nFl3D, nFlds, nMissFld
29
30	INTEGER thirdDim
31	INTEGER nFl3D
32	INTEGER nFlds
33	INTEGER nMissFld
34
35	C-- COMMON / RW_MFLDS_C / Character valued MFLDS variables.
36	C mFldsFile :: current MFLDS file name
37	C fldList :: list of fields in current MFLDS file
38	C fldMiss :: list of missing fields (attempted to read but not found)
39	COMMON / RW_MFLDS_C /
40	& mFldsFile, fldList, fldMiss
41	CHARACTER*(MAX_LEN_FNAM) mFldsFile
42	CHARACTER*(8) fldList(sizFldList)
43	CHARACTER*(8) fldMiss(sizFldList)
44
45	C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|