cCDK CCOMP CCOMP.1 COMMON/ccomp/GAMA(ZIMXP,ZKMXP,2,2),Z(ZIMXP,ZKMXP,2),EMBAR(ZIMXP, CCOMP.2 1ZKMXP), AK(ZIMXP,2,2,2),EP(ZIMXP,2,2),FK(ZIMXP,2),PK(ZIMXP, CCOMP.3 22,2),QK(ZIMXP,2,2), RK(ZIMXP,2,2),WKM1(ZIMXP,2,2),WKM2(ZIMXP, CCOMP.4 32,2),WKV1(ZIMXP,2),WKV2(ZIMXP,2),WKS1(ZIMXP),WKS2(ZIMXP), CCOMP.5 4WKS3(ZIMXP),WKS4(ZIMXP),EMBAR0(ZIMXP),PS0(ZIMXP,2),T1(ZIMXP) CCOMP.6 CCOMP.7