#! /bin/csh -f
#
#   Compiles a file directly from the directory editor
#

#
#   extracts the $1 filename part  ( "test.f" gives "test" )
#
set a = $1:r

echo f77  -C -Nx500 -Ns1500 -e -u -U -g -c -o $a.o $a.f
     f77  -C -Nx500 -Ns1500 -e -u -U -g -c -o $a.o $a.f
set rc = $status

echo  " >>>>> Done <<<<<"

exit($rc)
