*CDK CONS                                                                          CONS.1           
      COMMON/CONS/C(120),RMASS(3),T0(KMXP),LEN1,LEN2,LEN3,KMAX,KMAXP1,             CONS.2           
     1EXPS(KMXP),DIFK(KMXP)                                                        CONS.3