#
# Run Fortran Job using card as input.
#
if [ "$1" = "" -o "$2" = "" ];then
   echo "usage: runfortran program listing [object]"
   exit 1
fi
rm -f sysin.txt syspun.txt sysout.txt
if [ "$3" = "" ]; then
   #echo "PARAMI9I               " >sysin.txt
   echo "paramI9Z  20ps         " >sysin.txt
else
   echo "PARAMI9I    P          " >sysin.txt
fi
#
# Make sysin tape.
#
cat $1 >>sysin.txt
#
# Run Fortran tape
#
i1401 -q runfortran.cmd
#
if [ "$3" != "" ]; then
   cp syspun.txt $3
fi
cp sysout.txt $2
rm -f sysin.txt syspun.txt sysout.txt