#****************************************************************************************
#*											*
#*											*
#*	@p[^[ vgAEg R}ht@C					*
#*											*
#*	`										*
#*	@prscout aff[^t@C RgP RgQ p[^[t@C	*
#*	          fNg[								*
#*											*
#****************************************************************************************

#! /bin/csh
set d = /auto/srd22/export/yoshi/tool/cos2/sfc

if ($#argv != 5) then
	echo "**** error ****"
	exit
endif

	echo cat scrout.chr1 scrout.chr2 > scrout.chr
	     cat scrout.chr1 scrout.chr2 > scrout.chr

	echo vcad -c4 scrout.chr scrout 0 7000
	     vcad -c4 scrout.chr scrout 0 7000

	echo rsh srd31 "cd $d; nice +19 prprint $argv[1] $argv[2] $argv[3].end > $argv[4].prm"
	     rsh srd31 "cd $d; nice +19 prprint $argv[1] $argv[2] $argv[3].end > $argv[4].prm"

	echo cp $argv[4].prm /tmp_mnt/auto/srd22/export/yoshi/JPN/course/parmt/w_$argv[5]/.
	     cp $argv[4].prm /tmp_mnt/auto/srd22/export/yoshi/JPN/course/parmt/w_$argv[5]/.

	echo 'rm' $argv[4].prm
	     'rm' $argv[4].prm

	echo 'rm' scrout.*
	     'rm' scrout.*
beep
