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

      subroutine flipnt () 1
      implicit none
*
#include "dynmem.cdk"
*
      integer i,j
*   
      real ppf, uuf, vvf, wwf, bbf, huf, trf
      pointer
     $        (pappf , ppf(minx:maxx,miny:maxy,0:gnk)),
     $        (pauuf , uuf(minx:maxx,miny:maxy,1:gnk)),
     $        (pavvf , vvf(minx:maxx,miny:maxy,1:gnk)),
     $        (pawwf , wwf(minx:maxx,miny:maxy,1:gnk)),
     $        (pabbf , bbf(minx:maxx,miny:maxy,1:gnk)),
     $        (pahuf , huf(minx:maxx,miny:maxy,1:gnk)),
     $        (patrf , trf(minx:maxx,miny:maxy,1:gnk,1:ntr))
*
      pappf = pappm
      pauuf = pauum
      pavvf = pavvm
      pawwf = pawwm
      pabbf = pabbm
      pahuf = pahum
      patrf = patrm

      pappm = papp0
      pauum = pauu0
      pavvm = pavv0
      pawwm = paww0
      pabbm = pabb0
      pahum = pahu0
      patrm = patr0

      papp0 = pappp
      pauu0 = pauup
      pavv0 = pavvp
      paww0 = pawwp
      pabb0 = pabbp
      pahu0 = pahup
      patr0 = patrp

      pappp = pappf
      pauup = pauuf
      pavvp = pavvf
      pawwp = pawwf
      pabbp = pabbf
      pahup = pahuf
      patrp = patrf
*----------------------------------------------------------------------
      return
      end