/[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.3 by mocchiut, Fri Nov 3 13:01:16 2006 UTC revision 1.6 by mocchiut, Tue Aug 4 14:56:57 2009 UTC
# Line 1  Line 1 
1  C------------------------------------------------  C------------------------------------------------
2        FUNCTION RDTOFCAL(calname)        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 16  c--------------------------------------- Line 17  c---------------------------------------
17        character*250 calname        character*250 calname
18        character*250 calname1        character*250 calname1
19  c      character ch  c      character ch
20        character*2 ch2  c      character*2 ch2
21          integer cnlen
22  c------------------------------------------------------------------  c------------------------------------------------------------------
23    
24        COMMON/QUEST/IQUEST(100)        COMMON/QUEST/IQUEST(100)
# Line 35  c     HBOOK initialization Line 37  c     HBOOK initialization
37  c  c
38  c------------------------------------------------------------------------  c------------------------------------------------------------------------
39    
40          RDTOFCAL = 0.
41        call HLIMIT(NWPAWC)        call HLIMIT(NWPAWC)
42    
43  c------------------------------------------------------------------------  c------------------------------------------------------------------------
# Line 48  c       enddo   Line 51  c       enddo  
51  c100   continue  c100   continue
52  c      calname1 = calname(1:ii)//'rz'  c      calname1 = calname(1:ii)//'rz'
53    
54        do ii=1,250  c      do ii=1,250
55  c         ch=calname(ii:ii)  cc         ch=calname(ii:ii)
56           ch2=calname(ii:ii+1)  c         ch2=calname(ii:ii+1)
57  c         write(*,*) ii,ch  cc         write(*,*) ii,ch
58  c         if (ch.eq.'.') goto 100  cc         if (ch.eq.'.') goto 100
59           if (ch2.eq.'rz') goto 100  c         if (ch2.eq.'rz') goto 100
60         enddo  c       enddo
61  100   continue  c100   continue
62  c      calname1 = calname(1:ii)//'rz'  c      calname1 = calname(1:ii)//'rz'
63         calname1 = calname(1:ii+1)  c       calname1 = calname(1:ii+1)
64    
65          calname1 = calname(1:cnlen)
66    
67    
68    
# Line 123  c        call HPRNTU(ntp_tofcalib) Line 128  c        call HPRNTU(ntp_tofcalib)
128          call hrend('TOFK1131')          call hrend('TOFK1131')
129          close(0)          close(0)
130    
131           return          return
132          end          end
133    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.23