real :: gama,z,embar,ak,ep,fk,pk,qk,rk,wkm1,wkm2,wkv1,wkv2,
     |  wks1,wks2,wks3,wks4,embar0,ps0,t1
      COMMON/VSCR/GAMA(ZIMXP,ZKMXP,2,2),Z(ZIMXP,ZKMXP,2),EMBAR(ZIMXP,
     1ZKMXP),    AK(ZIMXP,2,2,2),EP(ZIMXP,2,2),FK(ZIMXP,2),PK(ZIMXP,
     22,2),QK(ZIMXP,2,2), RK(ZIMXP,2,2),WKM1(ZIMXP,2,2),WKM2(ZIMXP,
     32,2),WKV1(ZIMXP,2),WKV2(ZIMXP,2),WKS1(ZIMXP),WKS2(ZIMXP),
     4WKS3(ZIMXP),WKS4(ZIMXP),EMBAR0(ZIMXP),PS0(ZIMXP,2),T1(ZIMXP)
!$OMP THREADPRIVATE (/vscr/)
!DIR$ TASKCOMMON vscr
C