c***********************************************************************
c     This section defines the pointers and the memory space needed
c     by the multigrid pressure subroutines
c***
CC      INTEGER NGM,NN3,NN2,NN1,MEMLEN,mem
      INTEGER NGM,MEMLEN,mem      
c***
c     memory necessary for a cube of side: 2**NGM+2
c***
c---      PARAMETER (NGM=7)
c---      PARAMETER (NN3=(2**(3*NGM)-1)/7,NN2=2**(2*NGM),NN1=2**NGM)
c---      PARAMETER (MEMLEN=64*NN3 + 64*NN2 + 192*NN1 + 72*NGM)
c***
c     memory for a box : 130x66x66: 5246832
c     memory for a box : 258x130x130: 40128440
c***
      PARAMETER (MEMLEN=5246832, NGM=7)
c      PARAMETER (MEMLEN=5246832, NGM=6)
C---      PARAMETER (MEMLEN=5246832, NGM=7)
c---      PARAMETER (MEMLEN=40128440, NGM=8)
      INTEGER icc(NGM),iu(NGM),ires(NGM),irhs(NGM),ia(NGM),ib(NGM),
     %         ic(NGM),iei(NGM),ng
      DOUBLE PRECISION z(MEMLEN)
      COMMON /pointers/ icc,iu,ires,irhs,ia,ib,ic,iei,ng
      COMMON /memory/ z, mem