








































      INTEGER      MAXSEQ, MAXADB, MAXDAC

      PARAMETER    (MAXSEQ = 1000)
      PARAMETER    (MAXADB = 1000)
      PARAMETER    (MAXDAC = 20)

      INTEGER      NAAFIL(MAXSEQ), WIFFAC(MAXSEQ), DATCOL(14,20), 
     +             ICOFDB(MAXSEQ), IH2ODB(MAXSEQ), NBINDB, DRGUNT,
     +             GENVI4(MAXADB,MAXSEQ), INDPNT(MAXSEQ+1), DRGPN2,
     +             TANGLE(4,8), DATLOG, DRGPNT,
     +             ADM3SP(5,MAXSEQ), DRGUN2, IQ7310, IQ7311, IQ7347
      INTEGER*2    ALLSEQ(MAXADB,MAXSEQ), GENVAL(MAXADB,MAXSEQ),
     +             GENEQU(MAXADB*MAXSEQ)
      REAL         GENVR4(MAXADB,MAXSEQ), MAT3SP(3,3,MAXSEQ),
     +             VEC3SP(3,MAXSEQ), GENTR4(MAXSEQ)
      LOGICAL      USE3SP(MAXSEQ), FOR3DM, DATOPE, LASTOK
      CHARACTER*1  FILCNM(MAXSEQ), ALLHST(MAXADB,MAXSEQ)
      CHARACTER*3  TURNAM(8)
      CHARACTER*4  NAMFIL(MAXSEQ), AQ7311
      CHARACTER*20 LOGNAM

      EQUIVALENCE  (GENVI4,GENVR4)
      EQUIVALENCE  (GENTR4,GENVR4)
      EQUIVALENCE  (IQ7311,AQ7311)
      EQUIVALENCE  (GENVAL(1,1),GENEQU(1))

      COMMON      /MXSEQ0/
     +             ALLSEQ

      COMMON      /MXSEQ1/
     +             GENVAL, IQ7310

      COMMON      /MXSEQ2/
     +             NAMFIL, FILCNM, ALLHST, AQ7311

      COMMON      /MXSEQ3/
     +             NBINDB, WIFFAC, NAAFIL, ICOFDB, IH2ODB, DRGUNT,
     +             INDPNT, ADM3SP, DATLOG, DRGPNT, DRGPN2,
     +             DRGUN2, IQ7347

      COMMON      /MXSEQ4/
     +             GENVR4, MAT3SP, VEC3SP

      COMMON      /MXSEQ5/
     +             DATCOL

      COMMON      /MXSEQ6/
     +             TURNAM

      COMMON      /MXSEQ7/
     +             TANGLE

      COMMON      /MXSEQ8/
     +             USE3SP, FOR3DM, DATOPE, LASTOK

      COMMON      /MXSEQ9/
     +             LOGNAM
