!
! ZIXKX = LEN3 = ZIMXP*ZKMXP
!
      real :: d2u,d4u,dvc
      COMMON/VSCR/ D2U(ZIXKX),D4U(ZIXKX),DVC(ZIXKX)
!$OMP THREADPRIVATE (/vscr/)
!DIR$ TASKCOMMON vscr
C