C
C  NAME - CDBINFO
C
C  LANGUAGE - FORTRAN 77  TYPE - COMMON BLOCK  COMPUTER - CRAY F90
C
C  VERSION 1.0  DATE -  MAY 97  PROGRAMMER - DORLISA HOMMEL, HSTX
C  VERSION 1.1  DATE - 11/6/97  PROGRAMMER - LEAH WILSON, HSTX
C
C  FUNCTION - THIS COMMON BLOCK CONTAINS THE ARRAYS WHICH CONTAIN
C             ASSISTANT TABLE INFORMATION ASSOCIATED WITH EACH CDB 
C             COEFFICIENT.
C
C  COMMON CDBINFO
C
C        VARIABLE    TYPE   DESCRIPTION
C        --------    ----  ---------------------------------------------
C        RECORD      INT   ARRAY CONTAINING ALL RECORD NUMBERS IN THE AS
C        OFFSET      INT   ARRAY CONTAINING OFFSETS FROM THE BEGINNING O
C                          THE SPECIFIED COEFFICIENT DATA BEGINS.
C        DIM0        INT   ARRAY CONTAINING FIRST DIMENSIONS OF THE COEF
C        DIM1        INT   ARRAY CONTAINING SECOND DIMENSIONS OF THE COE
C        DIM2        INT   ARRAY CONTAINING THIRD DIMENSIONS OF THE COEF
C        DIM3        INT   ARRAY CONTAINING FOURTH DIMENSIONS OF THE COE
C	 DTYPE       INT   ARRAY CONTAINING THE COEFFICIENT DATA TYPE
C        SCALE       INT   ARRAY CONTAINING SCALING FACTORS
C        KDUNIT      INT   KIDS FILE UNIT NUMBER
C        CINDX       INT   NUMBER OF CDB'S OPEN AT ONE TIME. 
C        CDBINDX     INT   INDEX OF WHICH CDB IS BEING READ/WRITTEN TO.
C        ARRAYSZ     INT   SIZE OF RARRAY,IARRAY, AND CARRAY IN
C                          REALCOEF, INTCOEF, AND CHARCOEF SUBROUTINES.
C        CDBFLAG    CHAR   INITIALIZES CDBINDX IN OPENCDB.F.
C
C  COMMON CDBNAMES
C
C        GROUP      CHAR*8 ARRAY CONTAINING GROUP NAMES IN THE CDB.
C        SUBGROUP   CHAR*8 ARRAY CONTAINING SUBGROUP NAMES IN THE CDB.
C        COEFF      CHAR*8 ARRAY CONTAINING COEFFICIENT NAMES IN THE CDB.
C        PROGNAME   CHAR*8 CALLING PRGRAM NAME PASSED TO KIDS FILE. 
C
C  INCLUDE PARAMETERS
C
C        RECLNGTH    INT   CDB RECORD LENGTH       
C        BUFFER      CHAR  CDB CHARACTER ARRAY USED TO HOLD EACH RECORD
C
C **********************************************************************

      COMMON  /CDBINFO/RECORD, OFFSET, DIM0, DIM1, DIM2, DIM3, DTYPE, 
     +        SCALE, KDUNIT, CINDX, CDBINDX, CDBFLG, COFCOUNT
      COMMON  /CDBNAMES/GROUP, SUBGROUP, COEFF, PROGNAME

      INTEGER RECLNGTH, TOTCDBS, CDBFLG, CINDX,CDBINDX,KDUNIT,ARRAYSZ

      PARAMETER (RECLNGTH = 23472, TOTCDBS = 3, ARRAYSZ=5500) 

      INTEGER RECORD(3300,TOTCDBS), OFFSET(3300,TOTCDBS), DTYPE(3300,
     +        TOTCDBS), DIM0(3300,TOTCDBS), DIM1(3300,TOTCDBS), 
     +        DIM2(3300,TOTCDBS), DIM3(3300,TOTCDBS), SCALE(3300,
     +        TOTCDBS), COFCOUNT(TOTCDBS)

      CHARACTER*1 BUFFER(RECLNGTH)
      CHARACTER*8 GROUP(3300,TOTCDBS), SUBGROUP(3300,TOTCDBS),
     +            COEFF(3300,TOTCDBS), PROGNAME

C ******************** END OF COMMON BLOCK *****************************