| 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