/[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.1 by mocchiut, Sat Jun 17 12:14:56 2006 UTC revision 1.3 by mocchiut, Fri Nov 3 13:01:16 2006 UTC
# Line 15  c     local variables Line 15  c     local variables
15  c------------------------------------------------------------------------  c------------------------------------------------------------------------
16        character*250 calname        character*250 calname
17        character*250 calname1        character*250 calname1
18        character ch  c      character ch
19          character*2 ch2
20  c------------------------------------------------------------------  c------------------------------------------------------------------
21    
22        COMMON/QUEST/IQUEST(100)        COMMON/QUEST/IQUEST(100)
# Line 40  c--------------------------------------- Line 41  c---------------------------------------
41  c---------------    open ToF calib rz file  c---------------    open ToF calib rz file
42  c------------------------------------------------------------------------  c------------------------------------------------------------------------
43    
44         do ii=1,250  c       do ii=1,250
45           ch=calname(ii:ii)  c         ch=calname(ii:ii)
46           if (ch.eq.'.') goto 100  c         if (ch.eq.'.') goto 100
47         enddo    c       enddo  
48    c100   continue
49    c      calname1 = calname(1:ii)//'rz'
50    
51          do ii=1,250
52    c         ch=calname(ii:ii)
53             ch2=calname(ii:ii+1)
54    c         write(*,*) ii,ch
55    c         if (ch.eq.'.') goto 100
56             if (ch2.eq.'rz') goto 100
57           enddo
58  100   continue  100   continue
59        calname1 = calname(1:ii)//'rz'  c      calname1 = calname(1:ii)//'rz'
60           calname1 = calname(1:ii+1)
61    
62    
63    
64    
65         CALL HROPEN(59,'TOFK1131',calname1,'QP',4096,istat)         CALL HROPEN(59,'TOFK1131',calname1,'QP',4096,istat)
66    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.23