+PATCH,$CORR.
+DECK,CORR1.                     Updates version:  1.09/00  to   1.10/00
+REP,*TITLE*,TITLE,1.
 USDROP    1.10/00  09/04/95  11.41.20
+REP,$VERSION,V1_09,1-2.
*CMZ :  1.09/02 17/03/95  10.47.28  by  Curtis A. Meyer
*CMZ :  1.09/01 19/07/94  23.03.45  by  'Curtis A. Meyer"
*CMZU:  1.09/00 30/06/94  18.27.30  by  Curtis A. Meyer
*-- Author :    Curtis A. Meyer   30/06/94
*
*::>          VERSION  1.09/02   17/03/95 10.47.28
*          *> Implement Automatic Installation Script.
*          *> Implement TAXI2 and DOLBY options.
*          *> Allow to cut both PED and Central energy.
*
*::>          VERSION  1.09/01   19/07/94 23.03.45
*          *> fix error numbering iin usdrld routine.
*
+ADD,$VERSION,V1_10,*.
&DECK,V1_10.
*CMZ :  1.10/00 09/04/95  11.41.21  by  Curtis A. Meyer
*-- Author :    Curtis A. Meyer   09/04/95
*
*::>          VERSION  1.10/00   09/04/95 11.41.20
*         *>  Implement code to repspect the TAXI, DOLB and SMART decisions.
*         *>  Manual has been updated.
*
+ADD,$KUMACS,00_PATCH,*.
&PATCH,$KUMACS.
*CMZ :  1.09/02 16/03/95  18.50.14  by  Curtis A. Meyer
+ADD,$KUMACS,INSTALL,*.
&DECK,INSTALL.
*CMZ :  1.10/00 29/03/95  16.23.01  by  Curtis A. Meyer
*CMZ :  1.09/02 17/03/95  10.46.05  by  Curtis A. Meyer
*-- Author :    Curtis A. Meyer 16.March.1995
*
*   This macro is similar to the install macro developed by
*   Mark Lakata for the Crystal Barrel Event Display
*   Ported to cbdrop on 17 March, 1995
*
   Macro INSTALL src=X
*
* [src] = src directory
* [2-4] = options
*
* options: ALL       = create everything
*          DEBUG     = Create Debug version of code.
*          TEXT      = create only text files.
*          LIB       = create only library.
*          SOURCE    = create only compiled source code.
*          DBG_DROP  = Select Debug print lines in drop.
*          DBG_KFIT  = Select Debug print lines in kfit
*          DBG_ALL   = Select Debug print lines in both drop and kfit
*
   if [src]='X' Then
      Exec help
      Goto END
   Endif

   If [src]='?' Then
      Exec help
      Goto END
   Endif
*
*  CODEDIR    Source code directory
*
   CODEDIR  = $Lower([src])
   message Putting source code files in [CODEDIR]
*
*  set defaults
*
   DEBUGFLAG = FALSE
   TEXTFLAG  = FALSE
   LIBFLAG   = FALSE
   SOURCEFLG = TRUE
   CODEFLAG  = TRUE
   Select  .
*
*  check options
*
   FAIL = FALSE
   Do I = 2,[#]
      Case $Upper([%I]) In
         (DBG_DROP)    Select DBG_DROP
         (DBG_KFIT)    Select DBG_KFT4
         (DBG_ALL)     Select DBG_DROP
                       Select DBG_KFT4
         (DEBUG)       DEBUGFLAG = TRUE
                       message ' Debug print lines selected. '
         (ALL)         TEXTFLAG  = TRUE
                       LIBFLAG   = TRUE
                       SOURCEFLG = TRUE
                       CODEFLAG  = TRUE
         (TEXT)        TEXTFLAG  = TRUE
                       LIBFLAG   = FALSE
                       SOURCEFLG = FALSE
                       CODEFLAG  = FALSE
         (LIB)         TEXTFLAG  = FALSE
                       LIBFLAG   = TRUE
                       SOURCEFLG = FALSE
                       CODEFLAG  = TRUE
         (SOURCE)      TEXTFLAG  = FALSE
                       LIBFLAG   = FALSE
                       SOURCEFLG = TRUE
                       CODEFLAG  = TRUE
         (*)     message '****************************************'
                 message Error: Option $Upper([%I]) not understood.
                 message '****************************************'
                 FAIL = TRUE
      Endcase
   Enddo

   If [FAIL] = TRUE then
     exec help
     goto end
   Endif

   Case $OS In
     (UNIX) File $CBCMZ/cboff.cmz -R
     (VMS)  File CB$CMZ:cboff.cmz -R
   Endcase

   Select $MACHINE
   Case $Machine In
     (ALPHA) Case $OS In
               (VMS)  Select VAX
               (UNIX) Select UNIX
                      Select DECS
             Endcase
   Endcase
*
   Mess ' '
   Mess Installation of CBDROP on $MACHINE $OS starting at $DATE $TIME .
   Select
   Mess ' '
*
*  Set up the FORTRAN compiling extensions
*
   Case $MACHINE In
      (IBM)    Alias/Create ext fortran
      (VAX)    Alias/Create ext for
               Alias/Create cext c
      (ALPHA)  Case $OS In
                 (VMS)  Alias/Create ext for
                        Alias/Create cext c
                 (UNIX) Alias/Create ext f
                        Alias/Create cext c
               Endcase
      (*)      Alias/Create ext f
               Alias/Create cext c
   Endcase
*
   Set FORTRAN -LAN
*
* Set up filenames for the extraction of the fortran code.
*
   If [SOURCEFLG] = TRUE Then
*
      Case $OS In
        (UNIX) Set [CODEDIR]/mkcbdrop_f.sh  -XACL
               Set [CODEDIR]/*.ext     -F
               Set libcbrop.a        -L
        (VMS)  Set [CODEDIR]mkcbdrop_f.com -XACL
               Set [CODEDIR]*.ext      -F
               Set CBDROP.OLB         -L
      Endcase
*
   Else
*
      Case $OS In
        (UNIX) Set [CODEDIR]/mkcbdrop_f.sh  -XADCL
               Set [CODEDIR]/*.ext     -F
               Set libcbrop.a        -L
        (VMS)  Set [CODEDIR]mkcbdrop_f.com -XADCL
               Set [CODEDIR]*.ext      -F
               Set CBDROP.OLB         -L
      Endcase
*
    Endif
*
*  Set up the debug options
*
   If [DEBUGFLAG] = TRUE Then
      Case $MACHINE In
         (APOLLO)                  DEBUGOPT=' -dba'
         (HPUX,SGI,SUN,DECS,IBMRT) DEBUGOPT=' -g'
         (VAX)                     DEBUGOPT='/NOOP/DEB'
         (ALPHA) Case $OS In
                   (VMS)  DEBUGOPT='/NOOP/DEB'
                   (UNIX) DEBUGOPT=' -g'
                 Endcase
      Endcase
   Else
      DEBUGOPT=' '
   Endif
*
* choose fortran compiler options and other stuff
*
   If [CODEFLAG] = TRUE Then
   Case $MACHINE In
   (HPUX) Set 'f77 -c'//[DEBUGOPT]//' +ppu $compfile' -C f77
          Set 'cc -c -O -w '//[DEBUGOPT]//'        $compfile' -C C
   (SUN) Set 'f77 -c'//[DEBUGOPT]//' -fnonstd -O -Nl100 -w $compfile' -C f77
         Set '`which gcc` -c'//[DEBUGOPT]//' -O -w $compfile' -C C
   (IBMRT) Set 'xlf -c'//[DEBUGOPT]//' -qextname $compfile' -C f77
           Set 'cc -c -O -w '//[DEBUGOPT]//'        $compfile' -C C
   (SGI)   Set 'f77 -c'//[DEBUGOPT]//' $compfile G 3' -C f77
           Set 'cc -c -O -w '//[DEBUGOPT]//'        $compfile' -C C
   (DECS)  Set 'f77 -c -O -w -Nl99 '//[DEBUGOPT]//' $compfile' -C f77
           Set 'cc -c -O -w '//[DEBUGOPT]//'        $compfile' -C C
   (VAX)   Set 'FOR/OBJ=$compfile.OBJ'//[DEBUGOPT]//' $compfile' -C f77
           Set 'CC/OBJ=$compfile.obj'//[DEBUGOPT]//'  $compfile' -C C
*
   (ALPHA) Case $OS In
    (VMS) Set 'FOR/SEPAR/OBJ=$compfile.OBJ'//[DEBUGOPT]//' $compfile' -C f77
          Set 'CC/OBJ=$compfile.obj'//[DEBUGOPT]//' $compfile' -C C
    (UNIX) Set 'f77 -c -O -w -Nl99 '//[DEBUGOPT]//' $compfile' -C f77
           Set 'cc -c -O -w '//[DEBUGOPT]//' $compfile' -C C
     Endcase
*
     Endcase
*
     Sequence //cbdrop/dropcomm
     Sequence //cboff/commcb
*
*  make the library...
*
     set F77 -LAN
     Cd //cbdrop
     IF [LIBFLAG] = TRUE Then
        CLib *
     Else
        CCompile *
     Endif
*
*
   Endif
*
   If [TEXTFLAG] = TRUE Then
*
      cd //cbdrop/manual
      set cbdrop.tex -F TEXT
      ctot manual
*
   Endif
*
END:
*
Message ************************** READ THIS ******************
Message *                                                     *
Message * The following files were created:                   *
Message *                                                     *
If [LIBFLAG] = TRUE Then
   Message * libcbdrop.a -  the object library                   *
Endif
If [SOURCEFLG] = TRUE Then
   Message * Object and Source code remain in source directory   *
Endif
If [TEXTFLAG] = TRUE Then
   Message * cbdrop.tex -  the cbdrop manual.                    *
Endif
Message *                                                     *
Message ************************** READ THIS ******************
*
   Return
+ADD,$KUMACS,HELP,*.
&DECK,HELP.
*CMZ :  1.09/02 17/03/95  10.47.06  by  Curtis A. Meyer
*-- Author :    Curtis A. Meyer  02.Nov.1994
   Macro HELP

   mess 'Command template:'
   mess 'UNIX: cmz -install cbdrop <files_directory> [ <option> ... ]'
   mess 'VMS:  CMZ/INSTALL=CBDROP,<files_directory>,[<option>,...]'
   mess ' '
   mess ' The files_directory must exist before calling cmz'
   mess ' '
   mess ' Source Code OPTIONS:'
   mess ' DBG_ALL     - Select all debug print lines.'
   mess ' DBG_DROP    - Select drop code debug print lines.'
   mess ' DBG_KFIT    - Select kfit code debug print lines.'
   mess ' '
   mess ' Compile and selection options '
   mess ' ALL      - create all the files (see LIB and TEXT)'
   mess ' DEBUG    - debug option'
   mess ' LIB      - create object library file only'
   mess ' SOURCE   - create compiled source code only (Default)'
   mess ' TEXT     - create text files and run script'
   mess ' '
   mess 'example: cmz -install cbdrop src all   (for Unix machines)'
   mess '         CMZ /INSTALL=cbdrop,[.SRC],ALL (for VMS machines)'
   Return
+ADD,DROPCOMM,@DMACRO,0.
*CMZ :  1.10/00 30/03/95  18.07.16  by  Curtis A. Meyer
*CMZ :  1.09/02 16/03/95  20.41.49  by  Curtis A. Meyer
+ADD,DROPCOMM,@DMACRO,41.
*        ECENUS The minimum central crystal energy.
*        E1E9US The cut on E1/E9 for a cluster.
+REP,DROPCOMM,@DMACRO,55-56.
*        LEGAUS Reject Events on PED energy.
*        LEDGUS Reject Events with "edge" PEDS.
*        LCENUS Use Central XTAL Energy.
*        LTAXI2 Respect TAXI 2's decision on PEDS.
*        LDOLBY Respect DOLBY's  decision on PEDS.
*        LSMART Respect SMART's  decision on PEDS.
*        LE19US Make a cut on E1/E9
+REP,DROPCOMM,@DMACRO,62-69.
      REAL            EGAMUS,ECENUS,E1E9US,EBALUS,PBALUS,ESMCUS
      REAL            PSMCUS,VSHFUS(3)
      INTEGER         NDRPUS,NGMNUS,NGMXUS,NGAMUS,NTRKUS,LONGUS
      INTEGER         IVRTUS,MASKUS,ISHFUS,IGTRAK,INTLUS
      LOGICAL         LEGAUS,LEDGUS,LCENUS,LTAXI2,LDOLBY,LSMART
      LOGICAL         LE19US
      COMMON /USDCUT/ EGAMUS,ECENUS,EBALUS,PBALUS,ESMCUS,E1E9US,
     &                PSMCUS,VSHFUS,NDRPUS,NGMNUS,NGMXUS,NGAMUS,
     &                NTRKUS,LONGUS,IVRTUS,MASKUS,ISHFUS,IGTRAK,
     &                LEGAUS,LEDGUS,LCENUS,LTAXI2,LDOLBY,LSMART,
     &                LE19US,INTLUS
+ADD,DROPCODE,CBDROP,0.
*CMZ :  1.10/00 30/03/95  18.13.50  by  Curtis A. Meyer
*CMZ :  1.09/02 17/03/95  09.39.21  by  Curtis A. Meyer
+REP,DROPCODE,CBDROP,118-121.
      LOGICAL  LGFRST
      SAVE     LGFRST
      DATA     LGFRST /.TRUE./
*
      INTEGER      IVERSQ
      CHARACTER*8  VERSQQ
*
&CDE,USDCUT.
&CDE,USPALL.
&CDE,TCDEBG,IF=DBG_DROP.
&CDE,CBUNIT.
+ADD,DROPCODE,CBDROP,127.
&SEQ,VERSQQ.
*
      IF(LGFRST) THEN
         LGFRST = .FALSE.
         WRITE(LLOG,101)VERSQQ
         WRITE(LLOG,102)LEGAUS,EGAMUS,LCENUS,ECENUS,LE19US,
     &                  E1E9US,LTAXI2,LDOLBY
*
         IF     ( IVRTUS .EQ. 1 ) THEN
            WRITE(LLOG,103)
         ELSEIF ( IVRTUS .EQ. 2 ) THEN
            WRITE(LLOG,104)
         ELSE
            WRITE(LLOG,105)
         ENDIF
*
      ENDIF
  101  FORMAT(' ********************************************* ',/,
     &       ' * CBDROP Version ',A8,'                   * ',/,
     &       ' * Code has been initialized with the        *'/,
     &       ' * Following options on:                     *',/,
     &       ' *                                           *')
 102  FORMAT(' * Cut on Ped Energy is   ',L4,': Cut = ',F6.2,' *',/,
     &       ' * Cut on central crystal ',L4,': Cut = ',F6.2,' *',/,
     &       ' * Cut on E1/E9           ',L4,': Cut = ',F6.2,' *',/,
     &       ' * Respect the TAXI2 Decsision ',L4,'          *',/,
     &       ' * Respect the Dolby Decsision ',L4,'          *')
 103  FORMAT(' * CBDROP loads from Helix Banks             *',/,
     &       ' *********************************************')
 104  FORMAT(' * CBDROP loads from Vertex Banks            *',/,
     &       ' *********************************************')
 105  FORMAT(' * CBDROP loads from Global Banks            *',/,
     &       ' *********************************************')
*
+ADD,DROPCODE,UBCLDD,0.
*CMZ :  1.10/00 30/03/95  17.33.52  by  Curtis A. Meyer
+ADD,DROPCODE,UBCLDD,64.
*                      30 March, 1995    C.A.Meyer
*                      Catch a wierd GTRACK problem.
*
+REP,DROPCODE,UBCLDD,118-120.
      INTEGER IEDBSH,IESHIT
      SAVE    IEDBSH,IESHIT
      DATA    IEDBSH,IESHIT /0,0/
+ADD,DROPCODE,UBCLDD,142.
      IF ( Q(JTTKS+15).LE.0.0) THEN
         CALL ERRLOG(IESHIT,
     &' <CBDROP> Global Tracking Banks have been clobbered! ABORT ')
         RETURN
      ENDIF
*
+ADD,DROPCODE,USDINI,0.
*CMZ :  1.10/00 30/03/95  18.09.26  by  Curtis A. Meyer
*CMZ :  1.09/02 16/03/95  20.40.40  by  Curtis A. Meyer
+REP,DROPCODE,USDINI,59-63.
      ECENUS = 13.0
      E1E9US = 0.96
      NBADUS =  0
      CALL VZERO(IBADUS,40)
*
      LEGAUS = .TRUE.
      LEDGUS = .TRUE.
      LCENUS = .FALSE.
      LTAXI2 = .TRUE.
      LDOLBY = .TRUE.
      LSMART = .FALSE.
      LE19US = .TRUE.
+ADD,DROPCODE,USDRLD,0.
*CMZ :  1.10/00 30/03/95  18.12.07  by  Curtis A. Meyer
*CMZ :  1.09/02 16/03/95  20.39.46  by  Curtis A. Meyer
*CMZ :  1.09/01 19/07/94  23.03.37  by  'Curtis A. Meyer"
+ADD,DROPCODE,USDRLD,17.
*        Modified:      17/03/95
+ADD,DROPCODE,USDRLD,50.
*
*                       17 March 1995 C.A.Meyer
*                       Add options to respect the TAXI2 decision,
*                       the DOLBYC decsion, and allow both PED
*                       energy and central crystal energy cuts.
*                       These new options will only work with
*                       data tracked using GTRACK 1.33/00 and
*                       later.
*
*                       29 March, 1995 C.A.Meyer
*                       Add options to respect the SMART decsion.
*
*                       30 March, 1995 C.A.Meyer
*                       Add options to make a cut on E1/E9
*
+REP,DROPCODE,USDRLD,69-70.
      INTEGER IER00,IER01,IER02,IERMSK
      SAVE    IER00,IER01,IER02,IERMSK
+REP,DROPCODE,USDRLD,87.
      DATA IER00,IER01,IER02 / 3*0 /
+REP,DROPCODE,USDRLD,124-125.
         IF(LTTKS.LE.0) THEN
            CALL ERRLOG(IER02,' <USDRLD> TTKS Bank needed but missing ')
+ADD,DROPCODE,USDRLD,228.
      ITBTK = 0
*
+ADD,DROPCODE,USDRLD,242.
*
+REP,DROPCODE,USDRLD,251-271.
*---Check to see if this photon fails the energy cuts.
*---Set the initial setup to "fail".
*
            LGALUS(I) = 1
*
*---Check photon energy from global tracking bank. Accept
*---if it is ok.
*
            IF(LEGAUS.AND.(.NOT.LCENUS)) THEN
               IF(Q(JTTKS+15) .GT. EGAMUS) LGALUS(I) = 0
            ENDIF
*
*---Check energy in central crystal.
*
            IF(LCENUS.AND.(.NOT.LEGAUS)) THEN
               IF(Q(JTTKS+13) .GT. ECENUS) LGALUS(I) = 0
            ENDIF
*
*---If both are required:
*
            IF(LEGAUS.AND.LCENUS) THEN
               IF((Q(JTTKS+15) .GT. EGAMUS) .AND.
     &            (Q(JTTKS+13) .GT. ECENUS)) LGALUS(I) = 0
            ENDIF
*
*---Make a Cut on E1/E9
*
            IF(LE19US) THEN
               IF(Q(JTTKS+33).GT.E1E9US) LGALUS(I) = 1
+ADD,DROPCODE,USDRLD,287.
*---Check to see if TAXI2 wants to reject this PED:
*
            IF(LTAXI2) THEN
               IF(IQ(JTTKS+53).NE.0) LGALUS(I) = 1
            ENDIF
*
*---Check to see if DOLBYC rejected this PED.
*
            IF(LDOLBY) THEN
               IF(IQ(JTTKS+52).NE.0) LGALUS(I) = 1
            ENDIF
*
*---Check to see if SMART rejected this PED.
*
            IF(LSMART) THEN
               IF(IQ(JTTKS+54).EQ.1) LGALUS(I) = 1
            ENDIF
*
+ADD,MANUAL,MANUAL,0.
*CMZ :  1.10/00 30/03/95  18.18.26  by  Curtis A. Meyer
*CMZ :  1.09/02 17/03/95  08.46.49  by  Curtis A. Meyer
+REP,MANUAL,MANUAL,41-44.
User Guide for CBDROP \\
A Charged Splitoff Supression Package}
\author{Curtis A. Meyer \\ Universit\"{a}t Z\"{u}rich}
\date{30 June, 1992 --- updated on 29 March, 1995}
+REP,MANUAL,MANUAL,99.
\markboth{User Guide for CBDROP}{User Guide for CBDROP}
+REP,MANUAL,MANUAL,106-110.
    The {\sc cbdrop} code is designed to try and enhance data samples in the
mixed charged and neutral environment. In these mixed channels, many charged
particles will produce more than one energy deposit in the barrel. However,
for global tracking to make any sense, it can attach at most {\em one}
{\sc ped}
to a given track. The purpose of {\sc cbdrop} is to attempt to figure out which
+REP,MANUAL,MANUAL,127.
her analsysis of $\pi^{+}\pi^{-}\pi^{\circ}\pi^{\circ}$. {\sc cbdrop} is the
+REP,MANUAL,MANUAL,138-171.
    {\sc cbdrop} is distributed as a {\sc cmz} file. The code is slightly
machine dependent, but the normal Crystal Barrel machine flags are used.
The {\sc cmz} file can be found in the following places:
\begin{itemize}
\item {\sc cb decstations} /cboff/pro/cmz/cbdrop.cmz
\item {\sf e--mail} cmeyer@ernest.phys.cmu.edu
\end{itemize}
You can get the {\sc cmz} using binary {\sc ftp}. Then create a
source subdirectory under the account containing {\sc cbdrop.cmz}.
You can now use the automatic installation procedure, which on
a Unix platform is:
\begin{verbatim}
  cmz -install cbdrop src_directory [options]
\end{verbatim}
While under {\sc vms} this is:
\begin{verbatim}
  CMZ/INSTALL=CBDROP,[.src_directory],[options]
\end{verbatim}
The allowed options are:
\begin{itemize}
\item {\sc all} Create source code, a library, and the manual.
\item {\sc lib} Create the library.
\item {\sc source} Create the compiled source code.
\item {\sc text} Create the manual.
\end{itemize}

\section{How To Use CBDROP}

    To use the {\sc cbdrop} code, one must first initialize the package. Then
for every event for which there is a chance that dropping photons can help,
one should call the {\sc cbdrop} code. Even though {\sc cbdrop} will check
to make sure that the event is consistent with your requirements before
running, it is still faster to {\em prefilter} the events. If you are
looking for final states such as $\pi^{+}\pi^{-}6\gamma$, then it makes
no senese to call {\sc cbdrop} when the event has more than 2 tracks at the
+REP,MANUAL,MANUAL,177-185.
    In order to initialize the {\sc cbdrop} code, it is necessary to call the
{\sc usdini} routine from your {\sc usinit} routine. This will define a
{\em default} configuration for {\sc cbdrop}. This default configuration can
then be modified to suit your own needs, (see the example code at the end of
this section). To modify the default configuration,
you need to include the {\sc /usdcut/} common in your {\sc usinit} code,
(see below).
You can then modify the following variables. Note that these are only used
to steer the {\sc cbdrop} code, their values will never be changed by the
{\sc cbdrop} routine.
+ADD,MANUAL,MANUAL,192.
\item {\sc ecenus} is a {\sc real} variable which defines the minimun
energy in the central crystal of a {\sc ped}. It has a defualt value of
13 MeV.
\item {\sc e1e9us} is a {\sc real} variable which defines the maximum ratio
of E1/E9 for a {\sc ped}. The default value is 0.96.
+REP,MANUAL,MANUAL,201-204.
energy balance before a 4--C fit is performed. If $\mid E_{sum} - $
{\sc ebalus}
$\mid >$ {\sc esmcus}, then the Confidence Level is set to 0, and no fit
is made
The default is 10000.0, which is essentially no cut.
\item {\sc psmcus} is a {\sc real} variable which defines a cut applied to
the
+REP,MANUAL,MANUAL,212-219.
\item {\sc legaus} is a {\sc logical} variable that when set, only
accepts {\sc peds} whose energy is larger than {\sc egamus}.
\item {\sc lcenus} is a {\sc logical} variable that when set, only
accepts {\sc peds} whose central energy is larger than {\sc ecenus}.
The default value of {\sc lcenus} is {\sc .false.}.
\item {\sc ltaxi2} is a logical that when set forces {\sc cbdrop}
to repsepct the spilt--off decision taken by {\sc taxi2}. Its default
value is {\sc .true.}.
\item {\sc ldolby} is a logical that when set forces {\sc cbdrop}
to respect the split--off decision taken by {\sc dolby}. Its default
value is {\sc .true.}.
\item {\sc lsmart} is a logical that when set {\sc true} forces {\sc cbdrop}
to respect the split--off decision taken by {\sc smart}. Only {\sc smart}
code 1 {\sc peds} are rejected. This variable has a default value of
{\sc .false.}.
\item {\sc le19us} is a logical that when set {\sc true} causes {\sc cbdrop}
to make a cut on E1/E9. The default value is {\sc true}.
+REP,MANUAL,MANUAL,283.
banks, {\sc cbdrop} realizes that all the errors in $\psi$ need to be
+REP,MANUAL,MANUAL,294-298.
factor internal in {\sc cbdrop}. Do {\bf not} set this value to 2
to get the vertex correction described above.
\item {\sc afacus} Allows one to scale the transverse momentum by this
factor. The deafult is 1.00.
\item {\sc xeneus} Scale factor applied to the error in the
$\sqrt{E_{\gamma}}$.
+REP,MANUAL,MANUAL,306.
A possible example setup of {\sc cbdrop} is given in the following snipit
+REP,MANUAL,MANUAL,336-340.
In your {\sc user} routine, you need to call the {\sc cbdrop} subroutine.
You then need to make a decision on whether to keep or reject the event
based on what {\sc cbdrop} returns.  It is also necessary that you
provide sufficient working space for {\sc cbdrop}. The following
code snippet indicates how to setup and call cbdrop for dropping a
+REP,MANUAL,MANUAL,357.
      CALL CBDROP(NTRY,INDX,NDROP,NKEEP,IDROP,IKEEP,CLEV,
+REP,MANUAL,MANUAL,412.
as chosen by {\sc cbdrop} is really the true combination, the following
+REP,MANUAL,MANUAL,448-452.
{\sc ped}'s from being used by {\sc cbdrop}. The variables
{\sc nbadus} and {\sc ibadus} in the {\sc /pallus/} common block have
been provided for this purpose. In order to implement this, add the
following snipit of code to you {\sc user} routine before calling
{\sc cbdrop}.
+REP,MANUAL,MANUAL,467-470.
       CALL CBDROP(...)
\end{verbatim}
It is very important that you reset the value NBADUS to zero at the start
of every event. Because of the nature of this cut, {\sc cbdrop} has no
+REP,MANUAL,MANUAL,478-481.
and you are planning to use {\sc cbkfit} in addition to {\sc cbdrop}, then
you probably want to consider using the {\em smart--mode} of {\sc cbdrop}.
If you run in this mode, you must specify the number of photons allowed
in the final state. {\sc cbdrop} will then vary its dropping rules
+REP,MANUAL,MANUAL,488-495.
error code of $-7$ is returned by {\sc cbdrop}.}
\item {\sf If the number of photons minus the maximum to drop is larger
than the number of requested, the event will be skipped.
In this case an error code of $-7$ is returned by {\sc cbdrop}.}
\item {\sf {\sc cbdrop} will only drop sufficient photons to exactly
satisfy your request, {\sc ngmnus}. If you ask for 6, allow {\sc cbdrop} to
drop up to 2, and the event has 7 potoential photons, then on this
event, {\sc cbdrop} will not try the drop--0 and drop--2 combinations,
+REP,MANUAL,MANUAL,528-539.
drop job. Not all variables in this common are used by {\sc cbdrop}, but
they are present due to historical reasons. They can be used by the USER
to steer the running of {\sc cbdrop}.
\begin{verbatim}
      REAL            EGAMUS,ECENUS,E1E9US,EBALUS,PBALUS,ESMCUS
      REAL            PSMCUS,VSHFUS(3)
      INTEGER         NDRPUS,NGMNUS,NGMXUS,NGAMUS,NTRKUS,LONGUS
      INTEGER         IVRTUS,MASKUS,ISHFUS,IGTRAK,INTLUS
      LOGICAL         LEDGUS,LCENUS,LEGAUS,LTAXI2,LDOLBY,LSMART
      LOGICAL         LE19US
      COMMON /USDCUT/ EGAMUS,ECENUS,E1E9US,EBALUS,PBALUS,ESMCUS,
     &                PSMCUS,VSHFUS,NDRPUS,NGMNUS,NGMXUS,NGAMUS,
     &                NTRKUS,LONGUS,IVRTUS,MASKUS,ISHFUS,IGTRAK,
     &                LEDGUS,LCENUS,LEGAUS,LTAXI2,LDOLBY,LSMART,
     &                LE19US,INTLUS
+ADD,MANUAL,MANUAL,544.
\item {\sc ecenus} A real variable which defines the minimum energy in
the central crystal of a ped.
\item {\sc e1e9us}
+REP,MANUAL,MANUAL,585-586.
\item {\sc legaus} Set to {\sc true} if {\sc cbdrop} should place
a cut on the {\sc ped} energy.
\item {\sc ltaxi2} Set to {\sc true} if {\sc cbdrop} should respect
the results of {\sc taxi}.
\item {\sc ldolby} Set to {\sc true} if {\sc cbdrop} should respect
the results of {\sc dolby}.
\item {\sc lsmart} Set to {\sc true} if {\sc cbdrop} should respect
the results of {\sc smart}.
\item {\sc le19us}
\item {\sc intlus} If set larger than zero, {\em smart--mode} is activated.
In {\em smart--mode}, {\sc cbdrop} will not fit any combinations in which
+REP,MANUAL,MANUAL,675-678.
fit results. Upon completion of {\sc cbdrop}, the variables will be loaded
with the results for the *best* overall 4-C fit. These may or may not
be the desired results, but are available as a by product of the
CBDROP call without any extra effort. All momentum vectors are in