1 |
pamela |
1.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 |