!
      integer :: ifn
      real :: phi,phifun,colat,alon,wk1,sinlat,coslat,sinlon,coslon,
     |  wk2,wk3
      COMMON/CFLOWV3/
     1  PHI(ZIMX,8),IFN(ZIMX),
     2  PHIFUN(ZIMX),COLAT(ZIMX),ALON(ZIMX),WK1(ZIMX),SINLAT(ZIMX),
     3  COSLAT(ZIMX),SINLON(ZIMX),COSLON(ZIMX),WK2(ZIMX),WK3(ZIMX)
!$OMP THREADPRIVATE (/cflowv3/)
!DIR$ TASKCOMMON CFLOWV3
C