real :: x,ubarl,vbarp,d2x,d4x
      COMMON/VSCR/ X(ZIXKX),UBARL(ZIXKX),VBARP(ZIXKX),D2X(ZIXKX),
     1D4X(ZIXKX)
!$OMP THREADPRIVATE (/vscr/)
!DIR$ TASKCOMMON vscr
C