#!/bin/csh -f
# ************************************************************************
# *                                                                      *
# *   C-shell program for geneerating arc-list for the new quaterly      *
# *   solution.                                                          *
# *                                                                      *
# * ### 28-NOV-2005  2007a_arcmod.csh v1.0 (c) L. Petrov 20-NOV-2006 ### *
# *                                                                      *
# ************************************************************************
set So = /vlbi/solutions/
if ( `uname -n` == "lyra" ) then
     set Ex = /users/pet/exec_hp
  else 
     set Ex = $HOME/exec_p4
endif
set sol_id = 2007b_astro
#
cat >! /tmp/weak.ses << END_INPUT_1
#                                                               
END_INPUT_1
###
cat >! /tmp/sng.ses  << END_INPUT_2
#                                                               
END_INPUT_2
###
cp  $So/${sol_id}/${sol_id}_excl.ses   /tmp/exc.ses
cp  $So/${sol_id}/${sol_id}_repl.ses   /tmp/rep.ses
$Ex/arcsup.e
cp   /tmp/new.ses $So/${sol_id}/${sol_id}.ses
echo "New arcfile $So/${sol_id}/${sol_id}.ses is created"
