: transfor - translate ANSI Fortran to Unix style

: loop
if $1x = x exit
tr "[A-Z]" "[a-z]" <$1 >$1.tmp
chmod 640 $1.tmp
ed - $1.tmp
g/^     [^ ]/s//\&     /
w
q
mv $1.tmp $1
shift
goto loop
