*-- Author : J. V. Morris 17/04/93
FUNCTION FPLT2D(TICK,SGN,IWCH)
**********************************************************************
* *
* Planar Time-to-Distance model. *
* TICK is drift time in ticks with Tzero already subtracted *
* SGN is +1.0 for "near" wires -1.0 for "far" wires *
* if SGN = 0.0, then then no near/far asymmetry adjustment is made *
* IWCH is the planar channel number (0 to 1151) *
* FPLT2D is the computed drift distance in cm. *
* *
* The function uses microns and nsecs internally *
* JVM 04/01/93 *
* *
* Include 6% velocity asymmetry beta *
* JVM 21/01/93 *
* *
* The velocity asymmetry is disabled until it can be tested! *
* Include different T-2-D for "inner" and "outer" wires. *
* JVM 08/04/93 *
* *
* Change interface to calibration constants. *
* Add SGN = 0.0 option. *
* SJM 17/04/93 *
**********************************************************************
*>>>>>>>>>>>>> interface to calibration constants
* Common for time-to-distance relation
*SJM VEL(1:4) = Vout. VEL(5:8) = Vin. far wires
*SJM VEL(9:12) = Vout. VEL(13:16) = Vin. symmetric case
*SJM VEL(17:20) = Vout. VEL(21:24) = Vin. near wires
*SJM XPT(1:3) = Xout. XPT(4:6) = Xin. far wires
*SJM XPT(7:9) = Xout. XPT(10:12) = Xin. symmetric case
*SJM XPT(13:15) = Xout. XPT(16:18) = Xin. near wires
*JVM VIN = 44.93, 32.93, 33.12, 28.92 for run 34469
*JVM VOUT = 46.55, 31.80, 32.99, 29.17 for run 34469
*JVM X0IN = 5025., 16360., 28100. for all runs
*JVM X0OUT= 5025., 17080., 28100. for all runs
*>>>>>>>>>>>>> end of calibration constants
* The parameters V(1) to V(4) (local drift velocities in micron/nsec),
* X(1) and X(2) have been determined by a fit to the drift time
* distribution from run 34469 with the constraint that the resulting
* drift distance distribution be flat. X(3) is the nominal Planar cell
* depth in microns.
* channel outer, inner => IOFF = 0, 1
* Far, symmetric, near => ISGN = -1,0,+1
* Write(6,'('' Vel'',4F10.6)')(VEL(IV+LL), LL = 1,4)
* Write(6,'('' Xpt'',4F10.2)')(XPT(IX+LL), LL = 1,3)
* T in nsecs
* Drift time to X(1)
* Drift time to X(2)
* Drift time to X(3)
* Microns to cm
*