*CDK VSCR2                                                                         VSCR2.1          
      COMMON/VSCR/GAMA(IMXP,KMXP,2,2),Z(IMXP,KMXP,2),EMBAR(IMXP,                   VSCR2.2          
     1KMXP),AK(IMXP,2,2,2),EP(IMXP,2,2),FK(IMXP,2),PK(IMXP,                        VSCR2.3          
     22,2),QK(IMXP,2,2), RK(IMXP,2,2),WKM1(IMXP,2,2),WKM2(IMXP,                    VSCR2.4          
     32,2),WKV1(IMXP,2),WKV2(IMXP,2),WKS1(IMXP),WKS2(IMXP),WKS3(IMXP),             VSCR2.5          
     4EMBAR0(IMXP),PS0(IMXP,2)                                                     VSCR2.6