*CDK VSCR3                                                                         VSCR3.1          
      COMMON/VSCR/WK1(KMXP,IMXP),WK2(KMXP,IMXP),WK3(KMXP,IMXP),                    VSCR3.2          
     1  WK4(KMXP,IMXP),WK5(KMXP,IMXP),WK6(KMXP,IMXP),WK7(KMXP,IMXP),               VSCR3.3          
     2  WK8(KMXP,IMXP),WK9(KMXP,IMXP),WK10(KMXP,IMXP),WK11(KMXP,IMXP),             VSCR3.4          
     3  WK12(KMXP,IMXP),WK13(KMXP,IMXP)                                            VSCR3.5