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 |
* |
* |
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) |