+PATCH,$CORR.
+DECK,CORR1.                     Updates version:  2.04/00  to   2.04/03
+REP,*TITLE*,TITLE,1.
CCDBCB   2.04/03  21/07/95  16.51.18  Offline Software, Database
+REP,$VERSION,V2_04,1-2.
*CMZ :  2.04/03 21/07/95  16.51.18  by  Christian Voelcker
*CMZ :  2.04/02 23/06/95  17.35.48  by  Christian Voelcker
*CMZ :  2.04/01 24/01/95  23.13.08  by  Christian Voelcker
*CMZU:  2.04/00 20/07/94  18.00.10  by  F.-H.Heinsius
*-- Author :    F.-H.Heinsius   20/07/94
*
*::>          VERSION  2.04/03   21/07/95 16.51.18
*         *>  install script for ccdbcb available now.
*             UNIX: cmz -install ccdbcb <files_directory> [ <option> ... ]'
*             VMS:  CMZ/INSTALL=CCDBCB,<files_directory>,[<option>,...]'
*
*::>          VERSION  2.04/02   23/06/95 17.35.48
*         *>  avoid compiler warning in ccinit. comment one (unused) line
*
*::>          VERSION  2.04/01   24/01/95 23.13.08
*         *>  update dbcommon to be consistent with the
*             dbcommon deck in cboff.cmz
*         *>  typing error fix in ccgetj
*             (nothing really terrible ..)
+REP,DBCOMMON,DBCOMMON,1-3.
*CMZU:  2.04/01 31/08/94  18.40.54  by  Christian Voelcker
*CMZ :          26/08/94  18.40.08  by  Christian Voelcker
*           changed the number for KPW to 29 (seems never to be used)
*           added KJU for the NEW JDC's drift time tables
*CMZ :  1.23/09 30/06/94  18.08.21  by  Michael Doser
*CMZ :          30/06/94  18.07.48  by  Michael Doser
*           new bank CK for global fudge
*CMZU:  1.23/06 02/03/94  08.51.15  by  Curtis A. Meyer
*CMZU:  1.22/00 04/12/92  17.43.37  by  Michael Doser
*CMZ :  2.03/00 20/10/92  17.56.28  by  F.-H. Heinsius
*CMZ :  2.02/02 27/02/92  18.36.14  by  Michael Doser
*CMZ :  2.00/00 27/02/91  16.44.39  by  Gunter Folger
+REP,DBCOMMON,DBCOMMON,13-23.
      INTEGER    KBE, KBL, KBP, KBX, KBR, KBC, KBS, KBG,
     &           KJZ, KJE, KJS, KJT, KJW, KJC, KJP, KJL, KJR, KJU,
     &           KPW,
     &           KCR, KCB, KCG, KCP, KCK,
     &           KLG, KLP, KLX,
     &           MPARCC,
     &           MCYCCC, NRECCC, MDIRCC
      PARAMETER (KBE=1, KBL=2, KBP=3, KBX=4, KBR=5, KBC=6, KBS=7, KBG=8,
     &           KJZ=10, KJT=11, KJE=12, KJS=13, KJW=14, KJC=15,KJP=16,
     &           KJL=17, KJR=18, KJU=19,
     &           KCR=20, KCB=21, KCG=22,KCP=23, KCK=24,
     &           KPW=29,
+ADD,DBCOMMON,DBCOMMON,41.
      PARTCC(KBG) = 'BG'
+ADD,DBCOMMON,DBCOMMON,49.
      PARTCC(KJL) = 'JL'
      PARTCC(KJR) = 'JR'
      PARTCC(KJU) = 'JU'
+ADD,DBCOMMON,DBCOMMON,56.
      PARTCC(KCK) = 'CK'
+DEL,DBCOMMON,DBCOMMON,84.
+ADD,CCOFFL,CCDATA,0.
*CMZU:  2.04/03 06/07/95  23.08.50  by  Curtis A. Meyer
+REP,CCOFFL,CCDATA,24-29.
&SEQ,IMPNONE.
+ADD,CCOFFL,CCGETC,0.
*CMZU:  2.04/03 06/07/95  23.11.00  by  Curtis A. Meyer
+REP,CCOFFL,CCGETC,11-15.
&SEQ,IMPNONE.
+ADD,CCOFFL,CCINIT,0.
*CMZU:  2.04/03 06/07/95  23.11.01  by  Curtis A. Meyer
*CMZ :  2.04/02 23/06/95  17.35.38  by  Christian Voelcker
+REP,CCOFFL,CCINIT,39-43.
&SEQ,IMPNONE.
+REP,CCOFFL,CCINIT,97.
CV    IF(LRZIN.LT.10) WRITE(IENVIR,36)LRZIN
+ADD,CCOFFL,CCISMC,0.
*CMZU:  2.04/03 06/07/95  23.11.02  by  Curtis A. Meyer
+REP,CCOFFL,CCISMC,24-29.
&SEQ,IMPNONE.
+ADD,CCOFFL,CCLAST,0.
*CMZU:  2.04/03 06/07/95  23.11.02  by  Curtis A. Meyer
+REP,CCOFFL,CCLAST,20-24.
&SEQ,IMPNONE.
+ADD,CCOFFL,CCOPEN,0.
*CMZU:  2.04/03 06/07/95  23.11.02  by  Curtis A. Meyer
+REP,CCOFFL,CCOPEN,38-42.
&SEQ,IMPNONE.
+ADD,CCOFFL,CCGETJ,0.
*CMZU:  2.04/03 06/07/95  23.11.01  by  Curtis A. Meyer
*CMZU:  2.04/01 26/08/94  18.31.26  by  Christian Voelcker
+REP,CCOFFL,CCGETJ,8-12.
&SEQ,IMPNONE.
+REP,CCOFFL,CCGETJ,207.
         WRITE(LERR,*) 'CCGETJ: ERROR CONSTANTS NOT FOUND'
+REP,CCOFFL,CCGETJ,227.
         WRITE(LERR,*) 'CCGETJ: ERROR CONSTANTS NOT FOUND'
+REP,CCALIB,CCNEWF,1-9.
*CMZU:  2.04/03 06/07/95  23.13.48  by  Curtis A. Meyer
*CMZU:  2.00/00 27/02/91  16.32.53  by  Gunter Folger
*CMZ :  1.20/07 23/08/90  18.19.50  by  F.-H. Heinsius
*-- Author :    F.-H. Heinsius   23/08/90
      SUBROUTINE CCNEWF(IURZ,NREC,TPDIR,CHOPT)
&SEQ,IMPNONE.
+ADD,CCALIB,CCOLDF,0.
*CMZU:  2.04/03 06/07/95  23.13.48  by  Curtis A. Meyer
+REP,CCALIB,CCOLDF,6-10.
&SEQ,IMPNONE.
+ADD,CCALIB,CCPERI,0.
*CMZU:  2.04/03 06/07/95  23.13.49  by  Curtis A. Meyer
+REP,CCALIB,CCPERI,6-10.
&SEQ,IMPNONE.
+ADD,CCALIB,CCBOOK,0.
*CMZU:  2.04/03 06/07/95  23.13.49  by  Curtis A. Meyer
+REP,CCALIB,CCBOOK,6-10.
&SEQ,IMPNONE.
+ADD,CCALIB,CCIDEN,0.
*CMZU:  2.04/03 06/07/95  23.13.49  by  Curtis A. Meyer
+REP,CCALIB,CCIDEN,6-10.
&SEQ,IMPNONE.
+ADD,CCALIB,CCSTOR,0.
*CMZU:  2.04/03 06/07/95  23.13.49  by  Curtis A. Meyer
+REP,CCALIB,CCSTOR,13-17.
&SEQ,IMPNONE.
+REP,CCALIB,CCENDF,1-9.
*CMZU:  2.04/03 06/07/95  23.13.50  by  Curtis A. Meyer
*CMZU:  2.00/00 27/02/91  16.32.55  by  Gunter Folger
*CMZ :  1.20/07 23/08/90  18.19.50  by  F.-H. Heinsius
*-- Author :    F.-H. Heinsius   23/08/90
      SUBROUTINE CCENDF (IURZ, TPDIR)
&SEQ,IMPNONE.
+ADD,$KUMACS,00_PATCH,*.
&PATCH,$KUMACS.
*CMZU:  2.04/03 20/07/95  18.30.03  by  Curtis A. Meyer
+ADD,$KUMACS,HELP,*.
&DECK,HELP.
*CMZU:  2.04/03 20/07/95  18.35.50  by  Curtis A. Meyer
*-- Author :    Curtis A. Meyer  02.Nov.1994
   Macro HELP

   mess 'Command template:'
   mess 'UNIX: cmz -install ccdbcb <files_directory> [ <option> ... ]'
   mess 'VMS:  CMZ/INSTALL=CCDBCB,<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 ccdbcb src    (for Unix machines)'
   mess '         CMZ /INSTALL=CCDBCB,[.SRC] (for VMS machines)'
   Return
+ADD,$KUMACS,INSTALL,*.
&DECK,INSTALL.
*CMZU:  2.04/03 20/07/95  18.35.50  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 ccdbcb 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 CCDBCB 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]/mkccdbcb_f.sh  -XACL
               Set [CODEDIR]/*.ext     -F
               Set libccdbcb.a         -L
        (VMS)  Set [CODEDIR]mkccdbcb_f.com -XACL
               Set [CODEDIR]*.ext      -F
               Set CCDBCB.OLB          -L
      Endcase
*
   Else
*
      Case $OS In
        (UNIX) Set [CODEDIR]/mkccdbcb_f.sh  -XADCL
               Set [CODEDIR]/*.ext     -F
               Set libccdbcb.a         -L
        (VMS)  Set [CODEDIR]mkccdbcb_f.com -XADCL
               Set [CODEDIR]*.ext      -F
               Set CCDBCB.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...
*
    Buffer .
    Buffer //ccdbcb/ccoffl/*
    Buffer //ccdbcb/ccalib/*
*
    set F77 -LAN
    IF [LIBFLAG] = TRUE Then
       CLib -B
    Else
       CCompile -B
    Endif
*
*
   Endif
*
END:
*
Message ************************** READ THIS ******************
Message *                                                     *
Message * The following files were created:                   *
Message *                                                     *
If [LIBFLAG] = TRUE Then
   Message * libccdbcb.a -  the object library                   *
Endif
If [SOURCEFLG] = TRUE Then
   Message * Object and Source code remain in source directory   *
Endif
Message *                                                     *
Message ************************** READ THIS ******************
*
   Return