c
c
c    This defines the pointers and the memory space needed by the 
c    mg pressure subroutines. 
c
c    November 4, 1991
c
c
      INTEGER NGM,NGMAV,MEMLEN,SUMEXP, mem      
      DOUBLE PRECISION z
      DOUBLE PRECISION omega,modif

      PARAMETER (SUMEXP=SZEXP1+SZEXP2+1)
      PARAMETER (NGMAV=SUMEXP/2,NGM=SZEXP,
c     * MEMLEN=44*2**(2*NGMAV)/3+96*2**NGMAV+24*NGMAV-44)
     * MEMLEN=18000000)
      INTEGER ires,irhs,iu,icc,ira,irc,ng,irei,iei,ia,ic,id,ib,iccol
      COMMON /pointers/ ires(NGM),irhs(NGM),iu(NGM),icc(NGM),
     *                   irei(NGM),iei(NGM),ia(NGM),ic(NGM),
     *                  ira(NGM),irc(NGM),ib(NGM),id(NGM),ng,iccol
      COMMON /memory/ z(MEMLEN),omega,modif,mem