PARAMETER (Nmax  =300000)
      PARAMETER (Nshells  = 100)
      PARAMETER (hubble = 100.d0)
      PARAMETER (Box      = 120.d0)
      PARAMETER ( aMasslimit = 1.d10)
      PARAMETER ( RadLmax = 0.5d0)   ! isolation creterion
      PARAMETER ( Vlimit = 1000.d0)     ! isolation creterion
      PARAMETER ( Vclimit = 60.d0)   ! do not take halos below this
      PARAMETER ( Vcl = 1500.)       ! Vc limit on clusters
      PARAMETER ( Dcl = 3.)       ! Distance limit to clusters
      PARAMETER ( Vratio = 1.)    ! limit Vc for isolated halos
      PARAMETER ( dR = 10.)       ! buffer width for periodic boundaries
      PARAMETER ( pi   = 3.14159265)
      COMMON /DATA/ xc(Nmax),yc(Nmax),zc(Nmax), &
                          vxc(Nmax),vyc(Nmax),vzc(Nmax),  &     
                          vc(Nmax),vrms(Nmax),aMass(Nmax), &
                          Rvir(Nmax),Nbins(Nmax)
      COMMON /ISO/ Liso(Nmax)
      COMMON /DATAP/ rad(Nshells,Nmax),aM(Nshells,Nmax),      &
                    Vdisp(Nshells,Nmax),Vcirc(Nshells,Nmax), &
                    Dens(Nshells,Nmax),Vrad(Nshells,Nmax)
      COMMON /AV/ rdsh(Nshells),aMsh(Nshells),Vdsh(Nshells),Vcsh(Nshells),&
                    Vradsh(Nshells),Dnsh(Nshells)  
      COMMON /SET/Nh,Nhext
      Character Line*79,LineZ*45
      COMMON /ClusterList/ ListCl(Nmax),Nclusters