parameter (NDIFMAX=5)
      parameter (MAXNBR=910000)
      parameter (NMIN=3,NMAX=20)
      parameter (UF=27.21078584d0,RF=0.52917d0)
      parameter (MAXPAR=9)
      parameter (NPTNL=NDIFMAX*(NDIFMAX+1)/2)
      parameter (EPS=2.2204460492503130E-16)
      parameter (MAXATM=1100)
      parameter (MXHERM=MAXATM*(MAXATM+1)/2)
      parameter (MAXVEC=3000)
      parameter (MAXSHL=5000)
      parameter (MAXIND=MAXVEC)
      parameter (MAXTYP=3)
      parameter (MAXPARM=26)
      parameter (NUMPARM=6)
      parameter (TOL=1.0d-12)
      parameter (HARTREE=27.21078584d0)
      parameter (AU=0.52917d0)
      parameter (TOLMOVE=0.5d0)