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	*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