SUBROUTINE : FPLPKS( IUSEDP, IUSEG) AUTHOR : I.O.Skillicorn DATE : 25/04/93 LANGUAGE : FORTRAN SHORT SUMMARY of PURPOSE: Pick up planar line segments on radial- based tracks. LIST and DESCRIPTION of INPUT VARIABLES/ARGUMENTS: Radial-based tracks: IG tracks Hits/drift sign :- IRN/SDN Segments planars/radials:- LNK3 Parameters(phi',phi0) :- RPCOSG,phzg Parameters(R',R0) :- RPSING,ZIG LIST and DESCRIPTION of OUTPUT VARIABLES/ARGUMENTS: Radial-based tracks: IG tracks Hits/drift sign :- IRN/SDN IRP/SDP Segments planars/radials:- ISGG LNK3 Used point flag :- IUSEDP Used segment flag :- IUSEG CALLING TREE from FPLPKS : None FUNCTIONS USED : None KEEP SEQUENCES USED : FRDIMS FH1WORK FPTVTX FRH3FT FPPRAM FPLSEG FPTFLG FPTPAR FDIFLG
Comments from FPLPKS