*-- Author : S.J. Maxfield
SUBROUTINE FPFRLC
**: FPFRLC 30907 RP. Farm changes.
*-----------------------------------------------------------*
* Print output banks from Forward Pattern recognition *
* in readable form. FRLC local coordinate bank. *
* + cartesian coordinates a la FRCART. *
*-----------------------------------------------------------*
*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('FRLC',NBN)
INDE = NLINK('FRUX',NBN)
CALL BKTOW(IW,'FRUX',NBN,IW,INDFRX,*900)
* Calculate cartesisan coordinates of the hit (both solutions)
CALL FRCART(J,XXP,YYP,XXM,YYM,ZZ,IBAD)
* Sign of hit from FRUX bank
CALL WDROP(IW,INDFRX)
*