#!/bin/csh -bf
#
# gp.edit
#
# Automated outlier removal.
#
# N.E. King
# January 1994
# August 1994   modified to use scripts bard.getdata, 
# bard.qregres, bard.filter, bard.smapper, bard.postfit.
#
# March 1995  modified to run GIPSY R3 on swave
# 1995/10/10 whp:  Converted bard.all to gp.all
# 1995/10/16 whp:  Converted last half of gp.all to gp.edit
#                  Moved loop logic to gp.driver


   echo " "
#  CHECK NUMBER OF ARGUMENTS
#  -------------------------
   if ($#argv != 1) then
      echo Usage:  gp.edit qmfile_name
      exit 1
   endif

#  Remove outliers from qmfile
#  (This cleans up qmfile for later runs)
#  --------------------------------------
   gp.outliers_list > OutlierList
   gp.qmDeletePts $1
   if ($status != 0) then
      echo gp.edit: gp.qmDeletePts returned non-zero status.
      echo gp.edit: Terminated.
      exit 2
   endif

#  Remove outliers from rgfile, accume.nio 
#  and smooth.nio for subsequent smapper run
#  ------------------------------------------
   edtpnt2  point.txt \
            wash.nml   \
            rgfile \
            accume.nio   \
            smooth.nio \
            '' \
            >& edtpnt2.log

#  RUN SMAPPER
#  -----------
   gp.smapper
   if ($status != 0) then
      echo gp.edit: gp.smapper returned non-zero status.
      echo gp.edit: Terminated.
      exit 3
   endif

#  RUN POSTFIT
#  -----------
   gp.postfit
   if ($status != 0) then
      echo gp.edit: gp.postfit returned non-zero status.
      echo gp.edit: Terminated.
      exit 4
   endif