#! /bin/csh -fvx
unalias perl

set fprogram = $1
set program = `basename $fprogram`
shift

#f90 $fprogram.F -o $program

pixie $fprogram
$program.pixie $* > $1.log
# set counts = `ls -t $program.Counts $program.Counts.* | head -1`
set counts = `ls -t $program.Counts | head -1`
prof $counts > $counts.`echo $* | perl -pe 's/ /./g'`.pixie.log