real PIE,ALPHA,CHBAR,APRMAS,AMUMAS,AELMAS double precision DMUPR2,DMUNE2,DPI,DALPI,DCMOTT,DCTSAI,DP26 double precision DP23,DC1,DC2,DC3,DC4,DC5,DCE,DCM,DCSPEN C CONSANTS COMMON C ...MAS= PARTICLE MASSES COMMON /CONCOM/ PIE,ALPHA,CHBAR,APRMAS,AMUMAS,AELMAS 1 ,DMUPR2,DMUNE2,DPI,DALPI,DCMOTT,DCTSAI,DP26 2 ,DP23,DC1,DC2,DC3,DC4,DC5,DCE,DCM,DCSPEN(14)