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