- 158 名前：デフォルトの名無しさん [2006/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
