*-- Author : Stephen J. Maxfield
SUBROUTINE FPWHIT(IROW,WWP,WWM,PHW,WWIR,ZZ,IBAD)
**: FPWHIT 40000 SM. New definition of dead wire flag.
**----------------------------------------------------------------------
*
*
* PURPOSE: Compute W coordinate of a Planar Hit
*
*
* INPUT : IROW Row number in FRPE or FPLC bank
*
*
* OUTPUT : WWP w of hit assuming positive sign for drift
* : WWM w of hit assuming negative sign for drift
* : ZZ z of hit
* : IBAD 0 if digi O.K. 1 if digi 'unreliable'
*
* NOTE : The routine uses 'local' coordinates (drift )
* taken from the FPLC bank. If this temporary bank does not
* exist, it is created. The local coordinate data is
* combined with corrected geometrical data taken from
* the bank FPG1. Again if FPG1 doesn't exist, it is created.
*
*KEEP,BCS.
*KEND.
* Locators for FPG1 bank
* Locators for FPLC bank
*KEEP,STFUNCT.
* index of element before row number IROW
* index of L'th element of row number IROW
* L'th integer element of the IROW'th row of bank with index IND
* L'th real element of the IROW'th row of bank with index IND
*KEEP,FTFUNCT.
* Statement functions for RADIAL Chamber data access.
* Using Channel Number J
* Module, Wedge-pair and Z-plane numbers...
* Statement function for obtaining WEDGE numbers(0-47) of
* wires at plus and minus ends of Cell numbers
* Statement function for obtaining IOS wire number (1-36)
* Statement functions for PLANAR Chamber data access.
* Using Channel Number J
* Module, orientation, W-cell and Z-plane numbers...
* IPSMD in range 0:8 Planar module number.
*
* IOS wire number (runs from 0 to 36)
* SB plane numbers (1-72) from cell number
* Module, orientation, wire and (typical) cell number from plane
* number in the range 1-72 (planars, radials and combined)
*KEND.
*----------------------------------------------------------------------
* Initialisations on first call...
IQFPLC = NAMIND('FPLC')
IQFPG1 = NAMIND('FPG1')
*-----------------------------------------------------------
* Create FPG1 bank...
CALL FTCORG
CALL H1STOP
* Create FPLC bank...
CALL FPLOCO
CALL H1STOP
* No data. Shouldn't happen if IROW valid.
* Normal processing starts here...
* Phi, W and Z of wire
* Done
*