| 1 |
cafagna |
1.2 |
C*****Read Gigantic resonance cross-section******************************* |
| 2 |
|
|
subroutine GPGRSIGMA() |
| 3 |
|
|
#include "gpgsigma.inc" |
| 4 |
|
|
|
| 5 |
|
|
open(10,file='Neut1.dat',status='old') |
| 6 |
|
|
do i=1, DATA1 |
| 7 |
|
|
read(10,*) energy1(i), cross1(i), dcross1(i) |
| 8 |
|
|
enddo |
| 9 |
|
|
close(10) |
| 10 |
|
|
open(11,file='Neut2.dat',status='old') |
| 11 |
|
|
do i=1, DATA2 |
| 12 |
|
|
read(11,*) energy2(i), cross2(i), dcross2(i) |
| 13 |
|
|
enddo |
| 14 |
|
|
close(11) |
| 15 |
|
|
open(12,file='Neut3.dat',status='old') |
| 16 |
|
|
do i=1, DATA3 |
| 17 |
|
|
read(12,*) energy3(i), cross3(i), dcross3(i) |
| 18 |
|
|
enddo |
| 19 |
|
|
close(12) |
| 20 |
|
|
|
| 21 |
|
|
end |
| 22 |
|
|
|
Parent Directory
| 
Revision Log