+PATCH,$CORR.
+DECK,CORR1.                     Updates version:  1.27/00  to   1.27/06
+REP,*TITLE*,TITLE,1.
CBOFF  1.27/06  09/06/95  19.34.38  SE
+REP,$VERSION,V1_27,1-2.
*CMZ :  1.27/06 09/06/95  19.34.38  by  Christian Voelcker
*CMZ :  1.27/05 08/05/95  16.49.59  by  Christian Voelcker
*CMZ :  1.27/04 26/04/95  20.01.32  by  Christian Voelcker
*CMZ :  1.27/03 26/04/95  11.31.30  by  Christian Voelcker
*CMZ :  1.27/02 18/04/95  16.02.11  by  Christian Voelcker
*CMZ :  1.27/01 08/04/95  12.12.32  by  Christian Voelcker
*CMZ :  1.27/00 07/04/95  19.39.20  by  Christian Voelcker
*-- Author :    Christian Voelcker   07/04/95
*
*::>          VERSION  1.27/06   09/06/95 19.34.38
*                   *> new common in TC_MACRO to hold primary
*                      pattern recognition logicals. TCFFUZ becomes
*                      default now, 'FFUZ' and 'RADO' keywords
*                      moved to the jdc card PREC. (see locater)
*
*::>          VERSION  1.27/05   08/05/95 16.49.59
*                   *> new key for TC_FUZZ, therefore TC_MACRO modified:
*                      new variable KY30TC in /TCFZZZ/.
*
*::>          VERSION  1.27/04   26/04/95 20.01.32
*                   *> some modifications in dec CFCOMMON. reorganized the
*                      /SQUIDC/ common, one variable got appended to the
*                      /CFVARS/ common.
*
*::>          VERSION  1.27/03   26/04/95 11.31.30
*                   *> Add two more key variables KY47TC,KY48TC to /TCFZZZ/
*                      in deck tc_macro for Fast-FUZzy.
*
*::>          VERSION  1.27/02   18/04/95 16.02.10
*                   *> Add Fast-Fuzzy common blocks in TC_MACRO (C.A.Meyer)
*
*::>          VERSION  1.27/01   08/04/95 12.12.32
*                   *> more modifications to the /CFVARS/ common in
*                      deck CFCOMMON. C-programmmers will jubilate !!
+REP,COMMCB,CFCOMMON,1-5.
*CMZ :  1.27/04 26/04/95  20.00.57  by  Christian Voelcker
! *   copy the latest cfcommon to the cboff.cmz file
! *   /SQUIDC/ got re-arranged, some other things changed as well!
*CMZU:  3.08/00 21/04/95  11.21.51  by  Pal Hidas
*CMZU:  3.05/01 29/03/95  15.35.29  by  Pal Hidas
*CMZ :  3.05/00 25/03/95  19.03.01  by  Pal Hidas
*CMZ :  3.04/02 07/03/95  17.23.04  by  Pal Hidas
*CMZ :  3.04/00 04/03/95  16.36.26  by  Pal Hidas
*CMZ :  3.03/00 01/03/95  18.20.12  by  Pal Hidas
*CMZU:  3.00/07 11/10/94  17.51.04  by  Pal Hidas
+REP,COMMCB,CFCOMMON,63.
      PARAMETER (NCMAX=20,NPMAX=25,NRMAX=10,NVMAX=81)
+REP,COMMCB,CFCOMMON,89-102.
     I       ,NPOS,NNEG,NNE,IEVEF,CFTAKH,BADTRA,BADNEU,NPI0CF
     I       ,MERPI0,BADKL,IDRVCF,MNVXCF,IMNNEU,KSKBCF,BADXCF
     R       ,CHISQ,CUTCL,CFBEAM,CFMISM,CFVTER,CFMIER,CFMISX
     L       ,MISGAM,MISSKL,MISNEU,MISPRO,CFTRHY,CFTRSU,CFDBUG
     L       ,FPUTZ,CFVERT,CFVRTZ,CFSUPC,CFDEUT,CFORCE,CFGCOV
     L       ,CFIGNR,CFVERZ,CFVERA,CFKS00,CFCHCR,CFKSCC
     L       ,CFCOLL,CFKSKM,CFKSKS
      SAVE /CFVARS/
      INTEGER NXTCMB(NPMAX),MEASCO(NPMAX),EVTYPE(6),CFCODE(NCDMAX)
      INTEGER NPOS,NNEG,NNE,IEVEF,CFTAKH,BADTRA,BADNEU,NPI0CF
      INTEGER MERPI0(NRMAX),BADKL,IDRVCF(10),MNVXCF,IMNNEU(NPMAX)
      INTEGER KSKBCF,BADXCF
      REAL    CHISQ,CUTCL,CFBEAM,CFMISM,CFVTER(3),CFMIER(6),CFMISX
      LOGICAL MISGAM,MISSKL,MISNEU,MISPRO,CFTRHY,CFTRSU,CFDBUG
      LOGICAL FPUTZ,CFVERT,CFVRTZ,CFSUPC,CFDEUT,CFORCE,CFGCOV
      LOGICAL CFIGNR,CFVERZ,CFVERA,CFKS00,CFCHCR,CFKSCC
      LOGICAL CFCOLL,CFKSKM,CFKSKS
+ADD,COMMCB,CFCOMMON,121.
*     CFVTER   : ERRORSQ ON VERTEX "MEASURMENT" (X,Y,Z)
*     CFMIER   : "COVARIANCE MATRIX ON MISSING PARTICLE"
+ADD,COMMCB,CFCOMMON,133.
*     CFKSCC   : LOGICAL FLAG TO FIT XKSKS,KS -> PI+,PI- BOTH
+ADD,COMMCB,CFCOMMON,141.
*     BADKL    : TTKS NUMBER OF KLONG WITH BAD ENERGY
+REP,COMMCB,CFCOMMON,278-286.
C      COMMON /SQUIDC/ X,VAR,ERR,VVAR,DPDX,DFDX,F,GF,H,PFIT,DELX,
C     *               X0,VERT,BQRS,DFDVER,DD,FF,BQRS0,KDIRS,DFDY,GH,
C     *               SSS,PULLD,HHH,KSVT,CHVT,CHVMOM,CHVPAR,CHKMOM,
C     *               CFLY,CHCTAU,XM,ETOT,MASS,MRES,CFVENE,CFVMOM,
C     *               NC,NVAR,KTYPE,MISSID,CASE,NRES,MISSI0,
C     *               NPART,MEM,PMEM,RC,ISPE,
C     *               NCH,NSUM,ITER,
C     *               ENCONS
      COMMON /SQUIDC/ X,VAR,ERR,VVAR,DFDY,DPDX,DFDX,DELX,DD,FF,
     D                F,GF,PFIT,GH,H,X0,VERT,BQRS,DFDVER,BQRS0,
     D                KSVT,CHVT,KDIRS,CHVMOM,CHVPAR,CHKMOM,CFLY,
     D                CHCTAU,SSS,PULLD,HHH,EN4,PPP4,
     R                XM,ETOT,MASS,MRES,CFVENE,CFVMOM,
     I                NC,NVAR,KTYPE,MISSID,CASE,NRES,MISSI0,NPART,
     I                MEM,PMEM,RC,ISPE,NCH,NSUM,ITER,
     L                ENCONS
C
+REP,COMMCB,CFCOMMON,296-299.
      DOUBLE PRECISION  BQRS0(3,NPMAX),KSVT(3,2),CHVT(3),KDIRS
      DOUBLE PRECISION  CHVMOM(3,4),CHVPAR(3,4),CHKMOM(3)
      DOUBLE PRECISION  CFLY,CHCTAU
      DOUBLE PRECISION  SSS(3,3),PULLD(3),HHH(NCMAX,NCMAX)
      DOUBLE PRECISION  EN4(4),PPP4(4)
+REP,COMMCB,CFCOMMON,335-336.
C                            2 => NEUTRAL
C                            3 => MISSING CHARGED
C                            4 => MISSING NEUTRAL
C                            5 => MISSING (OLD METHOD,CASE=2,3)
C                            6 => CHARGED WITH MISSING ENERGY
C                            7 => NEUTRAL WITH MISSING ENERGY
+REP,COMMCB,CFCOMMON,347-351.
C                                 MISSING (SQRT(E))
C                            6 => Z-VERTEX FIT, ALL NEUTRALS, NOTHING
C                                 MISSING (PHI,SQRT(E),LAMBDA)
C                            7 => VERTEX FIT, ALL NEUTRALS, NOTHING
C                                 MISSING (PHI,SQRT(E),LAMBDA)
C                            8 => KSHORT VERTEX FIT, FIXED MAIN VERTEX
C                                 NOTHING MISSING
C                            9 => KSHORT VERTEX FIT, FIXED MAIN VERTEX
C                                 MISSING KLONG
C                           10 => KSHORT VERTEX FIT, FIXED MAIN VERTEX
C                                 BAD KLONG (ENERGY MISSING)
C                           11 => MISSING 3-MOMENTA, MISSING MASS IS
C                                 KNOWN
C                           12 => MISSING ENERGY, MISSING MASS
C                                 AND DIRECTION KNOWN
+ADD,COMMCB,CFCOMMON,359.
C                           (OLD METHOD, CASE=3)
+REP,COMMCB,TC_MACRO,1.
*CMZ :  1.27/06 08/06/95  18.53.59  by  Christian Voelcker
*CMZ :  1.27/05 08/05/95  15.46.11  by  Christian Voelcker
*CMZ :  1.27/03 26/04/95  11.30.14  by  Christian Voelcker
*CMZU:  1.27/02 10/04/95  15.36.58  by  Curtis A. Meyer
*CMZU:  1.27/00 06/04/95  17.02.28  by  Christian Voelcker
+REP,COMMCB,TC_MACRO,30.
*             Add OLDJDC flag to TCFLAG, and OLDJLG to LGHOLD.
+REP,COMMCB,TC_MACRO,83-86.
*             06/04/95 Chr. Voelcker
*             Prepare already for the next release, which will include the
*             Fast Fuzzy pattern recognition: new variable FFUZTC in the
*             /TCFLAG/ common.
*
*             10/04/95 C.A.Meyer
*             Add Fast-Fuzzy common blocks.
*
*             26/04/95 Chr. Voelcker
*             Add two more key variables KY47TC,KY48TC to /TCFZZZ/
*
*             08/06/95 Chr. Voelcker
*             fast fuzzy shall become default now.
*             move the logicals RADOTC and FFUZTC from common /TCFLAG/
*             to a new common /TCPREC/.
*             keep logical RASHTC at the same place as before
*             (C-programmers..). Introducing GVTXTC as logical for
*             silivertex reconstruction.
+REP,COMMCB,TC_MACRO,329-338.
*        GVTXTC Activate routines for the silicon vertex detector.
*        RASHTC Enables the special fuzzy Radon patt. rec. for short tracks
*
      LOGICAL         GPWCTC,TRAKTC,RAWSTC,PATTTC,CIRCTC
      LOGICAL         HELXTC,VERTTC,VER2TC,OLDJDC,RTRKTC
      LOGICAL         GVTXTC,RASHTC
      COMMON /TCFLAG/ GPWCTC,TRAKTC,RAWSTC,PATTTC,CIRCTC,
     &                HELXTC,VERTTC,VER2TC,OLDJDC,RTRKTC,
     &                GVTXTC,RASHTC
+ADD,COMMCB,TC_MACRO,753.
&KEEP,TCCOMM.
*
      INTEGER IAAA(1200,30),NPOINTS(2)
      COMMON /TCCOMM/ IAAA,NPOINTS
      SAVE /TCCOMM/
*
&KEEP,TCFZZZ.
*
*        Control cards for the Fast-Fuzzy package.
*
      REAL            KY20TC,KY22TC,KY35TC,KY46TC,KY47TC,KY48TC
      INTEGER         KY25TC,KY30TC
      COMMON /TCFZZZ/ KY20TC,KY22TC,KY35TC,KY46TC,KY47TC,KY48TC,
     &                KY25TC,KY30TC
      SAVE   /TCFZZZ/
*
&KEEP,TCPREC.
*
*        PRECTC controls, which primary Pattern RECognition
*               should be activated:
*        FFUZTC Fast FUZzy pattern recognition. (default)
*        RADOTC fuzzy RADOn pattern recognition.
*        OLPTTC OLd PaTtern recognition.
*        The variables can be steered using the PREC card
*        in the jdc input file (logical unit 81).
*        The secundary pattern recognition (RASH) will remain as
*        option to be selected in cboff card CHAM
*
*
      INTEGER         PRECTC
      LOGICAL         FFUZTC,RADOTC,OLPTTC
      COMMON /TCPREC/ PRECTC,
     &                FFUZTC,RADOTC,OLPTTC
      SAVE   /TCPREC/
*

+ADD,CBPHYS,CBFFGO,0.
*CMZ :  1.27/06 08/06/95  18.38.41  by  Christian Voelcker
+ADD,CBPHYS,CBFFGO,92.
*                 June 6th, 1995 Chr. Voelcker
*                    *> keywords FFUZ and RADO migrate to
*                       jdc card PREC.
*                    *> new keyword in CHAM card: GVTX
*
+REP,CBPHYS,CBFFGO,330-335.
         GVTXTC = .FALSE.
         RASHTC = .FALSE.
      ELSE
         TRAKTC = IUCOMP(4HTRAK,ITRAK,NTRAK) .NE. 0
         GPWCTC = IUCOMP(4HGPWC,ITRAK,NTRAK) .NE. 0
         GVTXTC = IUCOMP(4HGVTX,ITRAK,NTRAK) .NE. 0
+REP,CBPHYS,CBFFGO,343-345.
         RASHTC = IUCOMP(4HRASH,ITRAK,NTRAK) .NE. 0
+DEL,CBPHYS,CBFFGO,357-363.