#!/bin/csh
# ************************************************************************
# *                                                                      *
# *   C-shell program for geneerating arc-list for the new quaterly      *
# *   solution.                                                          *
# *                                                                      *
# * ## 17-JUL-2004 2005d_bas_arcmod.csh v1.0 (c) L. Petrov 31-OCT-2005 # *
# *                                                                      *
# ************************************************************************
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 = 2005d_bas
#
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}_exclude.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}.arc
echo "New arcfile $So/${sol_id}/${sol_id}.arc is created"
