+PATCH,$CORR.
+DECK,CORR1.                     Updates version:  1.50/00  to   1.50/03
+REP,*TITLE*,TITLE,1.
* USER_CALB  1.50/03  05/08/95  11.25.43
+REP,$VERSION,V1_50,1-2.
*CMZ :  1.50/03 05/08/95  11.25.43  by  Curtis A. Meyer
*CMZ :  1.50/02 25/07/95  14.21.22  by  Curtis A. Meyer
*CMZ :  1.50/01 24/07/95  13.49.23  by  Curtis A. Meyer
*CMZ :  1.50/00 23/07/95  14.53.34  by  Curtis A. Meyer
*-- Author :    Curtis A. Meyer   23/07/95
*
*::>          VERSION  1.50/03   05/08/95 11.25.43
*          *> Version Stamp for release.
*
*::>          VERSION  1.50/02   25/07/95 14.21.22
*
*
*::>          VERSION  1.50/01   24/07/95 13.49.22
*          *> Repair typos in the code.
+ADD,RAWSCOMM,@MACROS,0.
*CMZ :  1.50/03 26/07/95  13.39.30  by  Curtis A. Meyer
+REP,RAWSCOMM,@MACROS,10.
      PARAMETER    (NH=600 000)
+ADD,RAWSCODE,USINIT,0.
*CMZU:  1.50/01 23/07/95  16.10.18  by  Curtis A. Meyer
+REP,RAWSCODE,USINIT,361.
 1300 CONTINUE
+ADD,RAWSPLOT,GAINS,0.
*CMZU:  1.50/01 23/07/95  16.13.00  by  Curtis A. Meyer
+REP,RAWSPLOT,GAINS,29-32.
&SELF,IF=-F77.
      IMPLICIT NONE
+REP,COLL_INSTRUCT,CARD_CRD,1-8.
*CMZ :  1.50/02 25/07/95  10.40.18  by  Curtis A. Meyer
*CMZ :  1.12/00 17/06/94  11.10.43  by  Curtis A. Meyer
*-- Author :    Curtis A. Meyer   17/06/94
WRIT 4
LIST
FZIN  'XT'  0

STOP  <===== READING STOPS HERE ========

--- Use the collowing cards to produce a dst only containing the
--- raw data

FZOUT 'XTO' 0
BANK  'RAWB'

XTAL 'TRAK' 'DECL' 'ALCE' 'CLST' 'PEDS' 'DECF' 'PDRG' 'RTRK'
CHAM 'TRAK' 'RAWS' 'PATT' 'CIRC' 'HELX' 'VERT' 'RTRK'
GLOB 'TRAK' 'MTCH' 'RTRK'


+ADD,COLL_INSTRUCT,RUNSHELL,0.
*CMZ :  1.50/02 25/07/95  10.41.02  by  Curtis A. Meyer
+REP,COLL_INSTRUCT,RUNSHELL,10-12.
#	Creation date:	11 May,  1990
#       Updated:        25 July, 1995
#	References:	
#	Description:	This file will run the cbcoll code.
+REP,COLL_INSTRUCT,RUNSHELL,36-54.
#
   echo ""
   echo " ===> Running $1 on $HOSTTYPE $HOST <==="
   echo ""
#
#     Make sure that at least the program name was given:
#
   if ($1 == "") then
     echo " Usage: cboff_run program [file_in] [file_out] "
     echo " You must have at least one argument! "
     echo " Accepted tape devices are rmt0 and nrmt0 "
     goto exit_script
   endif	
#      Assign the output files.
#
   echo " Crystal Barrel Database at $CBDAB ."
#
#   set dlist = ( t0z0     t1z0    t2z0    t3z0  t4z0   t5z0   t6z0   )
#   set zlist = ( 1.000    1.000   1.000   1.000 1.000  1.000  1.000  )
#   set tlist = (-0.0020 -0.0015 -0.0010 -0.0005 0.0000 0.0005 0.0010 )
#
   set dlist = ( t0z0   )
   set zlist = ( 1.000  )
   set tlist = ( 0.000  )
#
   set plist = ( 686 690 694 698 700 702 706 710 714 718 720 722 726 730 740 )
#
#   set plist = ( 718 )
#
   set FORT="FORT"
#
   set Home = $cwd
#
   set Choice0="Exact File Name"
   set Choice1="$cwd"
#
#      Assign the input file. If no argument was given, then
#      ask for a full filename.
#
   set fin = $2
#
   if ($2 == "") then
#
     echo " Please enter the full filename for the input file "
     echo -n " file> "
     set fin=(`echo $<`)
     setenv ${FORT}21 $fin
#
   else if ( $2 == "rmt0"  ) then
      setenv ${FORT}21 /dev/rmt0h
   else if ( $2 == "nrmt0" ) then
      setenv ${FORT}21 /dev/nrmt0h
   else
#
#     In this case, we have a file name, but need the directory.
#
def_indir:
#
      echo "Choose input directory for the data."
      echo " 0 = $Choice0 "
      echo " 1 = $Choice1/$2 "
#
      echo -n "Enter selection : ([0-1] or q to quit)? "
      set input=(`echo $< | tr a-z A-Z`)
#
      if ($input == 0 ) then
        set fin  = "$2"
      else if ($input == 1) then
        set fin  = "$Choice1/$2"
      else if ($input == Q) then
        echo " Quitting cboff_run startup "
        goto exit_script
      else
        echo " Please enter only one the allowed values "
        goto def_indir
      endif
#
      echo " ";echo " "
      if ( ( -e $fin ) != 0 ) then
         echo " Input data file = ${fin} "; echo " A good choice:-) "
      else
         echo " File ${fin} does not exist "
         goto def_indir
      endif
      echo " ";echo " "
#
      setenv ${FORT}21 $fin
#
   endif
#
+REP,COLL_INSTRUCT,RUNSHELL,61-101.
   else if( $3 == "rmt0" ) then
      setenv ${FORT}20 /dev/rmt0h
   else if ( $3 == "nrmt0" ) then
      setenv ${FORT}20 /dev/nrmt0h
   else
#
def_outdir:
#
      echo "Choose output directory for the data"
      echo " 0 = $Choice0 "
      echo " 1 = $Choice1/$3 "
#
      echo -n "Enter selection : ([0-1] or q to quit)? "
      set input=(`echo $< | tr a-z A-Z`)
#
      if ($input == 0 ) then
        set fout  = "$3"
      else if ($input == 1) then
        set fout  = "$Choice1/$3"
      else if ($input == Q) then
        echo " Quitting cboff_run startup "
        goto exit_script
      else
        echo " Please enter only one the allowed values "
        goto def_outdir
      endif
#
      echo " ";echo " "
      if ( $fin == $fout ) then
         echo " input and output are the same, not allowed! "
         goto exit_script
      endif
      echo " Output data file = ${fout} "; echo " A good choice:-) "
      echo " ";echo " "
#
      if ( (-e $fout ) != 0 ) rm -i $fout
      setenv ${FORT}20 $fout
#
   endif
#
asgn_input:
#
#        Assign the jdc_gain file.
#
   setenv ${FORT}17 ${CBDAB}/cbbase.rz
   setenv ${FORT}82 ${CBDAB}/gain_jul95.tbl
   setenv ${FORT}83 ${Home}/resid.dat
#
   echo " Data base `printenv ${FORT}17` "
   echo " Gain file `printenv ${FORT}82` "
+REP,COLL_INSTRUCT,RUNSHELL,153-156.
         echo "GAIN 1                 " >> $1.jdc
#         echo "IBXG 1                 " >> $1.jdc
#         echo "PREC 'RADO'            " >> $1.jdc
         echo "BXT0 $time0   1.0      " >> $1.jdc
         echo "BXZS $zscale  1.0      " >> $1.jdc
         echo "OJDC F T               " >> $1.jdc
+REP,COLL_INSTRUCT,RUNSHELL,163.
         ${Home}/cb$1 >& $1.header
+DEL,COLL_INSTRUCT,RUNSHELL,184.