*CDK VSCR                                                                          VSCR.1           
      COMMON/VSCR/S15(IMXP,KMXP),S14(IMXP,KMXP),S13(IMXP,KMXP),                    VSCR.2           
     1S12(IMXP,KMXP),S11(IMXP,KMXP),S10(IMXP,KMXP),S9(IMXP,KMXP),                  VSCR.3           
     2S8(IMXP,KMXP),S7(IMXP,KMXP),S6(IMXP,KMXP),S5(IMXP,KMXP),                     VSCR.4           
     3S4(IMXP,KMXP),S3(IMXP,KMXP),S2(IMXP,KMXP),S1(IMXP,KMXP),T1(IMXP)             VSCR.5           
     4,T2(IMXP),T3(IMXP),T4(IMXP),T5(IMXP),T6(IMXP),T7(IMXP)                       VSCR.6