C---------------------------- parameters for PMselect.f --------
C
C       Np    - max number of halos
C       Nrmax - mx number of shells for a halo
C
      PARAMETER (Np    = 500 000)  
      PARAMETER (Nrmax =   120) !Number of shells for  profile
      PARAMETER (Riso  =    2.) ! radius for isolated halo in Rvirs
      PARAMETER (aMiso =    5.) ! mass ratio for isolation
      COMMON /CAT/ Xp(Np),Yp(Np),Zp(Np),VXp(Np),VYp(Np),VZp(Np)
      COMMON /ADD/ aM(Np),Radh(Np),Vrms(Np),Vcirc(Np),
     +             Npart(Np),Rmax(Np),Conc(Np),Nlines(Np),
     +             nlarge(Np)  
      COMMON /PRFa/ Rpr(Nrmax,Np),Npr(Nrmax,Np),
     +             Vcpr(Nrmax,Np),RHOpr(Nrmax,Np)
      COMMON /PRFb/ Vrpr(Nrmax,Np),
     +             bM(Nrmax,Np),Dpr(Nrmax,Np),Vdpr(Nrmax,Np)
      COMMON/SEL/ aMass, dM, X0, Y0, Z0, dR, Cc, dCc