/[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.4 by mocchiut, Thu Nov 9 17:05:48 2006 UTC
# Line 1  Line 1 
1  C------------------------------------------------  C------------------------------------------------
2        FUNCTION RDTOFCAL(calname)        FUNCTION RDTOFCAL(calname,cnlen)
3  C------------------------------------------------  C------------------------------------------------
4    
5        include 'input_tof.txt'        include 'input_tof.txt'
# Line 16  c--------------------------------------- Line 16  c---------------------------------------
16        character*250 calname        character*250 calname
17        character*250 calname1        character*250 calname1
18  c      character ch  c      character ch
19        character*2 ch2  c      character*2 ch2
20          integer cnlen
21  c------------------------------------------------------------------  c------------------------------------------------------------------
22    
23        COMMON/QUEST/IQUEST(100)        COMMON/QUEST/IQUEST(100)
# Line 48  c       enddo   Line 49  c       enddo  
49  c100   continue  c100   continue
50  c      calname1 = calname(1:ii)//'rz'  c      calname1 = calname(1:ii)//'rz'
51    
52        do ii=1,250  c      do ii=1,250
53  c         ch=calname(ii:ii)  cc         ch=calname(ii:ii)
54           ch2=calname(ii:ii+1)  c         ch2=calname(ii:ii+1)
55  c         write(*,*) ii,ch  cc         write(*,*) ii,ch
56  c         if (ch.eq.'.') goto 100  cc         if (ch.eq.'.') goto 100
57           if (ch2.eq.'rz') goto 100  c         if (ch2.eq.'rz') goto 100
58         enddo  c       enddo
59  100   continue  c100   continue
60  c      calname1 = calname(1:ii)//'rz'  c      calname1 = calname(1:ii)//'rz'
61         calname1 = calname(1:ii+1)  c       calname1 = calname(1:ii+1)
62    
63          calname1 = calname(1:cnlen)
64    
65    
66    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.23