*CDK RJH2O2O2                                                                      RJH2O2O2.1       
      COMMON/RJH2O2O2/RJH2O2(KMXP,IMXP)                                            RJH2O2O2.2