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