# Purpose:
#          Replace "_REAL" declarations by "_DOUBLE"
#          The input file must be libUN.f,
#          the modified version is called libUN_dbl.f
#

var1='_REAL'
var2='_DOUBLE'
echo "{gsub(\"$var1\",\"$var2\"); print}" > UPCreal

rm -f libUN_dbl.f

awk -f UPCreal < libUN.f > libUN_dbl.f  

rm -f UPCreal
