*KEEP,CDRESC.
      REAL*4 FLA(6), FLZ(6), EXMASS(6),
     +       CAM4(130),CAM5(200), RMASS(300),
     +       P0(1001),P1(1001),P22(1001),RHO(6),OMEGA(6),
     +       ALPH(300),BET(300)
      COMMON/CDRESC/ IA(6),IZ(6), FLA, FLZ, EXMASS,
     +       CAM4,CAM5, RMASS,
     +       P0,P1,P22,RHO,OMEGA,
     +       ALPH,BET
C