Fortran Coder

查看: 9115|回复: 3
打印 上一主题 下一主题

[流程控制] F77的循环语法不太理解~感谢~

[复制链接]

4

帖子

2

主题

0

精华

新人

F 币
26 元
贡献
12 点
跳转到指定楼层
楼主
发表于 2016-9-22 04:29:29 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
[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

分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

835

帖子

2

主题

0

精华

大宗师

F 币
3926 元
贡献
2334 点
沙发
发表于 2016-9-22 10:15:03 | 只看该作者
[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

4

帖子

2

主题

0

精华

新人

F 币
26 元
贡献
12 点
板凳
 楼主| 发表于 2016-9-22 13:54:49 | 只看该作者
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

739

帖子

4

主题

0

精华

大师

农村外出务工人员

F 币
711 元
贡献
365 点

新人勋章爱心勋章水王勋章元老勋章热心勋章

地板
发表于 2016-9-22 14:09:01 | 只看该作者
do   数字 .....
   ....A
   ....B
   ....C
数字   ....D

等效于

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

不管有没有 continue
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-12-25 21:19

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表