# 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