#!/bin/csh  
setopts o 9
set	A='PP'
set	B='P_N'
set	C='P_D'
set	f=( `ls -t ${A} ${B} ${C}` )
echo  f ${f} $#f 
if ( $#f != 3 ) then
	set cp=1
else if ( ${f[1]} == ${C} && $f[2] == ${B} ) then
	set cp=0
else
	set cp=2
	echo A $A B $B C $C f1 $f[1] f2 $f[2] f3 $f[3]
endif
echo cp $cp
if ( ${cp} > 0 ) then
	cp    ${A} ${B}
	$vgrLIB/ave < ${B} > ${C}
	sleep 60 ; touch ${C} &
endif
set	xx=( `testx `)
set	x = $xx[2]
set	y = $xx[3]
echo > 	 .plt_period_in
echo >>	 .plt_period_in "window,1,xsize=${x},ysize=${y}"
echo >>	 .plt_period_in 'plot,[1,2]'
echo >>	 .plt_period_in 'read_f,"'${B}'"'
echo >>	 .plt_period_in 'lim_range'
echo >>	 .plt_period_in 'range_sp = [range_sp(0)-5, range_sp(1)+5]'
echo >>	 .plt_period_in 'plt_sp'
if ( x$1 == x ) then
	echo >>	 .plt_period_in "plt_period , " '"'${C}'"'
else
	echo >>	 .plt_period_in "plt_period , " '"'${C}'"', $1
endif
echo >>	 .plt_period_in 'spawn,"sleep 3600"'
IDL.4 < 	 .plt_period_in
rm     	 .plt_period_in