!
! 76*45*15=51300 + 9*76 = 51984
!
      real :: s15,s14,s13,s12,s11,s10,s9,s8,s7,s6,s5,s4,s3,s2,s1,
     |  t1,t2,t3,t4,t5,t6,t7,t8,t9
      COMMON/VSCR/S15(ZIMXP,ZKMXP),S14(ZIMXP,ZKMXP),S13(ZIMXP,ZKMXP),
     BS12(ZIMXP,ZKMXP),S11(ZIMXP,ZKMXP),S10(ZIMXP,ZKMXP),
     AS9(ZIMXP,ZKMXP),S8(ZIMXP,ZKMXP),S7(ZIMXP,ZKMXP),
     1S6(ZIMXP,ZKMXP),S5(ZIMXP,ZKMXP),S4(ZIMXP,ZKMXP),
     2S3(ZIMXP,ZKMXP),S2(ZIMXP,ZKMXP),S1(ZIMXP,ZKMXP),T1(ZIMXP),
     3T2(ZIMXP),T3(ZIMXP),T4(ZIMXP),T5(ZIMXP),T6(ZIMXP),T7(ZIMXP)
     4,T8(ZIMXP),T9(ZIMXP)
!$OMP THREADPRIVATE (/vscr/)
!DIR$ TASKCOMMON vscr
C