copyright (C) 2001  MSC-RPN COMM  %%%MC2%%%

      real uur, vvr, wwr, bbr, ppr
      pointer
     $        (pauur, uur(minx:maxx,miny:maxy,1:gnk)),
     $        (pavvr, vvr(minx:maxx,miny:maxy,1:gnk)),
     $        (pawwr, wwr(minx:maxx,miny:maxy,1:gnk)),
     $        (pabbr, bbr(minx:maxx,miny:maxy,1:gnk)),
     $        (pappr, ppr(minx:maxx,miny:maxy,1:gnk))
      common /wrnmem/ pauur, pavvr, pawwr, pabbr, pappr