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

C----------------  WORKING SPACE FOR TRACK FIT  ------------------------
$$INCLUDE 'K$ITRK:CWORK.INC'
C
      INTEGER MXHIT
      PARAMETER (MXHIT=128)
C
      DOUBLE PRECISION XX,XI,YY
      REAL             DFA
      REAL             DFX,DFY,DFZ,DFPX,DFPY,DFPZ
      REAL             DFWX,DFWY,DFVX,DFVY,DFVZ
      REAL             DFHX,DFHY,DFHZ,DFH
      REAL             DFD,DFE,DFCH,DFB,DFF,DFS,DFL
      REAL             DFSTLC,DFMLEN,DFDPDX,DFCHI2,DFCHIN,DFCHIO,DFNDGF
      REAL             DFMCH,DFBETA,DFSTHE,DFCTGT,DFKURV
      REAL             DFPMS,DFEMS,DFCMSO,DFCMS2,DFPBET,DFPHI
      INTEGER          ITR,IDF,NDF,KDF,LDFL,MDF
      INTEGER          NDFC,NDF1,NDFL,NDFDIM,NDFINV,NDFERR
      INTEGER          NDFMCH,NDFMS,NDFADD
      INTEGER          NFITNEG,NFITPOS,NL_CR
      LOGICAL          FDFAST
      COMMON /CWORK/   XX(64,66),XI(64,6),YY(64),
     +   DFA (64,128),
     +   DFX (MXHIT),DFY (MXHIT),DFZ (MXHIT),
     +   DFPX(MXHIT),DFPY(MXHIT),DFPZ(MXHIT),
     +   DFWX(MXHIT),DFWY(MXHIT),          
     +   DFVX(MXHIT),DFVY(MXHIT),DFVZ(MXHIT),
     +   DFHX(MXHIT),DFHY(MXHIT),DFHZ(MXHIT),DFH (MXHIT),
     +   DFD (MXHIT),DFE (MXHIT),DFCH(MXHIT),
     +   DFB (MXHIT),DFF (MXHIT),
     +   DFS (MXHIT),DFL (MXHIT),
     +   IDF (MXHIT),NDF (MXHIT),KDF (MXHIT),LDFL(MXHIT),MDF (MXHIT),
     +   ITR,NFITNEG,NFITPOS,NL_CR,
     +   FDFAST,
     +   NDFC,  NDF1,  NDFL,  NDFDIM,NDFINV,NDFERR,
     +   DFSTLC,DFMLEN,DFDPDX,DFCHI2,DFCHIN,DFCHIO,DFNDGF,
     +   NDFMCH,DFMCH ,DFBETA,DFSTHE,DFCTGT,DFKURV,
     +   DFPMS(60),NDFMS(60),DFEMS(60),DFCMSO,DFCMS2,DFPBET,NDFADD
      EQUIVALENCE (DFPMS(1),DFPHI)
C-----------------------------------------------------------------------
C
C    XX  : MATRIX TO BE INVERTED
C    XI  = XX**-1
C    YY  : VECTOR
C
C  TRACING BUFFER (MAXIMUM : 127 STEPS)
C
C    DFX (NST) : X     |  OF THE
C    DFY (NST) : Y     |  POINT
C    DFZ (NST) : Z     |  CLOSEST
C    DFPX(NST) : PX/P  |  TO
C    DFPY(NST) : PY/P  |  THE
C    DFPZ(NST) : PZ/P  |  WIRE
C    DFWX(NST) : X COORDINATE OF WIRE AT Z = 0
C    DFWY(NST) : Y COORDINATE OF WIRE AT Z = 0
C    DFVX(NST) : X DIRECTION OF WIRE   |  NORMALIZED
C    DFVY(NST) : Y DIRECTION OF WIRE   |  TO
C    DFVZ(NST) : Z DIRECTION OF WIRE   |  1
C    DFH (NST) : SQRT(HX**2 + HY**2 + HZ**2) * 0.00029975
C    DFHX(NST) : HX/H   |  MAG FIELD
C    DFHY(NST) : HY/H   |  DIRECTION,
C    DFHZ(NST) : HZ/H   |  NORMALISED TO 1
C    DFD (NST) : DRIFT LENGTH
C    DFE (NST) : ERROR**2 ON DRIFT DISTANCE
C    DFCH(NST) : MEAS DRIFT DIST - FIT
C    DFS (NST) : STEP LENGTH FOR TRACING PROJECTED INTO PLANE PERP TO H
C    DFL (NST) : STEP LENGTH MEASURED FROM INNERMOST POINT (3 DIM)
C          AZIMUTHAL COMPONENT ASSUMED TO BE = 0
C    KDF (NST) : POINTER TO KB IN /CTRACK/
C    LDFL(NST) : LAYER
C    LDFL(NST) = 0 : WIRE IS REJECTED
C    DFAX(NST) : WIRE
C    DFAY(NST) :       X
C    DFAZ(NST) :          TRACK
C    DFA (N,NST) : DERIVATIVES
C    DFN (3)   : VECTOR ORTHOGONAL TO TRACK AND H AT INNERMOST WIRE
C
C  FLAGS
C
C    NDFC : NUMBER OF USED WORDS IN ...(NST)
C    NDF1 : INNERMOST POINT
C    NDFL : LAST POINT
C
C    NDFDIM : DIMENSION OF MATRIX TO BE SOLVED
C    NDFINV : DIMENSION OF MATRIX TO BE INVERTED
C    NDFERR : ERROR FLAG (= 0 IF OK)