+PATCH,$CORR.
+DECK,CORR1.                     Updates version:  1.28/04
+ADD,$KUMACS,HELP,*.
&DECK,HELP.
*CMZ :          11/07/95  20.01.59  by  Curtis A. Meyer
*-- Author :    Curtis A. Meyer  02.Nov.1994
   Macro HELP
 
   mess 'Command template:'
   mess 'UNIX: cmz -install cboff <files_directory> [ <option> ... ]'
   mess 'VMS:  CMZ/INSTALL=CBOFF,<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   - retain source code, do not build the library.'
   mess ' ALL      - create all the files (see LIB and SOURCE)'
   mess ' ONLINE   - create the online version of the code.'
   mess ' GNU      - Use the g77 and gcc compilers '
   mess ' '
   mess 'example: cmz -install cboff srccboff    (for Unix machines)'
   mess '         CMZ /INSTALL=cboff,[.SRCCBOFF] (for VMS machines)'
   Return
+ADD,$KUMACS,INSTALL,*.
&DECK,INSTALL.
*CMZ :          11/07/95  20.01.59  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 cboff on 12 July, 1995
*
   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.
*          ONLINE    = create online version.
*
   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   = FALSE
   SOURCEFLG = TRUE
   CODEFLAG  = TRUE
   GNUFLAG   = FALSE
   Select  .
*
*  check options
*
   FAIL = FALSE
   Do I = 2,[#]
      Case $Upper([%I]) In
         (DEBUG)       DEBUGFLAG = TRUE
                       message ' Debug compile options selected. '
         (ALL)         LIBFLAG   = TRUE
                       SOURCEFLG = TRUE
                       CODEFLAG  = TRUE
         (LIB)         LIBFLAG   = TRUE
                       SOURCEFLG = FALSE
                       CODEFLAG  = TRUE
         (SOURCE)      LIBFLAG   = FALSE
                       SOURCEFLG = TRUE
                       CODEFLAG  = TRUE
         (ONLINE)      Select  ONLINE
                       message ' Online version selected. '
         (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
 
   Select $MACHINE
   Case $Machine In
     (ALPHA) Case $OS In
               (VMS)  Select VAX
               (UNIX) Select UNIX
                      Select DECS
             Endcase
   Endcase
*
   Mess ' '
   Mess Installation of CBOFF 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]/mkcboff_f.sh  -XACL
               Set [CODEDIR]/*.ext         -F
               Set libcboff.a              -L
        (VMS)  Set [CODEDIR]mkcboff_f.com  -XACL
               Set [CODEDIR]*.ext          -F
               Set CBOFF.OLB               -L
      Endcase
*
   Else
*
      Case $OS In
        (UNIX) Set [CODEDIR]/mkcboff_f.sh  -XADCL
               Set [CODEDIR]/*.ext         -F
               Set libcboff.a              -L
        (VMS)  Set [CODEDIR]mkcboff_f.com  -XADCL
               Set [CODEDIR]*.ext          -F
               Set CBOFF.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...
*
     Cd //cboff
     IF [LIBFLAG] = TRUE Then
        set F77 -LAN
        CLib *
        set C -LAN
        CLib *
     Else
        set F77 -LAN
        CCompile *
        set C -LAN
        CCompile *
     Endif
*
   Endif
*
END:
*
Message ************************** READ THIS ******************
Message *                                                     *
Message * The following files were created:                   *
Message *                                                     *
If [LIBFLAG] = TRUE Then
   CASE ( $OS ) IN
   (UNIX) Message * libcboff.a -  the object library                    *
   (VMS)  Messgae * cboff.olb  -  the object library                    *
   END CASE
Endif
If [SOURCEFLG] = TRUE Then
   Message * Object and Source code remain in source directory   *
Endif
Message *                                                     *
Message ************************** READ THIS ******************
*
   Return
+REP,COMMCB,CODE,1-6.
*CMZ :          06/07/95  16.34.59  by  Curtis A. Meyer
*CMZ :  1.20/00 15/11/91  17.00.14  by  Gunter Folger
*-- Author :    Gunter Folger   15/11/91
&KEEP,IMPNONE,IF=-F77.
      IMPLICIT NONE
+ADD,CBPHYS,BCDECL,0.
*CMZ :          06/07/95  18.17.11  by  Curtis A. Meyer
+ADD,CBPHYS,BCDECL,45.
      SAVE    IL0,IL1,IL2
+DEL,CBPHYS,BCDECL,53.
+ADD,CBPHYS,CBCASV,0.
*CMZ :          10/07/95  18.26.19  by  Curtis A. Meyer
*CMZU:          10/07/95  16.09.34  by  RAFIK OUARED
*       minor modifications in addressing variables.
+REP,CBPHYS,CBCASV,20-24.
&SEQ,IMPNONE.
+REP,CBPHYS,CBCASV,57.
      WRITE(LLOG,*) 'CBCASV: LRTVX = ',LINKTS
+REP,CBPHYS,CBCASV,83-84.
           ISPEDS(I)=JBYT(IQ(LINKTS+J/2),1,16)/16
           ISTHRE(I)=JBYT(IQ(LINKTS+1024+J/2),1,16)/16
+REP,CBPHYS,CBCASV,93.
***
+ADD,CBPHYS,CBSRIO,0.
*CMZ :          06/07/95  18.29.52  by  Curtis A. Meyer
+ADD,CBPHYS,CBSRIO,29.
      SAVE LRUN
+DEL,CBPHYS,CBSRIO,64.
+ADD,CBPHYS,CBSRUN,0.
*CMZ :          06/07/95  18.31.46  by  Curtis A. Meyer
+REP,CBPHYS,CBSRUN,199-210.
      SAVE NEWHRD, NEWREA
      INTEGER    IOWDS(17),NWIO
      CHARACTER*40   READOUT
*
      DATA READOUT / ' ' /  ! will set all 40 char to blanks ..
      DATA ICOUNT / 0 /
      DATA NWIO/17/
      DATA ERBCF/0/
      DATA IESTGG,IESTGB,IEGLUE,IEGAIN,IERESI /0,0,0,0,0/
      DATA IENOZZ /0/
      DATA NEWHRD, NEWREA / 0 , 0/
+ADD,CBPHYS,CBTABS,0.
*CMZ :          06/07/95  18.32.38  by  Curtis A. Meyer
+DEL,CBPHYS,CBTABS,96-99.
+ADD,CBPHYS,CBTABS,107.
*   has the offset of the first VSN in crate i
CFHH      DATA JVSN/ -1, 21, 44, 66/
      DATA RFERA/1560*0./
      DATA HRTBF/4HRTBF/,HRTBL/4HRTBL/
+ADD,LABEL,CBRLBL,0.
*CMZ :          06/07/95  18.41.02  by  Curtis A. Meyer
+REP,LABEL,CBRLBL,29-30.
      SAVE         ELAB1,IER001
      DATA         ELAB1,IER001 /0,0/
+ADD,LABEL,CBWLBL,0.
*CMZ :          06/07/95  18.33.54  by  Curtis A. Meyer
+DEL,LABEL,CBWLBL,35.
+ADD,LABEL,CBWLBL,44.
      DATA    IERR0, IERR1, IERR2, IERR3/ 0, 0, 0, 0/
*