F77的循环语法不太理解~感谢~

哈哈哈

[Fortran] 纯文本查看 复制代码

查看代码

打印?

1	do 150 k=n,2,-1

2	do 140 i=k,n

3	140            d(k-1,j)=d(k-1,j)-a(k-1,i)*d(i,j)

4	d(k-1,j)=d(k-1,j)/a(k-1,k-1)

5	150          continue

上面这段代码，如果改成F90的话，是不是这样的呢？

[Fortran] 纯文本查看 复制代码

查看代码

打印?

1	do k=n,2,-1

2

do i=k,n

3	d(k-1,j)=d(k-1,j)-a(k-1,i)*d(i,j)

4	d(k-1,j)=d(k-1,j)/a(k-1,k-1)

5

end do

6

end do

li913

[Fortran] 纯文本查看 复制代码

查看代码

打印?

1	do k=n,2,-1

2

do i=k,n

3	d(k-1,j)=d(k-1,j)-a(k-1,i)*d(i,j)

4

end do

5	d(k-1,j)=d(k-1,j)/a(k-1,k-1)

6

end do

哈哈哈

li913 发表于 2016-9-22 10:15
[mw_shl_code=fortran,true]do k=n,2,-1
    do i=k,n
        d(k-1,j)=d(k-1,j)-a(k-1,i)*d(i,j)

是不是没有continue的话，就只进行表明数字的那一行，如果有continue的话，就循环到continue

楚香饭

do   数字 .....
   ....A
   ....B
   ....C
数字   ....D

等效于

do  .....
   ....A
   ....B
   ....C
   ....D
End Do

不管有没有 continue