*-- Author : I.O. Skillicorn SUBROUTINE FTJN12(CF,IU,LLL,LL,RPC,RPS,PH,CH, ZI) **: FTJN12 40000 IS. New linking code. **---------------------------------------------------------------------- **: FTJN12 40000 SM. Fix selection of best link. **---------------------------------------------------------------------- C JOIN MODULES 1 AND 2 C AUTHOR I.O.SKILLICORN C 21/5/91 REDUCE SIZE C new version imported from IOS fortran 6/6/91 *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. * 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, I, J, 0, 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,4.) CALL SHS(2040,0,10.) CALL SHS(2046,0,CH(I)) *------------------------------------------ C PRINT1000,LL(I,1),LL(I,2),LL(I,3) *------------------------------------------ C * * * C new version imported from IOS fortran 6/6/91 *