[KLOE] [Offline Doc] [TRK Files] Track Reconstruction Library ctrack.inc

C                        ---------------
C------------------------  C T R A C K  --------------------------------
C                        ---------------
C--------------------  TRACK RECONSTRUCTION BUFFER  --------------------
C
      REAL BI,BK,BJ
      DIMENSION BI(8,1),BK(4,1),BJ(10,1)
      INTEGER LWMDT, LWMDTC,LWMDTL,LWKDT, LWKDTC
      INTEGER LWIDT, LWIDTC,LWIDT1,LWIDTL,LWJDT, LWJDTC
      INTEGER KB,IB,JB
      COMMON /CTRACK/ LWMDT, LWMDTC,LWMDTL,LWKDT, LWKDTC,
     +                LWIDT, LWIDTC,LWIDT1,LWIDTL,LWJDT, LWJDTC,
     +                KB(4,4000),IB(8,500),JB(10,150)
      EQUIVALENCE (IB(1,1),BI(1,1)),(KB(1,1),BK(1,1)),(JB(1,1),BJ(1,1))
C
C-----------------------------------------------------------------------
C
C-------  DESCRIPTION OF COMMON /CTRACK/
C
C  LENGTHS, ETC :
C
C     LWMDT  : DIMENSION MB(2,LWMDT) OF DT WORKING SPACE
C     LWMDTC : CURRENT POSITION IN MB
C     LWMDTL : LAST USABLE POSITION IN MB
C     LWKDT  : DIMENSION KB(4,LWKDT)
C     LWKDTC : LAST BANK IN KB
C     LWIDT  : DIMENSION IB(8,LWIDT)
C     LWIDTC : LAST BANK IN IB
C     LWIDT1 : POINTER TO 1ST TRACK IN IB
C     LWIDTL : POINTER TO LAST TRACK IN IB
C     LWJDT  : DIMENSION JB(16,LWJDT)
C     LWJDTC : LAST BANK IN JB
C
C  I - BUFFER : (ONE BANK / TRACK)
C
C     N.B. : NOT ALL BANKS CORRESPOND TO TRACKS.
C     USE ALWAYS THE CHAIN LWIDT1-IB(1,LWIDT1)-... TO REACH THE TRACKS
C         ------
C
C     LWIDT1   : POINTER TO THE FIRST TRACK IN THIS BUFFER
C     IB( 1,I) : POINTER TO NEXT BANK WITHIN THIS BUFFER :
C                THE 1ST TRACK HAS THE ADRESS I = LWIDT1
C                THE NEXT TRACK IS REACHED WITH I = IB(1,I) ;
C                THE LAST TRACK (LWIDTL) IS FLAGGED BY IB(1,I) = 0
C     IB( 2,I) : POINTER TO J - BUFFER
C     IB( 3,I) : POINTER TO 1ST BANK IN THE K - BUFFER
C     IB( 4,I) : NUMBER OF + STEREO WIRES
C     IB( 5,I) : NUMBER OF Z - WIRES
C     IB( 6,I) : NUMBER OF - STEREO WIRES
C     BI( 7,I) : CURVATURE * CHARGE (CHANGED IN VSN 5)
C     BI( 8,I) : 'QUALITY' (USED BY SUBR. DTSORT)
C
C  K - BUFFER (ONE BANK FOR EACH TRACK / WIRE ASSIGNEMENT)
C
C     KB(1,K) : POINTER TO THE BANK OF THE PREVIOUS WIRE IN THE K -
C               BUFFER ( IF 0 --> LAST WIRE)
C     KB(2,K) : POINTER TO THE WIRE COORDINATES IN COMMON /CDTHIT/
C               (CONTAINS LAYER,PHI,STEREO ANGLE,DRIFT DISTANCE,FLAG)
C     BK(3,K) : DRIFT DISTANCE (POS OR NEG FOR THE RIGHT OR LEFT AMB)
C     BK(4,K) : TRACK LENGTH BETWEEN THIS WIRE AND THE PREVIOUS ONE
C               (TANGENT OF THE TWO CIRCLES DEFINED BY THE DRIFT TIMES)
C
C  J - BUFFER (ONE BANK / TRACK)                             FILLED BY:
C
C     JB(1,JTK) :                                           - OBSOLETE -  
C     BJ(2,JTK) : D = DISTANCE OF CLOSEST APPROACH (X-Y)       DTDIST
C     BJ(3,JTK) : Z0 = Z OF THIS POINT                         D3PTRN
C     BJ(4,JTK) : X1  |  POINT CLOSEST                         DTDIST
C     BJ(5,JTK) : Y1  |  TO THE                                DTDIST
C     BJ(6,JTK) : Z1  |  INNERMOST WIRE                        D3PTRN
C     BJ(7,JTK) : PHI AT X1,Y1,Z1                              DTDIST
C     BJ(8,JTK) : CTG (THETA)                                  D3PTRN
C     JB(9,JTK) =  0 : STEREO PATTERN RECOGNITION OK.          DTDIST
C               =  1 : ST.P.R. TO BE DONE ; NO FIT IN X-Y PLANE
C               = -1 : ST.P.R. TO BE DONE ; FIT IN X-Y PLANE   DFFIT
C     BJ(10,JTK) : S = TRACK LENGTH ( POINT OF CLOSEST APPROACH -
C                                     X1,Y1,Z1)                DTDIST
C-----------------------------------------------------------------------