#!/usr/local/bin/tcsh -f
#  To invoke cpp and f77 (compile only)

   foreach f ($argv)
	if (-f $f) then
		set src=$f:t
#                             awk is for absoft fortran
		/lib/cpp -P -C -traditional -I$EPICSINC -I$COSMOSINC $f > ! /tmp/$src; f77  -c /tmp/$src
		rm /tmp/$src
	endif	
  end
exit (0)




