くだすれFORTRAN（超初心者用）その3

くだすれFORTRAN（超初心者用）その3at TECH

くだすれFORTRAN（超初心者用）その3 - 暇つぶし2ch108:デフォルトの名無しさん
08/01/29 18:44:49
85は放置、70はjeを探しているだけなので合併で大丈夫なはず、
554のexit はif構文に無関係

　　　　do lz=lun,lup
　　　　　do lx=llf,lrg
　　　　　　略
　　　　　　if (j.le.0) cycle
　　　　　　if (j.eq.i) cycle
　　　　　　do jj=1,10
　　　　　　　if (je(i,jj).eq.j) then
　　　　　　　　jk=jj
　　　　　　　　exit
　　　　　　　end if
　　　　　　　if (je(i,jj).eq.0) then
　　　　　　　　略
　　　　　　　　exit
　　　　　　　end if
　　　　　　end do
　　　　　　xj=x0(j)
　　　　　　略

次ページ

続きを表示

1を表示