Fortran- 迭代請益

小妹是自學fortran新手，
目前主迴圈的迭代次數，run不出來

program test
implicit real (a-g,l-x)
integer I,j,k,z,y
Parameter k_max=500

i=0
Do while i<k_max (當迭代次數小於最高迭代則繼續run)
a=2-i*(2/k_max)
b=-1+i *(-1/k_max)
i=i+1
write (*,*) a,b
end do
End

Error:syntax error,found identifier “i “ when expecting one of :do while i<k_max
Error:an end so statement occurred without a corresponding do, do while ,or do
times statement

有嘗試google過，但還是不太了解！
麻煩板上神人可以幫幫忙了！謝謝

重要：我需要將a從2趨近到0 （線性）
將b線性遞減-1到-2

--