/[PAMELA software]/DarthVader/ToFLevel2/src/toftrk.for
ViewVC logotype

Diff of /DarthVader/ToFLevel2/src/toftrk.for

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

revision 1.3 by mocchiut, Thu Aug 10 06:32:05 2006 UTC revision 1.4 by mocchiut, Sat Sep 9 05:17:20 2006 UTC
# Line 106  C     COPY THE ALFA VECTOR FROM AL_PP TO Line 106  C     COPY THE ALFA VECTOR FROM AL_PP TO
106           AL_P(i) = al_pp(i)           AL_P(i) = al_pp(i)
107        enddo        enddo
108        if (al_p(5).eq.0.) THEN        if (al_p(5).eq.0.) THEN
109           PRINT *,' TOF - WARNING F77: track with R = 0, discarded'  c         PRINT *,' TOF - WARNING F77: track with R = 0, discarded'
110           GOTO 969           GOTO 969
111        ENDIF        ENDIF
112  *     -------- *** tracking routine *** --------  *     -------- *** tracking routine *** --------
113        IFAIL = 0        IFAIL = 0
114        call DOTRACK(NPTOF,ZIN,XOUT,YOUT,AL_P,IFAIL)        call DOTRACK(NPTOF,ZIN,XOUT,YOUT,AL_P,IFAIL)
115        if(IFAIL.ne.0)then        if(IFAIL.ne.0)then
116           print *,' TOF - WARNING F77: tracking failed '  c         print *,' TOF - WARNING F77: tracking failed '
117           goto 969           goto 969
118        endif        endif
119  *     ------------------------------------------  *     ------------------------------------------
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.23