下記の文章をfortran77で表すとどうなるか、教えていただけませんか？

ex=2.0**((-1)*(l+1))
i=0
k=0


do 210 while(i.lt.n)
i=i+1
k=k+1
if(k.gt.p)then
call delay(ivw,p,q,j)
else
j=k
end if

if(ivw(j).ne.0) then
a(i)=ivw(j)*ex
else
i=i-1
end if
210 continue