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