*-- Author : I.O. Skillicorn SUBROUTINE FTJN23(CF,IU,LLL,LL,RPC,RPS,PH,CH, ZI) **: FTJN23 40000 IS. New linking code. **---------------------------------------------------------------------- **: FTJN23 40000 SM. Fix selection of best link. **---------------------------------------------------------------------- C JOIN MODULES C AUTHOR I.O.SKILLICORN C 21/5/91 REDUCE SIZE C JOIN MODULES 2 AND 3 C C C *KEEP,FRDIMS. *KEEP,FH1WORK. * Planar geometry * * Radial geometry * * Radial data... * * Planar Data * * Pointers into DIGI bank for IOS labelled hits * * Track segment data * * Fit data * * *KEEP,FPTVTX. **the common/VERTEX/ becomes /VERTVV/ (in analogy to /VERTFF/) on the ** 17/6/91, since it is in conflict with the VERTEX module (g.bernardi) ** (note that all these common names should start by F in this deck...) *KEEP,FJNPAR. *KEND. * * * LOCAL ARRAYS... C DIMENSION IP(36),SD(36),IPP(36,MAXTRK),SDD(36,MAXTRK) C 'Centre' points of radial modules * * C TO JOIN TWO MODULES C STANDARD DEVIATIONS ** 2 C CUTS CHANGED FOR FAST FILTER - SECOND LINE FOR FAST FILTER C SELECT TRACKS STR LINE PHI-Z ONLY C IE THOSE FROM Z-AXIS C REPLACEMENT VALUES H1SIM **************************** C C *************************NEW CUTS******94 DATA************** * CHT = 100.0 * RCUT=20. * PCUT=0.04 * PSCUT=0.002 ************************************************************ C C =0 USE MANY TIMES =1 USE ONCE C IU SET IN FTJN3 C ******************************* C REFIT PHI-Z WITH R-VALUES OF SEGMENTS C FILL POINTS/DRIFT SIGN C RECALCULATE PHI-Z SLOPE AND INTERCEPT C R : ASSUMES LINEAR TO VERTEX C PHI CONTINUOUS CALL FTLFTW(XXX,YYY,WWT,IC,0,2,PS1,PZ1,D1,D2,D3,COV) CALL FTLFTW(XXX,YYY,WWT,IC,0,2,PS2,PZ2,D1,D2,D3,COV) C CHECK RECALCULATED PHI CONTINUOUS * * CALL FTCHKH(PCOS, PHZ, PSIN, RI, 0, I, J, CHI) C GOOD LINK C******************************************12/10/88******************** C LL(LLL,3)=K C SELECT BEST C COMPARE BEST WITH REMAINDER CCCCC IF(LL(K,3).EQ.LL(KB,3))GOTO130 C REMOVE LINK C COMPARE FINISHED , MARK BEST SEGMENT USED C RESET CHI WHEN COMPARE FINISHED C C C C SET USED FLAGS CCCCCC IU(LL(I,3),3)=1 CALL SHS(2040,0,6.) CALL SHS(2040,0,10.) CALL SHS(2047,0,CH(I)) *------------------------------------------ C PRINT1000,LL(I,1),LL(I,2),LL(I,3) *------------------------------------------ C * * * * NEW CODE 11/7/94 * * * LINK THREE RADIAL MODULES *