PARAMETER (NROW2 = 128)
      PARAMETER (Levels   = 2)
      PARAMETER (Lblock   = 2**(Levels-1))
      PARAMETER (Nblocks=NROW/Lblock)
      PARAMETER (NSPEC = NROW/2)  
      PARAMETER (NSPEC2= NROW2/2)  
      PARAMETER (marr  = NROW+1)   ! Arrays for FFT
      PARAMETER (mf67  = NROW/2)
      COMMON / MASK/ iMask(NROW2,NROW2,NROW2) ! Refinement Mask
      COMMON / GRID/ GRX(NROW,NROW,NROW),   
     +        GRY(NROW,NROW,NROW),    ! Spectrum of Perurbations
     +        GRZ(NROW,NROW,NROW)
      COMMON / GRID2/ GRX2(NROW2,NROW2,NROW2),   
     +        GRY2(NROW2,NROW2,NROW2),    ! Spectrum of Perurbations
     +        GRZ2(NROW2,NROW2,NROW2)
      COMMON / BUFF /	XPt(Nmaxpart),YPt(Nmaxpart),ZPt(Nmaxpart),
     +			VXt(Nmaxpart),VYt(Nmaxpart),VZt(Nmaxpart)
      COMMON / AMPLTS / amplt_CR(Levels),alpha(Levels)