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