        implicit real*8(a-h,o-z) 
         do x=0.d0,4.d0,0.1d0
          y=x**2
          print *,x,y
         end do
        end
