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

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

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

revision 1.4 by pam-fi, Tue Feb 3 13:57:16 2009 UTC revision 1.7 by mocchiut, Fri Jun 6 11:24:03 2014 UTC
# Line 36  Line 36 
36  *  *
37  *     March 2008 --> optimized by Paolo  *     March 2008 --> optimized by Paolo
38  *  *
39  *     DOTRACK3(NPOINT,ZIN,XOUT,YOUT,THXOUT,THYOUT,TLOUT,AL_P,IFAIL)  *     DOTRACK3(NPOINT,ZIN,XOUT,YOUT,THXOUT,THYOUT,TLOUT,AL_P,ZINI,IFAIL)
40  *     - as the previous one, but with the coordinate ZINI of the reference  *     - as the previous one, but with the coordinate ZINI of the reference
41  *       plane given as input parameter  *       plane given as input parameter
42  *  *
# Line 57  Line 57 
57  *     tolerance in reaching the next plane during the tracking procedure  *     tolerance in reaching the next plane during the tracking procedure
58  *     -----------------------------------------------  *     -----------------------------------------------
59  *     I/O parameters  *     I/O parameters
60        PARAMETER (NPOINT_MAX=100)        PARAMETER (NPOINT_MAX=500)
61        DIMENSION ZIN(NPOINT_MAX)        DIMENSION ZIN(NPOINT_MAX)
62        DIMENSION XOUT(NPOINT_MAX),YOUT(NPOINT_MAX)        DIMENSION XOUT(NPOINT_MAX),YOUT(NPOINT_MAX)
63        DIMENSION THXOUT(NPOINT_MAX),THYOUT(NPOINT_MAX)        DIMENSION THXOUT(NPOINT_MAX),THYOUT(NPOINT_MAX)
# Line 229  ccc      DATA TOLL/1.d-8/           Line 229  ccc      DATA TOLL/1.d-8/          
229  *     tolerance in reaching the next plane during the tracking procedure  *     tolerance in reaching the next plane during the tracking procedure
230  *     -----------------------------------------------  *     -----------------------------------------------
231  *     I/O parameters  *     I/O parameters
232        PARAMETER (NPOINT_MAX=100)        PARAMETER (NPOINT_MAX=500)
233        DIMENSION ZIN(NPOINT_MAX)        DIMENSION ZIN(NPOINT_MAX)
234        DIMENSION XOUT(NPOINT_MAX),YOUT(NPOINT_MAX)        DIMENSION XOUT(NPOINT_MAX),YOUT(NPOINT_MAX)
235        DIMENSION THXOUT(NPOINT_MAX),THYOUT(NPOINT_MAX)        DIMENSION THXOUT(NPOINT_MAX),THYOUT(NPOINT_MAX)
# Line 402  c$$$ Line 402  c$$$
402    
403  *     -----------------------------------------------  *     -----------------------------------------------
404  *     I/O parameters  *     I/O parameters
405        PARAMETER (NPOINT_MAX=100)        PARAMETER (NPOINT_MAX=500) ! EM it was =100
406        DIMENSION ZIN(NPOINT_MAX)        DIMENSION ZIN(NPOINT_MAX)
407        DIMENSION XOUT(NPOINT_MAX),YOUT(NPOINT_MAX)        DIMENSION XOUT(NPOINT_MAX),YOUT(NPOINT_MAX)
408        DIMENSION THXOUT(NPOINT_MAX),THYOUT(NPOINT_MAX)        DIMENSION THXOUT(NPOINT_MAX),THYOUT(NPOINT_MAX)
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.23