1 |
* |
2 |
* Gigantic resonance cross sections |
3 |
* |
4 |
PARAMETER(DATA1=64, DATA2=62, DATA3=27) |
5 |
C energies, cross-sections and errors for 1 neutron case |
6 |
real energy1(DATA1), cross1(DATA1), dcross1(DATA1), |
7 |
c energies, cross-sections and errors for 2 neutrons case |
8 |
+ energy2(DATA2), cross2(DATA2), dcross2(DATA2), |
9 |
c energies, cross-sections and errors for 3 neutrons case |
10 |
+ energy3(DATA3), cross3(DATA3), dcross3(DATA3) |
11 |
common/gpgsigma/energy1, cross1, dcross1, |
12 |
+ energy2, cross2, dcross2, |
13 |
+ energy3, cross3, dcross3 |