do ix=-30,30 do iy=-30,30 x=ix*0.1 y=iy*0.1 z=sin(x**2+y**2) print *,x,y,z enddo enddo stop end