#!/bin/csh -bf
#

# SEARCH FOR QM FILES
#  ------------------
set numfiles = `ls *.qm | wc -l `

if ($numfiles == 0) then
   echo " "
   echo "No QM observation files found in this directory."
   echo "Check file names for proper format"
   echo " "
   exit 1
else
   set filesearch="<null>"
   set filesearch=($filesearch *.qm)
   shift filesearch
endif

# Create a directory for clean qm files
# -------------------------------------
   if (! -e clean_qmfiles) mkdir clean_qmfiles

# FOR EACH RINEX OBS FILE, CONSTRUCT LINE FOR STA_SVEC
# ----------------------------------------------------
foreach file ($filesearch)
   set base = `basename $file`
   set code = `echo $base | awk '{print substr($1,8,4) }'`
   echo Now processing: $base
   cp $base qmfile
   rm postbreak.nml qregres.nml wash.nml >& /dev/null

   gp.solve >& /dev/null

   gp.filter_check

   mv postbreak.log $code.postbreak.log
   mv postfit.nio $code.postfit.nio
   mv qmfile $base
   rm qmfile.new

   grep new $code.postbreak.log | sort +10 > $code"_new_slips"
   set numberofslips = `grep new $code.postbreak.log | wc -l`
   echo numberofslips = $numberofslips
   if ($numberofslips == 1) then
      set firstword = `grep new $code.postbreak.log | awk '{print $1}'`
      if ($firstword == "No") then
         mv $base clean_qmfiles
      endif
   endif
   mv qregres.nml $code.qregres.nml
   mv filter.log $code.filter.log
end