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

C--------------------------  C T I D R I  ----------------------------
C                   DRIFT CHAMBER GEOMETRY AND MATERIALS
C                   ------------------------------------
C
      INTEGER NLAYERO
      PARAMETER (NLAYERO=60)
C
      INTEGER         NLAYER
      REAL            CELL_SIZE,ZMAX
      REAL            TITUBE,TIDRA,TIDDP,TIDST,TIDSC,TIDEND,TIDIN
      REAL            TIDOUT,TIDRL,TIDEVX,TIRGVX
      COMMON /CTIDRI/ TITUBE(3),ZMAX,
     +                CELL_SIZE(NLAYERO),
     +                TIDRA(NLAYERO),TIDDP(NLAYERO),
     +                TIDST(NLAYERO),
     +                TIDSC(NLAYERO),
     +                TIDEND(4),TIDIN(3),TIDOUT(3),
     +                TIDRL(2),
     +                TIDEVX(3,7),TIRGVX(11),
     +                NLAYER
C---------------------------------------------------------------------
C     TITUBE(1) : INNER RADIUS OF THE BEAM TUBE
C     TITUBE(2) : THICKNESS OF THE BEAM TUBE
C     TITUBE(3) : AVERAGE RADIATION LENGTH (CM)
C     NLAYER    : NUMBER OF LAYERS (STEREO WIRES)
C
C     TIDRA(I)  : RADIUS OF LAYER I
C     TIDDP(I)  : AZIMUTHAL DISTANCE OF TWO ADJACENT WIRES IN LAYER I
C     TIDST(I)  : SINE OF STEREO ANGLE IN LAYER I
C     TIDSC(I)  : COSINE OF STEREO ANGLE IN LAYER I
C     ALL QUANTITIES MEASURED AT Z = 0 ;
C     ORDER : OUTERMOST 0 - DEGREE LAYER ... INNERMOST 0 - DEGREE LAYER,
C             OUTERMOST (-) STEREO LAYER ... INNERMOST (+) STEREO LAYER
C
C     TIDEND(1) : Z MAX OF THE ACTIVE VOLUMEN
C     TIDEND(2) : Z VALUE (FRONT) OF THE ALUMINIUM PLATE
C     TIDEND(3) : THICKNESS OF THIS PLATE
C     TIDEND(4) : RAD LENGTH (CM)
C     TIDIN(1)  : INNER CYLINDER (INNER RADIUS)
C     TIDIN(2)  : THICKNESS OF THIS CYLINDER
C     TIDIN(3)  : AVERAGE RADIATION LENGTH
C     TIDOUT(1) : OUTER CYLINDER (INNER RADIUS)
C     TIDOUT(2) : THICKNESS OF THIS CYLINDER
C     TIDOUT(3) : AVERAGE RADIATION LENGTH
C     TIDRL(2)  : AVERAGE RAD LENGTH (GAS + WIRES) FOR DC / VDC
C
C
C     TIDEVX(3,7):BETHE-BLOCH FORMULA CONSTANTS AND RADIATION LENGTHS
C                 FOR 7 MATERIALS (C-EPOXY, AL, FE, CU, AG, PB3O4, BE)
C     TIRGVX(11): 1     : MEAN RADIUS OF DC/VDC MATERIALS (R1)
C                 2     : MEAN RADIUS OF VDC/BT MATERIALS (R2)
C                 3 - 6 : MATERIAL THICKNESSES AT R1 (G/CM**2)
C                 7 - 11: MATERIAL THICKNESSES AT R2
C---------------------------------------------------------------------