# zf  - converts .Z files to .F files.
#	Dennis T. Flaherty (dflahert@chekov.helios.nd.edu)

if test $# = 0
then
	echo Usage: zf file.Z ...
	exit 1
fi

for z
do
	b=${z%.Z}
	f=$b.F
	zlen=`wc $z | tee /dev/tty | awk '{print $3}'`
	zcat $z | freeze > $f
	flen=`wc $f | tee /dev/tty | awk '{print $3}'`
	touch -r $z $f
	rm $z
	echo `expr 100 - $flen \* 100 / $zlen`\% savings.
done

