+PATCH,$CORR.
+DECK,CORR1.                     Updates version:  2.03/00  to   2.03/02
+REP,*TITLE*,TITLE,1.
BCTRAK    2.03/02  02/08/95  17.45.25
+REP,$VERSION,V2_03,1-2.
*CMZ :  2.03/02 02/08/95  17.45.26  by  Christian Voelcker
*CMZ :  2.03/01 21/07/95  16.48.08  by  Christian Voelcker
*CMZ :  2.03/00 07/04/95  19.46.07  by  Christian Voelcker
*-- Author :    Christian Voelcker   07/04/95
*
*::>          VERSION  2.03/02   02/08/95 17.45.25
*      *> BCPEDS: the energy correction function is not monotoneus.
*         set maximum cluster energy to 15 GeV to avoid
*         negative energies. (crash when light pulser flashed
*         into pbarp annihilations!)
*
*::>          VERSION  2.03/01   21/07/95 16.48.08
*      *> new install script availbale now.
*         UNIX: cmz -install bctrak <files_directory> [ <option> ... ]'
*         VMS:  CMZ/INSTALL=BCTRAK,<files_directory>,[<option>,...]'
+ADD,BCPHYS,BCPEDS,0.
*CMZ :  2.03/02 27/07/95  18.23.26  by  Christian Voelcker
+ADD,BCPHYS,BCPEDS,57.
***      Updated: 28-JUL-1995 F.-H. Heinsius/Chr. Voelcker:            *
***               the energy correction function is not monotoneus.    *
***               set maximum cluster energy to 15 GeV to avoid        *
***               negative energies. (crash when light pulser flashed  *
***               into pbarp annihilations!)                           *
***                                                                    *
+ADD,BCPHYS,BCPEDS,121.

* error logging counters
      INTEGER  IEREHI                ! cluster energy > 15 GeV
      SAVE     IEREHI
      DATA     IEREHI /0/

+ADD,BCPHYS,BCPEDS,358.
*        limit maximum energy, to prevent negative energies (25.7.95)
         IF(Q(JTBTK+13).GT.15000.) THEN
              CALL ERRLOG(IEREHI,
     &  ' <BCPEDS> more than 15 GeV in one Cluster!')
              EC= 15000.
         ENDIF
+ADD,$KUMACS,00_PATCH,*.
&PATCH,$KUMACS.
*CMZU:  2.03/01 20/07/95  18.16.28  by  Curtis A. Meyer
+ADD,$KUMACS,HELP,*.
&DECK,HELP.
*CMZU:  2.03/01 20/07/95  18.20.52  by  Curtis A. Meyer
*-- Author :    Curtis A. Meyer  02.Nov.1994
   Macro HELP

   mess 'Command template:'
   mess 'UNIX: cmz -install bctrak <files_directory> [ <option> ... ]'
   mess 'VMS:  CMZ/INSTALL=BCTRAK,<files_directory>,[<option>,...]'
   mess ' '
   mess ' The files_directory must exist before calling cmz'
   mess ' '
   mess ' Compile and selection options '
   mess ' DEBUG    - debug option'
   mess ' LIB      - create object library file only (Default) '
   mess ' SOURCE   - create compiled source code only '
   mess ' GNU      - use the g77 and gcc compilers. '
   mess ' '
   mess 'example: cmz -install bctrak src    (for Unix machines)'
   mess '         CMZ /INSTALL=bctrak,[.SRC] (for VMS machines)'
   Return
+ADD,$KUMACS,INSTALL,*.
&DECK,INSTALL.
*CMZU:  2.03/01 20/07/95  18.20.53  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 bctrak on 20 July, 1995
*
   Macro INSTALL src=X
*
* [src] = src directory
* [2-4] = options
*
* options: DEBUG     = Create Debug version of code.
*          LIB       = create only library.
*          GNU       = use the g77 and gcc compilers.
*          SOURCE    = create only compiled source code.
*
   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
   LIBFLAG   = TRUE
   SOURCEFLG = FALSE
   CODEFLAG  = TRUE
   GNUFLAG   = FALSE
   Select  .
*
*  check options
*
   FAIL = FALSE
   Do I = 2,[#]
      Case $Upper([%I]) In
         (DEBUG)       DEBUGFLAG = TRUE
                       message ' Debug print lines selected. '
         (LIB)         TEXTFLAG  = FALSE
                       LIBFLAG   = TRUE
                       SOURCEFLG = FALSE
                       CODEFLAG  = TRUE
         (SOURCE)      TEXTFLAG  = FALSE
                       LIBFLAG   = FALSE
                       SOURCEFLG = TRUE
                       CODEFLAG  = TRUE
         (GNU)         GNUFLAG   = TRUE
                       message ' Selecting g77 and gcc compilers. '
         (*)     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
   Select $OS
   Case $Machine In
     (ALPHA) Case $OS In
               (VMS)  Select VAX
               (UNIX) Select DECS
             Endcase
   Endcase
*
   Mess ' '
   Mess Installation of BCTRAK 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]/mkbctrak_f.sh  -XACL
               Set [CODEDIR]/*.ext     -F
               Set libbctrak.a        -L
        (VMS)  Set [CODEDIR]mkbctrak_f.com -XACL
               Set [CODEDIR]*.ext      -F
               Set BCTRAK.OLB         -L
      Endcase
*
   Else
*
      Case $OS In
        (UNIX) Set [CODEDIR]/mkbctrak_f.sh  -XADCL
               Set [CODEDIR]/*.ext     -F
               Set libbctrak.a        -L
        (VMS)  Set [CODEDIR]mkbctrak_f.com -XADCL
               Set [CODEDIR]*.ext      -F
               Set BCTRAK.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
*
    If [GNUFLAG] = TRUE THEN
       Set '`which g77` -c'//[DEBUGOPT]//' -O -w $compfile' -C f77
       Set '`which gcc` -c'//[DEBUGOPT]//' -O -w $compfile' -C C
    Endif
*
     Sequence //cboff/commcb
*
*  make the library...
*
     set F77 -LAN
     Cd //bctrak
     IF [LIBFLAG] = TRUE Then
        CLib *
     Else
        CCompile *
     Endif
*
*
   Endif
*
END:
*
Message ************************** READ THIS ******************
Message *                                                     *
Message * The following files were created:                   *
Message *                                                     *
If [LIBFLAG] = TRUE Then
   Message * libbctrak.a -  the object library                   *
Endif
If [SOURCEFLG] = TRUE Then
   Message * Object and Source code remain in source directory   *
Endif
Message *                                                     *
Message ************************** READ THIS ******************
*
   Return