c      IMPLICIT double precision (A-H,O-Z)
      PARAMETER (Nmax  =1000000)
      PARAMETER (Nshells  = 100)
      PARAMETER (Nshell2  = 2*Nshells)
      PARAMETER (hubble = 100.d0)
      PARAMETER (Box      = 20.d0)
      PARAMETER ( aMasslimit = 3.d7)
      PARAMETER ( Radlimit = 350.d0)
      PARAMETER ( RadLmax = 0.5d0)
      PARAMETER ( Vlimit = 1000.d0)
      PARAMETER ( Vclimit = 15.d0)
      PARAMETER ( Vcl = 200.)       ! Vc limit on clusters
      COMMON /DATA/ xc(Nmax),yc(Nmax),zc(Nmax),
     &                     vxc(Nmax),vyc(Nmax),vzc(Nmax),      
     &              rhalo(Nmax),vc(Nmax),vrms(Nmax),aMass(Nmax)
      COMMON /SET/Nh,Next,Np,NpBox
      Character Line*79,LineZ*45
      COMMON /PrimariesList/ ListCl(Nmax),Nprimaries