



























































































































      INTEGER       MAXBAA,   MAXBAL,   MAXSAA,   MAXSEA,   FILNAL,
     +              MAXSGR,   NUMSGR,   MAXPRF,   MAXHEL,   MAX7GR






      PARAMETER     (MAXBAA=2700)
      PARAMETER     (MAXBAL=10000)
      PARAMETER     (MAXSAA=60000)
      PARAMETER     (MAXSEA=1000)
      PARAMETER     (MAXSGR=50)
      PARAMETER     (NUMSGR=6)
      PARAMETER     (MAXPRF=1000)
      PARAMETER     (MAXHEL=20)
      PARAMETER     (MAX7GR=25)
      PARAMETER     (FILNAL=12)

      INTEGER       ISEQ1(MAXBAL),    ISEQ2(MAXBAL),  
     +              OSEQ1(MAXBAL),    OSEQ2(MAXBAL),  
     +              INSQ1(MAXBAL),    INSQ2(MAXBAL), 
     +              LOC_REC(MAXBAL),  LOC_ORG(MAXBAL), 
     +              ISEQP(MAXBAA),    ORG_LEN, 
     +              FILTYP_REC,       IAACOLSEQ(22), 
     +              VARWGT(MAXBAA),   HASHROW(MAXSAA),
     +              NUMTOT1, NUMSEQ1, ORGLEN1,
     +              NUMTOT2, NUMSEQ2, ORGLEN2, 
     +              NOCC(MAXBAA),     WERUNT, HAVSEE,
     +              NUMTOT_REC,       TIMUNT, CTRUNT,
     +              LENPROF,          NUMSEQ_REC, 
     +              NUMSSTR,          ALI_HI, ALIHI

      INTEGER       PRECORD(200+6*MAXBAA+22*MAXBAA)

      INTEGER       IQ7410, IQ7411, IQ7412, IQ7413, IQ7414, IQ7415, 
     +              IQ7416, IQ7417, IQ7418, IQ7419, IQ7420, IQ7421, 
     +              IQ7422, IQ7423, IQ7424, IQ7425, IQ7426, IQ7427,
     +              IQ7428, IQ7429, IQ7430, IQ7431, IQ7432, IQ7433,
     +              IQ7434, IQ7435, IQ7436, IQ7437, IQ7438, IQ7439
      CHARACTER*4   AQ7435, AQ7436, AQ7437, AQ7438
      EQUIVALENCE   (IQ7435,AQ7435)
      EQUIVALENCE   (IQ7436,AQ7436)
      EQUIVALENCE   (IQ7437,AQ7437)
      EQUIVALENCE   (IQ7438,AQ7438)

      REAL          OPEN1(MAXBAL),       OPEN2(MAXBAL),
     +              ELON1(MAXBAL),       ELON2(MAXBAL),
     +              MYMAT(20,20),        WALPRF(22,MAXBAA),
     +              SEQWGT(MAXSAA),
     +              ENTROPY(MAXBAA),     VARIABILITY(MAXBAA),
     +              PRETYY,              LENTROPY(MAXBAA),
     +              E12Y, E23Y, V12, V23, E12L, E23L

      LOGICAL       SEQTAG(MAXSAA),  RESSKIP(MAXSAA), USEARB(MAXBAA)

      CHARACTER*240 TITLE_REC, TITLE1, TITLE2
      CHARACTER*80  FILE_REC, FILNAM1, FILNAM2, FILNAMP, TITLEP, SWSQ
      CHARACTER*22  AADEL, AASML
      CHARACTER*20  SEASTR(MAXSEA), HENTXT(MAXHEL,MAX7GR)
      CHARACTER*10  ACCNUM1, ACCNUM2, ACC_REC
      CHARACTER*4   ARBNBR(MAXBAA), ARBNAM(MAXBAA), BARTHM(2,100),  
     +              HEND(2,MAXHEL,MAX7GR)
      CHARACTER*3   GRPEND(MAX7GR)
      CHARACTER*2   VEBOX(MAXBAA)
      CHARACTER*1   CMCODE(MAXSAA), SGRDAT(MAXSGR,NUMSGR)
      BYTE          WRECORD(8*MAXBAL+440)

      EQUIVALENCE   (WRECORD(1),           FILE_REC)
      EQUIVALENCE   (WRECORD(81),          TITLE_REC)
      EQUIVALENCE   (WRECORD(321),         NUMSEQ_REC)
      EQUIVALENCE   (WRECORD(325),         NUMTOT_REC)
      EQUIVALENCE   (WRECORD(329),         FILTYP_REC)
      EQUIVALENCE   (WRECORD(333),         ORG_LEN)
      EQUIVALENCE   (WRECORD(337),         ALIHI)
      EQUIVALENCE   (WRECORD(351),         ACC_REC)
      EQUIVALENCE   (WRECORD(361),         SWSQ)
      EQUIVALENCE   (WRECORD(441),         LOC_REC(1))
      EQUIVALENCE   (WRECORD(441+4*MAXBAL),LOC_ORG(1))

      EQUIVALENCE   (RESSKIP(1),           HASHROW(1))

      COMMON /WALIGN1/ 
     +              MYMAT,  IQ7410, OPEN1,  OPEN2,  IQ7411,  ELON1,
     +              ELON2,  IQ7412, WALPRF, IQ7413, SEQWGT, 
     +              PRETYY, E12Y, E23Y, V12, V23, E12L, E23L, IQ7414

      COMMON /WALIGN2/
     +              ISEQ1,   ISEQ2,   IQ7415,  OSEQ1,   OSEQ2,
     +              IQ7416,  ISEQP,   IQ7417,  INSQ1,   INSQ2,   
     +              IQ7418,  LENPROF, IQ7419,  CTRUNT,  VARIABILITY,
     +              NUMSSTR, ALI_HI,  VARWGT,  IQ7420,  ENTROPY, 
     +              NUMTOT1, NUMSEQ1, IQ7421,  ORGLEN1, LENTROPY,
     +              NUMTOT2, NUMSEQ2, ORGLEN2, IQ7422,  HAVSEE,
     +              NOCC,    IQ7423,  WERUNT,  TIMUNT,  IAACOLSEQ

      COMMON /WALIGN2A/
     +              ARBNBR,  ARBNAM,  BARTHM, IQ7424,  HEND,   HENTXT

      COMMON /WALIGN3/ 
     +              WRECORD, IQ7425

      COMMON /WALIGN3/ 
     +              PRECORD, IQ7426

      COMMON /WALIGN5/ 
     +              SEQTAG,  IQ7428,  RESSKIP, IQ7439, USEARB, IQ7429

      COMMON /WALIGN6/ 
     +              SGRDAT,  IQ7427 

      COMMON /WALIGN7/ 
     +              FILNAM1, IQ7430,  FILNAM2, IQ7431, TITLE1, IQ7432,
     +              TITLE2,  IQ7433,  FILNAMP, IQ7434

      COMMON /WALIGN8/ 
     +              TITLEP,  AQ7435,  SEASTR,  AADEL,  AASML,  AQ7436,  
     +              ACCNUM1, ACCNUM2, AQ7437

      COMMON /WALIGN9/ 
     +              CMCODE, AQ7438

      COMMON /WALIGN10/ 
     +              GRPEND

      COMMON /WALIGN11/ 
     +              VEBOX
