





























      INTEGER       NQAMFR, NQAAPF, NQASZ,  NQAHAT, NQAH2O, NQAANY,
     +              NQANST, NQAIGN, NQAMPS, NQANRT, NQAMBX, NQANAC,
     +              NQASZ3, NQABAZ, NQAVAT, NQAMVA
      REAL          NQAGRD, NQADST, NQASTR, NQADS2, NQATCH, NQAMSC,
     +              NQACLS

      PARAMETER     (NQANAC=10)
      PARAMETER     (NQAMFR=77)
      PARAMETER     (NQAAPF=12)
      PARAMETER     (NQASZ=11)
      PARAMETER     (NQAHAT=200)
      PARAMETER     (NQAVAT=169)
      PARAMETER     (NQAIGN=999999)
      PARAMETER     (NQANST=3)
      PARAMETER     (NQAMPS=40)
      PARAMETER     (NQANRT=20)
      PARAMETER     (NQAGRD=1.1)
      PARAMETER     (NQATCH=1.25)
      PARAMETER     (NQAMSC=6E+6)
      PARAMETER     (NQACLS=2.5)



      PARAMETER     (NQAH2O=NQAVAT)
      PARAMETER     (NQAANY=NQAVAT-1)
      PARAMETER     (NQADST=NQASZ*NQAGRD/2.0)
      PARAMETER     (NQADS2=NQADST**2)
      PARAMETER     (NQASTR=-NQADST+0.5*NQAGRD)
      PARAMETER     (NQAMBX=(NQAHAT+1)*NQAMFR*NQANST)
      PARAMETER     (NQASZ3=NQASZ**3)
      PARAMETER     (NQABAZ=NQASZ3*(NQAHAT+1)*NQANST)
      PARAMETER     (NQAMVA=NQAHAT-NQAVAT)


















      INTEGER     NQANF, NQARTP(NQAMFR), NQANAT(NQAMFR), NQANBX, 
     +            NQAIAT(NQAAPF,NQAMFR), NQAATT(MAXTAT,NUMUA), NQAATC,
     +            NQABDB(NQAMFR,NQANST,0:NQAHAT),
     +            NQAACN(0:NQAHAT,NQANST), NQASFR(NQANRT),
     +            NQAEFR(NQANRT), NQAIRT(0:NQAHAT), NQARECL, NQANMSK,
     +            NQAFRQ(NQANRT), NQAVCL(NQAMVA), NQANVA
      CHARACTER*8 NQAREV(0:NQAHAT),NQAVNM(NQAMVA)



      REAL        NQASC(NQAMFR,NQANST,0:NQAHAT)







      REAL        NQARSC(MAXAA), NQAXBB(MAXAA),
     +            NQAXBS(MAXAA), NQAXSB(MAXAA), NQAXSS(MAXAA)




      REAL        NQASAV(10), NQAAVE(10,NQANRT,NQANST,NQANAC)





      LOGICAL     NQAMSK(NQASZ,NQASZ,NQASZ),NQAIBB(NQAMFR),
     +            NQAMSK1(NQASZ3),NQAJBB(0:NQAHAT)
      EQUIVALENCE (NQAMSK1,NQAMSK)














      INTEGER       NQANC, NQAIC, NQACP, NQAIP(NQAMBX)
      PARAMETER     (NQANC=2*NQANST*(NQAHAT+1))

      INTEGER       NQACN(NQANC), BOXUNT
      BYTE          NQACB(NQASZ3,NQANC)



      COMMON /NQAI/ NQANF, NQARTP, NQANAT, NQAIAT, NQAATT, NQAATC,
     +              NQANBX, NQAIC, NQACN, NQACP, NQAFRQ, NQAVCL, NQANVA,
     +              NQASFR, NQAEFR, NQAIRT, NQAACN, NQARECL, NQANMSK
      COMMON /NQAQ/ BOXUNT
      COMMON /NQAC/ NQAREV, NQAVNM
      COMMON /NQAR/ NQASAV
      COMMON /NQAL/ NQAMSK, NQAIBB, NQAJBB



      INTEGER       NQAESP0, NQAESP1, NQAESP3, NQAESP4,
     +              NQAESPZ
      PARAMETER     (NQAESP0=500001+16*MAXSP+5000)



      EQUIVALENCE   (ESPACE(NQAESP0),NQACB)
      PARAMETER     (NQAESP1=NQAESP0+NQASZ3*NQANC/4+1)
      EQUIVALENCE   (ESPACE(NQAESP1+0*NQAMBX),NQABDB)
      EQUIVALENCE   (ESPACE(NQAESP1+1*NQAMBX),NQAIP)
      EQUIVALENCE   (ESPACE(NQAESP1+2*NQAMBX),NQASC)
      PARAMETER     (NQAESP3=NQAESP1+3*NQAMBX)
      EQUIVALENCE   (ESPACE(NQAESP3),NQAAVE)
      PARAMETER     (NQAESP4=NQAESP3+10*NQANRT*NQANST*NQANAC)
      EQUIVALENCE   (ESPACE(NQAESP4+0*MAXAA),NQARSC)
      EQUIVALENCE   (ESPACE(NQAESP4+1*MAXAA),NQAXBB)
      EQUIVALENCE   (ESPACE(NQAESP4+2*MAXAA),NQAXBS)
      EQUIVALENCE   (ESPACE(NQAESP4+3*MAXAA),NQAXSB)
      EQUIVALENCE   (ESPACE(NQAESP4+4*MAXAA),NQAXSS)
      PARAMETER     (NQAESPZ=NQAESP4+5*MAXAA)



      INTEGER       TOTAVE, TOTSTD, BBAVE, BBSTD, BSAVE,
     +              BSSTD, SBAVE, SBSTD, SSAVE, SSSTD
      PARAMETER     (TOTAVE=1)
      PARAMETER     (TOTSTD=2)
      PARAMETER     (BBAVE=3)
      PARAMETER     (BBSTD=4)
      PARAMETER     (BSAVE=5)
      PARAMETER     (BSSTD=6)
      PARAMETER     (SBAVE=7)
      PARAMETER     (SBSTD=8)
      PARAMETER     (SSAVE=9)
      PARAMETER     (SSSTD=10)

