/[PAMELA software]/DarthVader/ToFLevel2/src/rdtofcal.for
ViewVC logotype

Diff of /DarthVader/ToFLevel2/src/rdtofcal.for

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

revision 1.4 by mocchiut, Thu Nov 9 17:05:48 2006 UTC revision 1.8 by mocchiut, Wed Nov 23 21:19:38 2011 UTC
# Line 1  Line 1 
1  C------------------------------------------------  C------------------------------------------------
2        FUNCTION RDTOFCAL(calname,cnlen)        REAL FUNCTION RDTOFCAL(calname,cnlen)
3  C------------------------------------------------  C------------------------------------------------
4    
5        include 'input_tof.txt'        include 'input_tof.txt'
6    
7  c----- HBOOK  c----- HBOOK
8        INTEGER HMEM        INTEGER HMEM
9    c      REAL RDTOFCAL
10        parameter (NWPAWC=8500000)        parameter (NWPAWC=8500000)
11        common/PAWC/HMEM(NWPAWC)        common/PAWC/HMEM(NWPAWC)
12    
# Line 28  C Line 29  C
29    
30        INTEGER lrec        INTEGER lrec
31        INTEGER istat, ierr, icycle        INTEGER istat, ierr, icycle
32    
33    c      REAL x_coor_lin11(8,2),y_coor_lin12(6,2)
34        PARAMETER (lrec=4096)        PARAMETER (lrec=4096)
35    
36  C-------------------------------------------------------------------------  C-------------------------------------------------------------------------
# Line 36  c     HBOOK initialization Line 39  c     HBOOK initialization
39  c  c
40  c------------------------------------------------------------------------  c------------------------------------------------------------------------
41    
42          RDTOFCAL = 0.
43        call HLIMIT(NWPAWC)        call HLIMIT(NWPAWC)
44    
45  c------------------------------------------------------------------------  c------------------------------------------------------------------------
# Line 95  C-------------- Line 99  C--------------
99    
100          call HBNAME(ntp_tofcalib,'TOFLIN11',y_coor_lin11,'$SET')          call HBNAME(ntp_tofcalib,'TOFLIN11',y_coor_lin11,'$SET')
101          call HBNAME(ntp_tofcalib,'TOFLIN12',x_coor_lin12,'$SET')          call HBNAME(ntp_tofcalib,'TOFLIN12',x_coor_lin12,'$SET')
102    c        call HBNAME(ntp_tofcalib,'TOFLIN11',x_coor_lin11,'$SET')
103    c        call HBNAME(ntp_tofcalib,'TOFLIN12',y_coor_lin12,'$SET')
104          call HBNAME(ntp_tofcalib,'TOFLIN21',x_coor_lin21,'$SET')          call HBNAME(ntp_tofcalib,'TOFLIN21',x_coor_lin21,'$SET')
105          call HBNAME(ntp_tofcalib,'TOFLIN22',y_coor_lin22,'$SET')          call HBNAME(ntp_tofcalib,'TOFLIN22',y_coor_lin22,'$SET')
106          call HBNAME(ntp_tofcalib,'TOFLIN31',y_coor_lin31,'$SET')          call HBNAME(ntp_tofcalib,'TOFLIN31',y_coor_lin31,'$SET')
# Line 120  c        call HPRNTU(ntp_tofcalib) Line 126  c        call HPRNTU(ntp_tofcalib)
126    
127          do iev=1,iemax_cal          do iev=1,iemax_cal
128             call HGNT(ntp_tofcalib,iev,ierr) !reads an event             call HGNT(ntp_tofcalib,iev,ierr) !reads an event
129    c           print *,' ierr ',ierr
130          enddo          enddo
131    
132          call hrout(ntp_tofcalib,icycle,' ')          call hrout(ntp_tofcalib,icycle,' ')
133          call hrend('TOFK1131')          call hrend('TOFK1131')
134          close(0)          close(0)
135    
136           return          return
137          end          end
138    
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.23