- 111 名前：105 mailto:sage [2008/01/30(水) 16:06:53 ]
- 返事が遅くなって申し訳ないです。
みなさまレスありがとうございます。
11,12ループの所だけを省略せずに抜き出してみました。
do 11 jj=1,10
if (je(i,jj).eq.j) then
jk=jj
goto 70
end if
11 continue
do 12 jj=1,10
if (je(i,jj).eq.0) then
jk=jj
je(i,jj)=j
goto 70
end if
12 continue
70 xj=x0(j)
je＝jとje＝0の両方が真になるかどうかなんですが
これをみるかぎり、やってることは両方jk=jjを代入してるだけなんで
do jj=1,10
if (je(i,jj).eq.0) then
je(i,jj)=j
end if
if (je(i,jj).eq.j) then
jk=jj
exit
end if
end do
xj=x0(j)
にしてもいいのかな、と思ったのですが。どうでしょうか？
