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

Contents of /gpamela/gpnd/gpgrsigma.F

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (show annotations) (download)
Thu Nov 30 12:29:31 2006 UTC (18 years ago) by cafagna
Branch: MAIN
CVS Tags: v4r8, v4r9, v4r14, v4r12, v4r13, v4r10, v4r11, HEAD
Changes since 1.1: +22 -22 lines
CARD geometry updated. New S1 "table", legs included, added. Top magnetic screen has been added as well.

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

  ViewVC Help
Powered by ViewVC 1.1.23