/[PAMELA software]/gpamela/gpnd/gpgrsigma.F
ViewVC logotype

Diff of /gpamela/gpnd/gpgrsigma.F

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by pamela, Mon Jun 5 14:20:12 2006 UTC revision 1.2 by cafagna, Thu Nov 30 12:29:31 2006 UTC
# Line 1  Line 1 
1  C*****Read Gigantic resonance cross-section*******************************  C*****Read Gigantic resonance cross-section*******************************
2        subroutine GPGRSIGMA()        subroutine GPGRSIGMA()
3  #include "gpgsigma.inc"  #include "gpgsigma.inc"
4                        
5        open(10,file='Neut1.dat',status='old')        open(10,file='Neut1.dat',status='old')
6        do i=1, DATA1        do i=1, DATA1
7        read(10,*) energy1(i), cross1(i), dcross1(i)        read(10,*) energy1(i), cross1(i), dcross1(i)
8        enddo        enddo
9        close(10)        close(10)
10        open(11,file='Neut2.dat',status='old')        open(11,file='Neut2.dat',status='old')
11        do i=1, DATA2        do i=1, DATA2
12        read(11,*) energy2(i), cross2(i), dcross2(i)        read(11,*) energy2(i), cross2(i), dcross2(i)
13        enddo        enddo
14        close(11)        close(11)
15        open(12,file='Neut3.dat',status='old')        open(12,file='Neut3.dat',status='old')
16        do i=1, DATA3        do i=1, DATA3
17        read(12,*) energy3(i), cross3(i), dcross3(i)        read(12,*) energy3(i), cross3(i), dcross3(i)
18        enddo        enddo
19        close(12)        close(12)
20                                        
21        end        end
22    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.23