gpamela/gpcalordes/cdresc.inc

*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
1	cafagna	1.1	*KEEP,CDRESC.
2			REAL*4 FLA(6), FLZ(6), EXMASS(6),
3			+ CAM4(130),CAM5(200), RMASS(300),
4			+ P0(1001),P1(1001),P22(1001),RHO(6),OMEGA(6),
5			+ ALPH(300),BET(300)
6			COMMON/CDRESC/ IA(6),IZ(6), FLA, FLZ, EXMASS,
7			+ CAM4,CAM5, RMASS,
8			+ P0,P1,P22,RHO,OMEGA,
9			+ ALPH,BET
10			C