do x = 0.0, 10.0, 1.0
とか
if x .eq. 1.0
とか
if x.ge.y
とか使っていませんか。