copyright (C) 2001  MSC-RPN COMM  %%%MC2%%%
      real alfa, ap1r, nu0b, n02g, gc02
      pointer
     $        (paalfa, alfa(minx:maxx,miny:maxy,1:gnk)),
     $        (paap1r, ap1r(minx:maxx,miny:maxy,1:gnk)),
     $        (panu0b, nu0b(minx:maxx,miny:maxy,1:gnk)),
     $        (pan02g, n02g(minx:maxx,miny:maxy,1:gnk)),
     $        (pagc02, gc02(minx:maxx,miny:maxy,1:gnk))
      common /alfmem/ paalfa, paap1r, panu0b, pan02g, pagc02