*-- Author : Girish D. Patel 16/04/91
SUBROUTINE FPFPLC
**: FPFPLC 30907 RP. Farm changes.
*-----------------------------------------------------------*
* Print output banks from Forward Pattern recognition *
* in readable form. FPLC local coordinate bank. *
*-----------------------------------------------------------*
*KEEP,BCS.
*KEEP,BOSMDL.
C ------BOSMDL
C ------
*KEND.
*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.
IND = NLINK('FPLC',NBN)
INDE = NLINK('FPUX',NBN)
CALL BKTOW(IW,'FPUX',NBN,IW,INDFPX,*900)
* Calculate w coordinates of the hit (both solutions)
CALL FPWHIT(J,WWP,WWM,PHW,WWIR,ZZ,IBAD)
* Sign of hit from FPUX bank
CALL WDROP(IW,INDFPX)
*