#! /bin/csh
\rm -f *COMN RFP* $1.o >& /dev/null
\cp $1.r RFPRAT
rfpunx.x
\mv RFPFTN $1.f
f71 $1
if ($status != 0) then
	\rm -f *COMN RFP*
	exit 1
endif
\rm -f *COMN RFP* $1.f MI* >& /dev/null
