Fortran Coder

标题: F77的循环语法不太理解~感谢~ [打印本页]

作者: 哈哈哈 时间: 2016-9-22 04:29
标题: F77的循环语法不太理解~感谢~

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

          do 150 k=n,2,-1

               do 140 i=k,n

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

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

150          continue

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

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

        do k=n,2,-1

            do i=k,n

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

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

            end do

        end do

作者: li913 时间: 2016-9-22 10:15

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

do k=n,2,-1

    do i=k,n

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

                end do 

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

end do

作者: 哈哈哈 时间: 2016-9-22 13:54

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

作者: 楚香饭 时间: 2016-9-22 14:09
do 数字 .....
....A
....B
....C
数字 ....D

等效于

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

不管有没有 continue

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)