/[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.7 by pam-fi, Tue Aug 21 07:11:33 2007 UTC revision 1.8 by pam-fi, Tue Oct 9 15:54:38 2007 UTC
# Line 171  c         if(C2F_DEBUG.EQ.1.eq.1) Line 171  c         if(C2F_DEBUG.EQ.1.eq.1)
171           c2f_error = 1           c2f_error = 1
172           return           return
173        endif        endif
174  c      print*,'---- ANGULAR BINNING ----'        if(DEBUG.EQ.1)THEN
175  c      print*,'Bin   -   angL   -   angR'           print*,'---- ANGULAR BINNING ----'
176             print*,'Bin   -   angL   -   angR'
177          endif
178   101  format(i2,'       ',f6.2,'     ',f6.2)   101  format(i2,'       ',f6.2,'     ',f6.2)
179        xnn=0        xnn=0
180        do ibin=1,nangmax        do ibin=1,nangmax
# Line 180  c      print*,'Bin   -   angL   -   angR Line 182  c      print*,'Bin   -   angL   -   angR
182       $        ,IOSTAT=iostat       $        ,IOSTAT=iostat
183       $        )xnn,angL(ibin),angR(ibin)       $        )xnn,angL(ibin),angR(ibin)
184           if(iostat.ne.0)goto 1000           if(iostat.ne.0)goto 1000
185  c         write(*,101)int(xnn),angL(ibin),angR(ibin)           if(DEBUG.EQ.1)write(*,101)int(xnn),angL(ibin),angR(ibin)
186        enddo                enddo        
187   1000 nangbin=int(xnn)   1000 nangbin=int(xnn)
188        close(10)        close(10)
189        if(nangbin.eq.0)c2f_error = 1        if(nangbin.eq.0)c2f_error = 1
190  c      print*,'-------------------------'        if(DEBUG.EQ.1)THEN
191  c      print*,nangbin           print*,'-------------------------'
192             print*,nangbin
193          endif
194                
195    
196    
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.23