#! /bin/sh
OBJ=/home/largo2/3.2/Obj_dec
SRC=./temp_dec
if [ ! -d $SRC ]; then
mkdir $SRC
fi
rm -f $SRC/* $OBJ/$1.o
sed 's/^\(macro:(compiler:,UNX\).*$/\1dec)#/' xmacro.r > $SRC/XMACRO
cp $1.r $SRC/RFPRAT
cd $SRC
rfp_dec.x
mv RFPFTN $1.f
f77 -nocpp -G 0 -O2 -Olimit 1500 -static -c -o $OBJ/$1.o $1.f
if [ $? -ne 0 ]; then
	rm -f *COMN RFP*
	exit 1
fi
rm -f *COMN RFP* $1.f MI* XM*
