# Purpose:
#          Replace "REAL" declarations by "REAL*8"
#
# Usage:  
#          fdouble <file1> <file2> ...


var1='      REAL'
var2='      REAL*8'
echo "{gsub(\"$var1\",\"$var2\"); print}" > UPCreal
var1='      real'
var2='      real*8'
echo "{gsub(\"$var1\",\"$var2\"); print}" > LOCreal

for aFil in $*
do 
  echo $aFil
  awk -f UPCreal < $aFil      >  $aFil.tmp
  rm  -f $aFil
  awk -f LOCreal < $aFil.tmp  >  $aFil
  rm  -f $aFil.tmp
done

rm -f UPCreal LOCreal
