#! /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 xlf -u -U -O -c -o $a.o $a.f
     xlf -u -U -O -c -o $a.o $a.f
 
echo  " >>>>> fo: Done <<<<<"
