PARAMETER (NROW =64)      ! maximum number of particles in 1D
      PARAMETER (NGRID =128)      ! zero-level mesh in 1D
                                  ! must be equal to ng in ART
      Integer*8, PARAMETER :: Nmaxpart = 512**3  ! max number of particles for this run
                                  ! Nmaxpart must be less than NROW**3
      PARAMETER (nbyteword = 4)   ! defines length of direct-access:1or4
      PARAMETER (Lblock=4)
      PARAMETER (LevelParticles = 2) 
      DIMENSION ParSet(3,4)
      Character TableNames(4)*80
      !Comological Pars:           h      Omb  Om
      DATA (ParSet(i,1),i=1,3)/0.70,0.049,0.30/  ! LCDM W.HU table
      DATA (ParSet(i,2),i=1,3)/0.73,0.040,0.24/  ! WMAP06
      DATA (ParSet(i,3),i=1,3)/0.70,0.047,0.27/  ! camb Kravtsov
      DATA (ParSet(i,4),i=1,3)/0.73,0.040,0.24/  ! WDM Manoj
      DATA TableNames(1) /'PkTable.dat'/
      DATA TableNames(2) /'pk_EHu_WMAP06.dat'/
      DATA TableNames(3) /'pk_cambWMAP.dat'/
      DATA TableNames(4) /'pk_WDM_20.dat'/