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