06/12/18 16:58:00
下記の文章を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
06/12/18 16:58:00
下記の文章を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