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