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