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

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

if ( $b != $c ) then
   cd $b
endif

echo f77 -u -U -g -c -o  $a.o $a.f
     f77 -u -U -g -c -o  $a.o $a.f

echo  " >>>>> fod: done <<<<<"
