#
foreach i (*test.f)
ex - $i <<@
g/D\.P\./s//S.P./g
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/DFLOAT/s//FLOAT/g
g/DSIGN/s//SIGN/g
g/D0/s//E0/g
g/D-3/s//E-3/g
wq
@
end

.