+PATCH,$CORR.
+DECK,CORR1.                     Updates version:  2.04/00  to   2.05/00
+REP,*TITLE*,TITLE,0-1.
&TITLE.
CCDBCB   2.05/00  24/08/95  17.03.39  Offline Software, Database
+REP,$VERSION,V2_04,1-4.
*CMZU:  2.04/05 24/08/95  10.06.34  by  Christian Voelcker
*CMZ :  2.04/04 10/08/95  21.56.59  by  Christian Voelcker
*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/05   24/08/95 10.06.33
*         *>  let INSTALL  extract only code really used for  CBOFF.
*             (C.A. Meyer)
*
*::>          VERSION  2.04/04   10/08/95 21.56.58
*         *>  Mark's version of install script allows for
*             using #include sequences
*
*::>          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 ..)
*
*::>          VERSION  2.04/00   20/07/94 18.00.10
+ADD,$VERSION,V2_05,*.
&DECK,V2_05.
*CMZU:  2.05/00 24/08/95  17.03.40  by  Christian Voelcker
*-- Author :    Christian Voelcker   24/08/95
*
*::>          VERSION  2.05/00   24/08/95 17.03.39
*             release for autumn 95 !
*          *> select $OS for SGI's and RISC's

+REP,DBCOMMON,DBCOMMON,1-33.
*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
*CMZ :  1.14/01 28/08/90  16.12.20  by  Curtis A. Meyer
*-- Author : F.H.Heinsius
&KEEP,CCKONS.
**    Index of different Subdetectors. Maximum subdetectors. Max cycles.
**      NRECCC = record length in 4byte words, MDIR = maximum runperiods
**
***   add HERE if you have new detectorparts (calibration constants)
***   AND in +SEQ,CCDATC.

      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,
     &           KLG=31, KLP=32, KLX=33,
     &           MPARCC=33,
     &           MCYCCC=99999999, NRECCC=1024, MDIRCC=100)
**    Names of Subdetectors
      CHARACTER*2 PARTCC
      COMMON /CCKONS/PARTCC(MPARCC)

&KEEP,CCDATC.
**    include for CCDATA subroutine.
**    add here new defintions of detectorparts (and in CCKONS)
+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'
+REP,DBCOMMON,DBCOMMON,67-68.
***   COMMONS /ccwork/ /ccwrkc/
**    maximum subdetectors MPARCC
+REP,DBCOMMON,DBCOMMON,74.
**    current run, first/last run/cycle of detector part
+REP,DBCOMMON,DBCOMMON,82-84.
**    topdir, current run period dir
      COMMON /CCWRKC/ TOPDCC,PERICC
+REP,CCOFFL,CCDATA,1-29.
*CMZU:  2.04/03 06/07/95  23.08.50  by  Curtis A. Meyer
*CMZU:  2.03/05 07/03/94  17.18.35  by  F.-H.Heinsius
*CMZU:  2.03/00 20/10/92  12.18.38  by  F.-H. Heinsius
*CMZU:  2.02/00 28/08/91  18.18.49  by  Gunter Folger
*CMZU:  2.00/00 13/03/91  11.55.58  by  Gunter Folger
*CMZ :  1.20/07 23/08/90  18.19.49  by  F.-H. Heinsius
*-- Author :    F.-H. Heinsius   23/08/90
      SUBROUTINE CCDATA
************************************************************************
***                                                                    *
***      SUBROUTINE CCDATA                                             *
***                                                                    *
***      Fills common /CCKONS/, declare link area CCLINK               *
***                                                                    *
***      Created:  7-JUN-1989 F.-H. Heinsius                           *
***                                                                    *
***      Arguments: (INPUT,OUTPUT,INPUT/OUTPUT)                        *
***      Expected input:                                               *
***      Final output:                                                 *
***                                                                    *
***   ==>Called by    : CCINIT, DBKUIP                                 *
***   ==>Calling      :                                                *
***                                                                    *
************************************************************************
&SEQ,IMPNONE.
+REP,CCOFFL,CCDATA,60-62.
   10 CONTINUE

**    the default is input of real data constants, not MC.
+REP,CCOFFL,CCGETC,1-68.
*CMZU:  2.04/03 06/07/95  23.11.00  by  Curtis A. Meyer
*CMZU:  2.03/05 07/03/94  17.18.35  by  F.-H.Heinsius
*CMZU:  2.03/02 07/12/92  13.32.59  by  Michael Doser
*CMZU:  2.03/01 23/10/92  17.39.11  by  F.-H. Heinsius
*CMZU:  2.02/00 23/09/91  19.02.02  by  Gunter Folger
*CMZU:  2.01/00 25/06/91  16.55.36  by  F.-H. Heinsius
*CMZU:  2.00/03 03/06/91  11.23.41  by  Gunter Folger
*CMZ :  2.00/00 27/02/91  16.30.32  by  Gunter Folger
*CMZ :  1.20/07 23/08/90  18.19.49  by  F.-H. Heinsius
*-- Author :    F.-H. Heinsius   23/08/90
      SUBROUTINE CCGETC (IRUNI, ITYPE, KPAR, LINK, IERR)
&SEQ,IMPNONE.
************************************************************************
***                                                                    *
***      SUBROUTINE CCGETC (IRUNI, ITYPE, KPAR, LINK, IERR)            *
***                                                                    *
***      Get the calibration constant banks for run IRUNI and detector-*
***      part KPAR (and calibration method ITYPE) into LINK.           *
***      Use 'DEFAULT' directory if run number = 0.                    *
***                                                                    *
***      Created: 18-MAR-1989 F.-H. Heinsius                           *
***      Updated: 25-JUL-1989 F.-H. Heinsius  2 new keys, def meth neg.*
***      Updated: 11-AUG-1989 F.-H. Heinsius  Return IERR=+1 for new   *
***                                                        link        *
***      Updated: 24-APR-1990 G.Folger Do not check Link.ne.0 to return*
***                                     IERR=+1 for old calib still ok *
***      Updated: 14-MAY-1990 F.-H. Heinsius  Added MC-support.        *
***      Modified: November 90 G. Folger : Ignore runs directory
***
***      Modified: 7-Dec-92 M.Doser
***                fix bug: if a calibration was picked up from DEFAULT,
***                PERICC was never reset from DEFAULT, but LCINF
***                indicated that one still knew the right run period.
***                FIX: drop LCINF upon setting PERICC to DEFAULT      *
***                thus forcing the program to look through the data   *
***                base again.
***
***      Arguments: (INPUT,OUTPUT,INPUT/OUTPUT)                        *
***      Expected input:                                               *
***         IRUNI = run number                                         *
***         ITYPE= calibration method (0 = newest calibration)         *
***         KPAR = detector part id                                    *
***      Final output:                                                 *
***         LINK = link to bank structure with calibration data        *
***         IERR return code :
***               ( negative are error returns !)
***           0  : new constants successfully loaded
***          +1  : old constants still valid
***          -1  : no directory for subdetector in this runperiod
***          -2  : requested calibration does not exist, nor is there
***                  a default calibration for this subdetector/period
***          -11  : input run # less than 0
***          -12  : requested method less than 0
***          -13  : KPAR out of bounds, or
***                PARTCC(KPAR)= '', i.e. subdetector not defined
***         -14  : emtpy database
***         -15  : no runperiod info in this period
***         -16  : run not in any runperiod, or too many periods
***                in database
***         -17  : cannot load calibartion.
***                                                                    *
***   ==>Called by    : user, DBLIS3                                   *
***   ==>Calling      : RZCDIR, RZRDIR, RZIN, MZDROP                   *
***                                                                    *
************************************************************************
+REP,CCOFFL,CCGETC,96.
**    Test:
+REP,CCOFFL,CCGETC,119.
**       default calibration
+REP,CCOFFL,CCGETC,129.
**       MC-mode (but not for default!)
+REP,CCOFFL,CCGETC,135-136.
**    run# in range of last loaded calibration and method same?
**    then exit immediately!
+REP,CCOFFL,CCGETC,147-150.
**    no MC-mode/no default?

**    Load runperiod information (if not done)
**     and load a CINF bank
+REP,CCOFFL,CCGETC,173-177.
**     run in current run period?
**     if not, goto next period and load CINF bank

         IOLD=IDIR
   10    CONTINUE
+REP,CCOFFL,CCGETC,190.
**          load other runperiod
+REP,CCOFFL,CCGETC,202.
**    Go into directory for requested subdetector
+REP,CCOFFL,CCGETC,211-216.
**    search all keys for all banks with
**       FirstRun <= IRUN and
**       LastRun  >= IRUN or LastRun = -1

      CALL RZKEYS(5,NKYMX,KEYS,NKEYS)
  101 NKEY = 0
+REP,CCOFFL,CCGETC,232.
  100 CONTINUE
+REP,CCOFFL,CCGETC,241.
 6300    FORMAT(' CCGETC: requested method ',I2,' for subdetector ',A2,
+REP,CCOFFL,CCGETC,250.
 6310    FORMAT(' CCGETC: WARNING, more than one set of calibrations',
+REP,CCOFFL,CCGETC,258.
  120    CONTINUE
+REP,CCOFFL,CCGETC,265.
* load the calibration
+REP,CCOFFL,CCGETC,288.
  999 RETURN
+REP,CCOFFL,CCGETJ,1-48.
*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
*CMZU:  2.03/06 16/06/94  14.18.46  by  Unknown
*CMZ :  2.03/05 07/03/94  17.18.35  by  F.-H.Heinsius
*CMZU:  2.02/02 28/02/92  10.48.54  by  Michael Doser
*CMZ :  2.02/01 03/10/91  16.19.28  by  Gunter Folger
*CMZU:  2.02/00 24/09/91  10.00.20  by  Gunter Folger
*-- Author :
      SUBROUTINE CCGETJ (IRUNI, ITYPE, KPAR, LINK, IERR)
&SEQ,IMPNONE.
************************************************************************
***
***      SUBROUTINE CCGETJ (IRUNI, ITYPE, KPAR, LINK, IERR)
***
***      Get the calibration constant banks for run IRUNI and detector-
***      part KPAR into LINK.
***      Calibration method is MISUSED here as it serves to get two
***       calibration tables nearest to the required method, one smaller
***       one larger. This is currently used only for getting Garfield
***       tables for to pressure values ( = method).
***
***      Use 'DEFAULT' directory if run number = 0. ( required now !)
***
***      Created: 27-Aug-91 Gunter Folger
***          created using CCGETC and modifying it.
***
***      Modification: 28-02-92 Michael Doser
***          comment out the lines giving MC data a non-zero run number;
***          now MC also uses the experimental Garfield tables.
***
***      Modification: 16-06-96 Michael Doser
***          use always the newest Garfield tables.
***
***
***      Expected input:
***         IRUNI = run number  ( MUST be 0 currently )
***         ITYPE = calibration method (0 not allowed )
***         KPAR  = detector part id
***      Final output:
***         LINK = link to bank structure with calibration data
***         IERR = error return code. (0=no error,-n=error,+1=old link)
***
***   ==>Called by    : user
***   ==>Calling      : RZCDIR, RZRDIR, RZIN, MZDROP
***
************************************************************************
+REP,CCOFFL,CCGETJ,77.
**    Test:
+REP,CCOFFL,CCGETJ,101.
**       default calibration
+REP,CCOFFL,CCGETJ,107-118.
**       MC-mode
*vvvvvvvvvvvvvvvvvvvvvvvvvv m.doser, 28/02/92
*      IF (QISMCC) THEN
*         PERJC = 'MC'
*         IRUN = IGCBCC
*      ENDIF
*^^^^^^^^^^^^^^^^^^^^^^^^^^


**    run# in range of last loaded calibration
**    and method between previously found methods
**    then exit immediately!
+REP,CCOFFL,CCGETJ,132.
**    Go into directory for requested subdetector
+REP,CCOFFL,CCGETJ,142-147.
**    search all keys for all banks with
**       FirstRun <= IRUN and
**       LastRun  >= IRUN or LastRun = -1

      CALL RZKEYS(5,NKYMX,KEYS,NKEYS)
  101 CONTINUE
+REP,CCOFFL,CCGETJ,160.
 6310    FORMAT(' CCGETJ: WARNING, more than one set of calibrations',
+REP,CCOFFL,CCGETJ,188-190.
  100 CONTINUE
*
* load the calibrationS
+REP,CCOFFL,CCGETJ,207.
         WRITE(LERR,*) 'CCGETJ: ERROR CONSTANTS NOT FOUND'
+REP,CCOFFL,CCGETJ,227.
         WRITE(LERR,*) 'CCGETJ: ERROR CONSTANTS NOT FOUND'
+REP,CCOFFL,CCGETJ,242.
  999 CONTINUE
+REP,CCOFFL,CCINIT,1-44.
*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
*CMZU:  2.03/07 05/07/94  11.46.28  by  F.-H.Heinsius
*CMZU:  2.03/04 01/04/93  14.34.34  by  Michael Doser
*CMZU:  2.03/03 17/03/93  17.20.14  by  Gunter Folger
*
*  New Dec cluster, new cernlibs, new Ultrix => opening data base on
*  NFS mounded read-only disk gave error; fix : read with C routines
*  on decs (RZOPEN, RZFILE).                 m.doser 17.3.93
*
*CMZU:  2.02/00 28/08/91  18.07.12  by  Gunter Folger
*CMZU:  2.00/02 30/04/91  15.04.21  by  Gunter Folger
*CMZ :  2.00/01 30/04/91  09.04.10  by  Gunter Folger
*CMZU:  2.00/00 25/03/91  11.53.40  by  Gunter Folger
*CMZ :  1.20/07 23/08/90  18.19.49  by  F.-H. Heinsius
*-- Author :    F.-H. Heinsius   23/08/90
      SUBROUTINE CCINIT(IERR)
************************************************************************
***                                                                    *
***      SUBROUTINE CCINIT(IERR)                                       *
***                                                                    *
***      Initializing of a RZ-file for reading the calibration         *
***      constants.                                                    *
***                                                                    *
***      Created: 18-MAR-1989 F.-H. Heinsius                           *
***      Updated: 25-JUL-1989 F.-H. Heinsius  2 new keys               *
***      Updated: 24-AUG-1989 F.-H. Heinsius  Remove loading of LCINF  *
***      Updated: 14-MAY-1990 F.-H. Heinsius  Set MC-mode to false     *
***                                                                    *
***      Arguments: (INPUT,OUTPUT,INPUT/OUTPUT)                        *
***      Expected input:                                               *
***                                                                    *
***      Final output:                                                 *
***      IERR = Error in opening RZ-file (0=ok)                        *
***                                                                    *
***   ==>Called by    :                                                *
***   ==>Calling      : CCDATA, CCOPEN                                 *
***                     RZFILE, RZCDIR, RZRDIR                         *
***                                                                    *
************************************************************************
&SEQ,IMPNONE.
CFHH     include units
+REP,CCOFFL,CCINIT,54.
**    number/names of runperiods
+REP,CCOFFL,CCINIT,79.
 1010 FORMAT(1X,
+REP,CCOFFL,CCINIT,85-88.
 1020 FORMAT(' CMZ run on ',I6,' at ',I4,'.')
      WRITE(6,*) ' '

**    Open the old RZ-file
+REP,CCOFFL,CCINIT,95-112.
*---On the DECS,SUN, we need the file name.
*
CV    IF(LRZIN.LT.10) WRITE(IENVIR,36)LRZIN
      IF(LRZIN.GE.10) WRITE(IENVIR,37)LRZIN
 36   FORMAT('FORT0',I1)
 37   FORMAT('FORT' ,I2)
*
      CALL GETENV(IENVIR,FILENM)
*
*---Make sure that there is a file name.
*
      DO 38 J = 256,1,-1
         ILENF = J
         IF(FILENM(J:J).NE.' ') GOTO 39
 38   CONTINUE
*
&SELF,IF=SUN.
*---No file was assigned, exit with an error.
+REP,CCOFFL,CCINIT,122-125.
*---We have gotton the file name. Now close it, and then
*---call ccopen to reopen it.
*
 39   CLOSE(UNIT=LRZIN)
+REP,CCOFFL,CCINIT,149-152.
**    declare the link area CCLINK and fill common CCKONS
      CALL CCDATA

**    Load run#s of first runperiod
+REP,CCOFFL,CCINIT,168.
  999 RETURN
+REP,CCOFFL,CCISMC,1-29.
*CMZU:  2.04/03 06/07/95  23.11.02  by  Curtis A. Meyer
*CMZU:  2.00/00 27/02/91  16.30.32  by  Gunter Folger
*CMZ :  1.20/07 23/08/90  18.19.49  by  F.-H. Heinsius
*-- Author :    F.-H. Heinsius   23/08/90
      SUBROUTINE CCISMC (QISMC, IGCB)
************************************************************************
***                                                                    *
***      SUBROUTINE CCISMC (QISMC, IGCB)                               *
***                                                                    *
***      This subroutine selects MC mode (QISMC=.true.) or             *
***      real data mode (QISMC=.false.).                               *
***      IGCB is the MC-version number.                                *
***                                                                    *
***      Created: 14-MAY-1990 F.-H. Heinsius                           *
***                                                                    *
***      Arguments: (INPUT,OUTPUT,INPUT/OUTPUT)                        *
***      Expected input:                                               *
***        QISMC = .true.--> MC-mode, .false. DATA-mode                *
***      Final output:                                                 *
***                                                                    *
***   ==>Called by    : user                                           *
***   ==>Calling      :                                                *
***                                                                    *
************************************************************************
&SEQ,IMPNONE.
+REP,CCOFFL,CCLAST,1-29.
*CMZU:  2.04/03 06/07/95  23.11.02  by  Curtis A. Meyer
*CMZU:  2.00/00 27/02/91  16.30.33  by  Gunter Folger
*CMZ :  1.20/07 23/08/90  18.19.49  by  F.-H. Heinsius
*-- Author :    F.-H. Heinsius   23/08/90
      SUBROUTINE CCLAST
************************************************************************
***                                                                    *
***      SUBROUTINE CCLAST                                             *
***                                                                    *
***      Close the RZ-file                                             *
***                                                                    *
***      Created: 18-MAR-1989 F.-H. Heinsius                           *
***                                                                    *
***      Arguments: (INPUT,OUTPUT,INPUT/OUTPUT)                        *
***      Expected input:                                               *
***                                                                    *
***   ==>Called by    : user                                           *
***   ==>Calling      : RZEND                                          *
***                                                                    *
************************************************************************
&SEQ,IMPNONE.
C     include units
      INTEGER LRZIN
      PARAMETER (LRZIN=17)

C+SEQ,CBUNIT.
+REP,CCOFFL,CCOPEN,1-42.
*CMZU:  2.04/03 06/07/95  23.11.02  by  Curtis A. Meyer
*CMZU:  2.02/01 03/10/91  16.21.19  by  Gunter Folger
*CMZU:  2.02/00 28/08/91  18.07.26  by  Gunter Folger
*CMZU:  2.00/01 29/04/91  14.14.26  by  Gunter Folger
*CMZU:  2.00/00 25/03/91  11.54.51  by  Gunter Folger
*CMZ :  1.20/08 18/10/90  14.51.58  by  F.-H. Heinsius
*CMZ :  1.20/07 23/08/90  18.19.49  by  F.-H. Heinsius
*-- Author :    F.-H. Heinsius   23/08/90
      SUBROUTINE CCOPEN (LUN, CFNAM, CHOPT, LRECL, MXREC, ISTAT)
************************************************************************
***                                                                    *
***      SUBROUTINE CCOPEN  (LUN, CFNAM, CHOPT, LRECL, MXREC, ISTAT)   *
***                                                                    *
***      Opens an direct-access file on unit LUN with filename         *
***      CFNAM (or without filename if none given) and recordlength    *
***      LRECL returning iostatus in ISTAT. CHOPT defines new, update  *
***      or old mode. Maximum number of records is MXREC (as quota).   *
***      (Based on HROPEN by R.Brun)                                   *
***                                                                    *
***      Created:  2-JUN-1989 F.-H. Heinsius                           *
***      Updated: 17-JUN-1989 F.-H.Heinsius: IBM/VM version added      *
***                                                                    *
***      Arguments: (INPUT,OUTPUT,INPUT/OUTPUT)                        *
***      Expected input:                                               *
***        LUN = Logical unit #                                        *
***        CFNAM = Filename  CHARACTER*(*)                             *
***        CHOPT = Option 'N' = new file, 'U' = update old file        *
***                       ' ' = 'O' = readonly old file                *
***        LRECL = Logical record length in 4*bytes                    *
***        MXREC = Maximum number of records                           *
***                                                                    *
***      Final output:                                                 *
***        ISTAT = returned IOSTAT from OPEN                           *
***                                                                    *
***   ==>Called by    : CCINIT, CCNEWF, CCOLDF, DBINPU, DBOUTP         *
***   ==>Calling      : (FILEINF (IBM ONLY))                           *
***                                                                    *
************************************************************************
&SEQ,IMPNONE.
+REP,CCOFFL,CCOPEN,57.
**    decode option
+REP,CCOFFL,CCOPEN,64.
**    define open status
+REP,CCOFFL,CCOPEN,104-109.
**     Comment from manual:
**      status='old': use file=.. + file MUST exist
**      status='new': use file=.. + file will be created
**      status='unknown',FILE=... => opened OLD
**      status='unknown',no file, FORT.nn exist? ==> opened OLD
**      status='unknown',no file, FORT.nn does not exist? ==> opened NEW
+REP,CCOFFL,CCOPEN,119-120.
**       NEW FILE
C also INITIALSIZE=blocks, MAXREC=MXREC (?), else default = unlimited
+REP,CCOFFL,CCOPEN,129.
**       UPDATE FILE
+REP,CCOFFL,CCOPEN,138.
**       OLD FILE
+REP,CCOFFL,CCOPEN,154.
  10     CONTINUE
+REP,CCOFFL,CCOPEN,166-167.
CFHH         allow secondary space to extend file
CFHH         CALL FILEINF(ISTAT,'MAXREC',MXREC,'SECOND',MAXREC)
+REP,CCOFFL,CCOPEN,182.
  999 RETURN
+REP,CCALIB,CCBOOK,1-41.
*CMZU:  2.04/03 06/07/95  23.13.49  by  Curtis A. Meyer
*CMZU:  2.04/00 20/07/94  16.52.14  by  F.-H.Heinsius
*CMZU:  2.00/00 27/02/91  16.32.54  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 CCBOOK(KPART,NS,IFRST,ILAST,IMETH,IVERS, LINK)
&SEQ,IMPNONE.
************************************************************************
***                                                                    *
***      SUBROUTINE CCBOOK(KPART,NS,IFRST,ILAST,IMETH,IVERS, LINK)     *
***                                                                    *
***      Books the bank 'CC'//PARTCC(KPART) with NS down links and     *
***      fills with first run, last run, calibration method.           *
***      For MC user first MC version, last MC version instead of      *
***      first, last run; first MC version is 1, open end is -1.       *
***      And with information supplied by CCIDEN.                      *
***      link returned in LINK.                                        *
***                                                                    *
***      Created: 12-JUN-1989 F.-H. Heinsius                           *
***      Updated: 25-JUL-1989 F.-H. Heinsius: 2 new keys               *
***      Updated: 14-MAY-1990 F.-H. Heinsius  Added MC-support.        *
***                                                                    *
***      Arguments: (INPUT,OUTPUT,INPUT/OUTPUT)                        *
***      Expected input:                                               *
***         KPART = id of subdetector (KBE,KPW,KLP,...from CCKONS)     *
***         NS    = number of calibration (down) banks                 *
***         IFRST = first run                                          *
***         ILAST  = last run                                          *
***         IMETH  = method of calibration                             *
***         IVERS  = calibration program version                       *
***                                                                    *
***      Final output:                                                 *
***         LINK = link to bank structure with calibration data        *
***                                                                    *
***   ==>Called by    : user                                           *
***   ==>Calling      : CCIDEN                                         *
***                                                                    *
************************************************************************
+REP,CCALIB,CCBOOK,55-57.
***      Create the top banks for the subdetectors given in
***      They will support the banks containing
***      the calibration constants of the subdetector.
+REP,CCALIB,CCBOOK,69.
**    key must be nonzero!
+REP,CCALIB,CCBOOK,77.
**    key must be nonzero!
+REP,CCALIB,CCENDF,1-26.
*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.
************************************************************************
***                                                                    *
***      SUBROUTINE CCENDF (IURZ, TPDIR)                               *
***                                                                    *
***      Close the RZ-file belonging to the top directory TPDIR        *
***                                                                    *
***      Created: 17-MAR-1989 F.-H. Heinsius                           *
***                                                                    *
***      Arguments: (INPUT,OUTPUT,INPUT/OUTPUT)                        *
***      Expected input:                                               *
***      IURZ  = Unit of new RZ-file                                   *
***      TPDIR = Name of top directory of calibration dataset          *
***                                                                    *
***   ==>Called by    :                                                *
***   ==>Calling      : RZEND                                          *
***                                                                    *
************************************************************************
+REP,CCALIB,CCIDEN,1-29.
*CMZU:  2.04/03 06/07/95  23.13.49  by  Curtis A. Meyer
*CMZU:  2.00/00 25/03/91  11.57.04  by  Gunter Folger
*CMZ :  1.20/08 18/10/90  14.46.54  by  F.-H. Heinsius
*CMZ :  1.20/07 23/08/90  18.19.50  by  F.-H. Heinsius
*-- Author :    F.-H. Heinsius   23/08/90
      SUBROUTINE CCIDEN (IDATE, ICOMP)
&SEQ,IMPNONE.
************************************************************************
***                                                                    *
***      SUBROUTINE CCIDEN (IDATE,ICOMP)                               *
***                                                                    *
***      returns the current date and an identification of the         *
***      used computer.                                                *
***                                                                    *
***      Created: 12-JUN-1989 F.-H. Heinsius                           *
***                                                                    *
***      Arguments: (INPUT,OUTPUT,INPUT/OUTPUT)                        *
***      Expected input:                                               *
***      Final output:                                                 *
***         IDATE = current date, returned by DATIME (KERNLIB)         *
***         ICOMP = Hollerith identification of computer               *
***                                                                    *
***   ==>Called by    : CCBOOK                                         *
***   ==>Calling      : DATIME, UCTOH                                  *
***                                                                    *
************************************************************************
+REP,CCALIB,CCNEWF,1-30.
*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.
************************************************************************
***                                                                    *
***      SUBROUTINE CCNEWF(IURZ,NREC,TPDIR,CHOPT)                      *
***      Open a new direct access file for calibration constants.      *
***      Declare as RZ-file and create the directories.                *
***                                                                    *
***      Created: 16-MAR-1989 F.-H. Heinsius                           *
***      Updated: 11-AUG-1989 F.-H. Heinsius  Create MC-period         *
***                                                                    *
***      Arguments: (INPUT,OUTPUT,INPUT/OUTPUT)                        *
***      Expected input:                                               *
***      IURZ  = Unit of new RZ-file                                   *
***      NREC  = maximum number of records                             *
***      TPDIR = Name of top directory of calibration dataset          *
***      CHOPT = Option for open of RZ   (Not yet implemented in RZ)   *
***                                       ' '=default                  *
***                                                                    *
***   ==>Called by    :                                                *
***   ==>Calling      : CCOPEN, CCPERI, RZMAKE, RZLOGL                 *
***                                                                    *
************************************************************************
+REP,CCALIB,CCNEWF,46.
**    Open the new RZ-file, no filename
+REP,CCALIB,CCNEWF,53-64.
**    Declare the RZ-File

      CALL RZMAKE (IURZ,TPDIR,1,'I',CHTAG,NREC,CHOPT)
      CALL RZLOGL (IURZ,1)

**    Make default period for Monte Carlo (all subdetectors)
      DO 10 I=1,MPARCC
         IPER(I)=I
   10 CONTINUE
      CALL CCPERI(TPDIR,'MC',0,0,IPER,MPARCC)

  999 RETURN
+REP,CCALIB,CCOLDF,1-27.
*CMZU:  2.04/03 06/07/95  23.13.48  by  Curtis A. Meyer
*CMZU:  2.02/00 16/07/91  11.12.11  by  Gunter Folger
*CMZ :  2.00/00 27/02/91  16.32.54  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 CCOLDF(IURZ,TPDIR)
&SEQ,IMPNONE.
************************************************************************
***                                                                    *
***      SUBROUTINE CCOLDF(IURZ,TPDIR)                                 *
***      Open an old direct access file for calibration constants.     *
***      Declare as RZ-file.                                           *
***                                                                    *
***      Created: 30-MAR-1989 F.-H. Heinsius                           *
***                                                                    *
***      Arguments: (INPUT,OUTPUT,INPUT/OUTPUT)                        *
***      Expected input:                                               *
***      IURZ  = Unit of new RZ-file                                   *
***      TPDIR = Name of top directory of calibration dataset          *
***                                                                    *
***   ==>Called by    :                                                *
***   ==>Calling      : CCOPEN, RZFILE, RZLOGL                         *
***                                                                    *
************************************************************************
+REP,CCALIB,CCOLDF,50-64.
**    Open the old RZ-file for update, no filename
&SELF,IF=-DECS,IF=-SUN.
      CALL CCOPEN (IURZ,' ','U',NRECCC,MXREC,IERR)
&SELF,IF=DECS,SUN.
*
*---On the DECS,SUN, we need the file name.
*
      IF(IURZ.LT.10) WRITE(IENVIR,36)IURZ
      IF(IURZ.GE.10) WRITE(IENVIR,37)IURZ
 36   FORMAT('FORT0',I1)
 37   FORMAT('FORT' ,I2)
*
      CALL GETENV(IENVIR,FILENM)
*
*---Make sure that there is a file name.
+REP,CCALIB,CCOLDF,70-73.
 38   CONTINUE
*
&SELF,IF=SUN.
*---No file was assigned, exit with an error.
+REP,CCALIB,CCOLDF,83-86.
*---We have gotton the file name. Now close it, and then
*---call ccopen to reopen it.
*
 39   CLOSE(UNIT=IURZ)
+REP,CCALIB,CCOLDF,97.
**    Declare the RZ-File
+REP,CCALIB,CCOLDF,103.
  999 RETURN
+REP,CCALIB,CCPERI,1-40.
*CMZU:  2.04/03 06/07/95  23.13.49  by  Curtis A. Meyer
*CMZU:  2.01/00 26/06/91  14.03.47  by  F.-H. Heinsius
*CMZ :  2.00/00 27/02/91  16.32.54  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 CCPERI (TPATH, CPERI, IFRST, ILAST, IPART, NPART)
&SEQ,IMPNONE.
************************************************************************
***                                                                    *
***      SUBROUTINE CCPERI (TPATH, CPERI, IFRST, ILAST, IPART, NPART)  *
***                                                                    *
***      Create a new directory for run period CPERI starting with     *
***      run IFRST to run ILAST.                                       *
***                                                                    *
***      Created: 16-MAR-1989 F.-H. Heinsius                           *
***      Updated: 25-JUL-1989 F.-H. Heinsius  2 new keys               *
***      Updated: 11-AUG-1989 F.-H. Heinsius  Handle MC-period         *
***      Modified 27-Nov-1989 G.Folger remove RUNS dir, do not         *
***               create dirs for subdectectors any more. This will    *
***               be done in CCSTOR.                                   *
***                                                                    *
***      Arguments: (INPUT,OUTPUT,INPUT/OUTPUT)                        *
***      Expected input:                                               *
***        TPATH = Path of top directory of calibration dataset        *
***        CPERI  = character*16 name of run period directory          *
***                 'MC' and 'DEFAULT' are special.                    *
***        IFRST = first run                                           *
***        ILAST  = last run                                           *
***     (*)IPART  = Integer, index of used subdetectors (KBE,...)      *
***     (*)NPART  = dimension of CPART                                 *
***        (*)  kept for backwards compatibility, but no longer used   *
***      Final output:                                                 *
***                                                                    *
***   ==>Called by    : user, DBPERI                                   *
***   ==>Calling      : RZCDIR, RZMDIR, MZDROP, MZBOOK, RZOUT          *
***                                                                    *
************************************************************************
+REP,CCALIB,CCPERI,56.
**    Test the input !
+REP,CCALIB,CCPERI,91-95.
**    Make the directory for the run period
      CHTAG(1) = 'Runsinfo'
      CALL RZMDIR (CPERI,1,'I',CHTAG)

**    book the bank with the runs info for this period
+REP,CCALIB,CCPERI,101-103.
CFHH: may add one entry for hardware setup (installed/read)

**    store the bank
+REP,CCALIB,CCPERI,116.
  999 RETURN
+REP,CCALIB,CCSTOR,1-51.
*CMZU:  2.04/03 06/07/95  23.13.49  by  Curtis A. Meyer
*CMZU:  2.01/02 08/07/91  16.15.33  by  F.-H. Heinsius
*CMZ :  2.01/01 05/07/91  15.49.03  by  F.-H. Heinsius
*CMZU:  2.01/00 25/06/91  17.01.16  by  F.-H. Heinsius
*CMZ :          24/06/91  14.36.30  by  F.-H. Heinsius
*     store in 'DEFAULT' directory if run number=0,
*     undo default mark only for overlapping periods.
*CMZU:  2.00/00 25/03/91  12.01.05  by  Gunter Folger
*CMZ :          27/11/90  21.51.13  by  Gunter Folger
*              modified to ignore RUNS directory
*CMZ :  1.20/07 23/08/90  18.19.50  by  F.-H. Heinsius
*-- Author :    F.-H. Heinsius   23/08/90
      SUBROUTINE CCSTOR (LINK, CDIR, KPART, CHOPT)
&SEQ,IMPNONE.
************************************************************************
***                                                                    *
***      SUBROUTINE CCSTOR (LINK, CDIR, KPART, CHOPT)                  *
***                                                                    *
***      Store the bank LINK containing calibration data of            *
***      detector KPART in the calibration database.                   *
***      update the runs directory.                                    *
***      If the subdir for detector KPART does not exist, then         *
***      create it.                                                    *
***      For first run number=0 store it in 'DEFAULT' run period.      *
***                                                                    *
***      CHOPT='D' is for making a default calibration.                *
***      CHOPT=' ' simply appends the calibration.                     *
***                                                                    *
***                                                                    *
***      Created: 16-MAR-1989 F.-H. Heinsius                           *
***      Updated: 25-JUL-1989 F.-H. Heinsius  2 new keys, def meth neg.*
***      Updated: 14-MAY-1990 F.-H. Heinsius  Added MC-support.        *
***      Updated: Nov/Dec 90 G.Folger  ignore RUNS directory           *
***                                                                    *
***      Arguments: (INPUT,OUTPUT,INPUT/OUTPUT)                        *
***      Expected input:                                               *
***         LINK = link to bank structure with calibration data        *
***         CDIR = 'topdir'                                            *
***         KPART = id of subdetector (KBE,KPW,KLP,...from CCKONS)     *
***         CHOPT = ' ' append calibration                             *
***         CHOPT = 'D' create default calibration entry               *
***                                                                    *
***      Final output:                                                 *
***                                                                    *
***   ==>Called by    :                                                *
***   ==>Calling      : RZCDIR, RZRDIR, RZIN, RZOUT, CCUPDR            *
***                                                                    *
************************************************************************
+REP,CCALIB,CCSTOR,64.
**    number/names of runperiods
+REP,CCALIB,CCSTOR,79.
**    Test:
+REP,CCALIB,CCSTOR,117-120.
**    set the correct subdirectory for MC/DEFAULT/run-period

      IF (QISMCC) THEN
**       MC-mode
+REP,CCALIB,CCSTOR,134.
**       use deafult constants
+REP,CCALIB,CCSTOR,146.
**       Find the correct runperiod
+REP,CCALIB,CCSTOR,168-171.
**       run in current run period?

         IOLD=IDIR
   10    CONTINUE
+REP,CCALIB,CCSTOR,184.
**          load other runperiod
+REP,CCALIB,CCSTOR,195.
**    copy the bank in the directory cpart:
+REP,CCALIB,CCSTOR,225.
**    handle here the option for making default constants:
+REP,CCALIB,CCSTOR,242.
   20    CONTINUE
+REP,CCALIB,CCSTOR,253.
  999 CONTINUE
+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.05/00 24/08/95  17.02.26  by  Christian Voelcker
*CMZU:  2.04/05 23/08/95  14.29.50  by  Curtis A. Meyer
*CMZU:  2.04/04 10/08/95  22.00.01  by  Mark Lakata
*CMZU:  2.04/03 20/07/95  18.35.50  by  Curtis A. Meyer
*-- Author :    Curtis A. Meyer 12 July 1995
*
*   This macro is similar to the install macro developed by
*   Mark Lakata for the Crystal Barrel Event Display
*   Ported to ccdbcb on 12 July, 1995
*   Use Buffers to extract the needed code for cboff. We do
*   not need all the code in the cmz file.
*
   Macro INSTALL SRC=X
*
* [SRC] = SRC directory
* [2-4] = options
*
* options: ALL       = create everything
*          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' .OR. [SRC]='?' ) Then
      goto help
   Endif
*
*  CODEDIR    Source code directory
*
   if ( .not. ($FEXIST([SRC]) =1)) then
     mess Directory [SRC] does not exist.
     exitm
   endif

*   CODEDIR  = $Lower([SRC])
   message Putting source code files in [SRC]
*
*  set defaults
*
   BUILDLEVEL = LIB
   DEBUGFLAG  = FALSE
   OBJECTSTAT = DELETE
   GNUFLAG    = FALSE
   INCFLAG    = FALSE
   Select  .
*
*  check options
*
   FAIL = FALSE
   Do I = 2,[#]
      Case $Upper([%I]) In
         (DEBUG)       DEBUGFLAG = TRUE
                       message ' Debug compile options selected. '
         (ALL)         BUILDLEVEL = LIB
                       OBJECTSTAT = KEEP
         (LIB)         BUILDLEVEL = LIB
         (CAR)         car ccdbcb.car
         (SOURCE)      BUILDLEVEL = SOURCE
         (OBJECT)      BUILDLEVEL = OBJECT
                       OBJECTSTAT = KEEP
* Note: use OBJECT LIB to keep object code AND generate LIB
*       (order is important!)
         (GNU)         GNUFLAG   = TRUE
                       message '* Selecting g77 and gcc compilers. '
         (INC)         INCFLAG   = TRUE
                       message '* Creating #include files'
         (*)     message '****************************************'
                 message Error: Option $Upper([%I]) not understood.
                 message '****************************************'
                 FAIL = TRUE
      Endcase
   Enddo

   Message * Build Level = [BUILDLEVEL]

   If [FAIL] = TRUE then
     goto help
   Endif

   Select $MACHINE
   Case $Machine In
     (ALPHA) Case $OS In
        (VMS)  Select VAX
        (UNIX) Select UNIX
               Select DECS
     (IBMRT) Select $OS
     (SGI)   Select $OS
             Select DECS
     Endcase
   Endcase
*
   Mess ' '
   Mess Installation of CCDBCB on $MACHINE $OS starting at $DATE $TIME .
   Select
   Mess ' '
*
*  Set up the FORTRAN compiling extensions
*
*      (IBM)    ext = fortran
   if $OS = VMS Then
      ext = for
   else
      ext = f
   endif
*
   Set FORTRAN -LAN
*
* Set up filenames for the extraction of the fortran code.
*
   if [OBJECTSTAT] = KEEP Then
      XACL = -XACL
   else
      XACL = -XADCL
   endif

   Case $OS In
     (UNIX) Set [SRC]/mkccdbcb_f.sh  [XACL]
            Set libccdbcb.a              -L
     (VMS)  Set [SRC]mkccdbcb_f.com  [XACL]
            Set CCDBCB.OLB               -L
   Endcase

   IF [INCFLAG] = TRUE Then
     Case $OS In
       (UNIX) set '#include "$SEQ.inc"'   -INC F77
              FileCase Keep
              ext = F
       (VMS)  set '      INCLUDE 'CB$INC:$SEQ.INC''   -INC F77
     Endcase
   Else
     set . -inc
   EndIf

   Case $OS In
       (UNIX) Set [SRC]/*.[ext]         -F   F77
              set [SRC]/*.c             -F   C
       (VMS)  Set [SRC]*.[ext]          -F   F77
              set [SRC]*.c              -F   C
   Endcase
*
*  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
*
* Generate sequences
*
   seq .
*
* read some sequences from CBOFF
*
   Case $OS In
       (UNIX) cboffcmz = $CBCMZ/cboff.cmz
              mess 'Reading SEQUENCE definitions from $CBCMZ/cboff.cmz'
              mess 'Where $CBCMZ is ' $CBCMZ
       (VMS)  cboffcmz = CB$CMZ:cboff.cmz
              mess Reading SEQUENCE definitions from CB$CMZ:cboff.cmz
   Endcase
   if ($FEXIST([cboffcmz]) = 1) then
     File [cboffcmz] -R
   else
     mess [cboffcmz] ' does not exist.'
     exitm
   endif

   Seq //cboff/commcb
   Release cboff

*
* choose fortran compiler options and other stuff
*
   If [GNUFLAG] = TRUE THEN
     Set '`which g77` -c'//[DEBUGOPT]//' -O -w $compfile' -C f77
     Set '`which gcc` -c'//[DEBUGOPT]//' -O -w $compfile' -C C
   else
     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
   Endif
*
*
*
*  make the library...
*
   Cd //ccdbcb
   Buffer .
   Buffer //ccdbcb/ccoffl/*
   Buffer //ccdbcb/ccalib/*
*
   Case [BUILDLEVEL] In
   (NONE)
        message 'no code extracted'
   (SOURCE)
        set F77 -LAN
        Cxtract -B
        set C -LAN
        Cxtract -B
   (OBJECT)
        set F77 -LAN
        CCompile -B
        set C -LAN
        CCompile -B
   (LIB)
        set F77 -LAN
        CLib -B
        set C -LAN
        CLib -B

   EndCase
*
         Mess ************************** READ THIS ******************
         Mess *                                                     *
         Mess * The following files were created:                   *
         Mess *                                                     *
Case [BUILDLEVEL] In
(LIB)  CASE ( $OS ) IN
  (UNIX) Mess * libccdbcb.a -  the object library                   *
  (VMS)  Mess * ccdbcb.olb  -  the object library                   *
  ENDCASE
         mess * - The source and object files                       *
(OBJECT) mess * - The source and object files                       *
(SOURCE) mess * - The source code files                             *
(NONE)   mess * - nothing                                           *
         mess * --> Perhaps you want to use the LIB option?         *
         mess * --> Use "cmz -install ccdbcb" for help              *
EndCase
If ([OBJECTSTAT] = DELETE .and. [BUILDLEVEL] = LIB )  Then
         Mess * Object code was not kept.                           *
Endif
If [INCFLAG] = TRUE Then
         Mess *                                                     *
         mess * You may want to delete *.inc from SRC dir, since    *
         mess * they are also in CBINC                              *
Endif
         Mess *                                                     *
         Mess ************************** READ THIS ******************
*
ExitM

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 (default)'
   mess ' SOURCE   - create source code only'
   mess ' OBJECT   - create source and object code only'
   mess ' ALL      - create all the files (see LIB, SOURCE and OBJECT)'
   mess ' GNU      - Use the g77 and gcc compilers '
   mess ' INC      - Use cpp style #include commands for +SEQ'
   mess ' '
   mess 'example: cmz -install ccdbcb srcccdbcb    (for Unix machines)'
   mess '         CMZ /INSTALL=ccdbcb,[.SRCCCDBCB] (for VMS machines)'

   Return