#
foreach f (*.f)
ex $f <<@
g/DOUBLE PRECISION/s//REAL/g
g/DSQRT/s//SQRT/g
g/DABS/s//ABS/g
g/DMAX1/s//AMAX1/g
g/DMIN1/s//AMIN1/g
g/DSIGN/s//SIGN/g
g/D0/s//E0/g
g/D-3/s//E-3/g
wq
@
end
