/[PAMELA software]/DarthVader/TrackerLevel2/src/F77/readallparam.f
ViewVC logotype

Diff of /DarthVader/TrackerLevel2/src/F77/readallparam.f

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

revision 1.6 by pam-fi, Mon Aug 20 15:58:24 2007 UTC revision 1.9 by pam-fi, Wed Mar 5 17:00:20 2008 UTC
# Line 9  Line 9 
9    
10        c2f_error = 0        c2f_error = 0
11    
12    
13  c      if(C2F_DEBUG.EQ.1.eq.1)print *                    c      if(C2F_DEBUG.EQ.1.eq.1)print *                  
14        if(verbose.eq.1)print *                          if(verbose.eq.1)print *                  
15       $     ,c2f_path(1:c2f_pathlen)//'trk-maskvk.dat'       $     ,c2f_path(1:c2f_pathlen)//'trk-maskvk.dat'
# Line 36  c            if(C2F_DEBUG.EQ.1.eq.1) Line 37  c            if(C2F_DEBUG.EQ.1.eq.1)
37              c2f_error = 1              c2f_error = 1
38              goto 1000              goto 1000
39           endif           endif
40             if(verbose.eq.1)print*,'view ',iv,': ',(mask_vk(iv,i),i=1,24)
41        enddo        enddo
42   1000 close(10)   1000 close(10)
43   1001 continue       1001 continue    
# Line 171  c         if(C2F_DEBUG.EQ.1.eq.1) Line 173  c         if(C2F_DEBUG.EQ.1.eq.1)
173           c2f_error = 1           c2f_error = 1
174           return           return
175        endif        endif
176  c      print*,'---- ANGULAR BINNING ----'        if(DEBUG.EQ.1)THEN
177  c      print*,'Bin   -   angL   -   angR'           print*,'---- ANGULAR BINNING ----'
178             print*,'Bin   -   angL   -   angR'
179          endif
180   101  format(i2,'       ',f6.2,'     ',f6.2)   101  format(i2,'       ',f6.2,'     ',f6.2)
181        xnn=0        xnn=0
182        do ibin=1,nangmax        do ibin=1,nangmax
# Line 180  c      print*,'Bin   -   angL   -   angR Line 184  c      print*,'Bin   -   angL   -   angR
184       $        ,IOSTAT=iostat       $        ,IOSTAT=iostat
185       $        )xnn,angL(ibin),angR(ibin)       $        )xnn,angL(ibin),angR(ibin)
186           if(iostat.ne.0)goto 1000           if(iostat.ne.0)goto 1000
187  c         write(*,101)int(xnn),angL(ibin),angR(ibin)           if(DEBUG.EQ.1)write(*,101)int(xnn),angL(ibin),angR(ibin)
188        enddo                enddo        
189   1000 nangbin=int(xnn)   1000 nangbin=int(xnn)
190        close(10)        close(10)
191        if(nangbin.eq.0)c2f_error = 1        if(nangbin.eq.0)c2f_error = 1
192  c      print*,'-------------------------'        if(DEBUG.EQ.1)THEN
193  c      print*,nangbin           print*,'-------------------------'
194             print*,nangbin
195          endif
196                
197    
198    
# Line 218  c                  if(DEBUG.EQ.1) Line 224  c                  if(DEBUG.EQ.1)
224       $                 print*,'READETAPARAM: ** Error opening file ** '       $                 print*,'READETAPARAM: ** Error opening file ** '
225       $                 ,c2f_path(1:c2f_pathlen)       $                 ,c2f_path(1:c2f_pathlen)
226       $                 //fname_param(1:LNBLNK(fname_param))       $                 //fname_param(1:LNBLNK(fname_param))
227                    c2f_error = 1  c                  c2f_error = 1 !! COMMENTATO TEMPORANEAMENTE
228  c                  return  c                  return
229                    goto 2001                    goto 2001
230                 endif                 endif
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.23