*CDK RATEBLK2                                                                      RATEBLK2.1       
      COMMON/RATEBLK2/RKK(25,KMXP,IMXP),ALPP(10,KMXP,IMXP),                        RATEBLK2.2       
     1RBB(20,KMXP,IMXP),RKMM(50,KMXP,IMXP)                                         RATEBLK2.3