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