      integer NCHEM, NPX, NPX1, NEQN
      parameter (NCHEM=5, NPX=100, NPX1=NPX+1, NEQN=NCHEM*NPX)
      integer NWORK, TOTLEN
      parameter (NWORK=NEQN*NEQN+17*NEQN, TOTLEN=2*NWORK+NEQN)
      integer NCON,NMODE,NTRAN,MAXDAT,MAXMAS
      parameter (NCON=NPX*3,NMODE=3,NTRAN=NCHEM*7,MAXDAT=13)
      parameter (MAXMAS=200)
      integer LENREC
      parameter (LENREC=512)
      integer VARCEC,VARIEC,VARREC,VARDEC
      parameter (VARCEC=512,VARIEC=128,VARREC=128,VARDEC=64)
      integer FILDAT
      parameter (FILDAT=57)
