#!/bin/csh -f
if ( $#argv < 4) then
  echo "Usage : p2 objectname [-r] [-l] x1var [-r] [-l] x2var [-r] [-l] yvar"
  exit(1)
  endif
set obj = "$argv[1]"
#echo "$obj"
set stuff=

set icnt=2
set argc = 0
while ( ( $icnt <= $#argv ) && ( $argc <= 2 ) )
  set stuff = "$stuff $argv[$icnt]"
  if ( "$argv[$icnt]" != "-l"  && "$argv[$icnt]" != "-r" ) then
    @ argc += 1
  endif
  @ icnt += 1
  end

if ( $argc != 3) then
  echo $argv[0] requires object xvar1 xvar2 yvar
  exit(1)
  endif

echo scaling...
ez "$obj" $stuff /data/globec/src/pxxy
if ( $status )then
  exit(1)
  endif

echo plotting...
chmod +x tmp.plt
ers
tmp.plt $argv[$icnt-]