Fortran Coder

查看: 2313|回复: 5

[流程控制] do循环+标号问题求助

[复制链接]

13

帖子

6

主题

0

精华

入门

F 币
59 元
贡献
22 点
发表于 2023-3-16 20:54:51 | 显示全部楼层 |阅读模式
可以解释一下这个do循环的意思吗
DO 1 I=NP+1,NCF
        PC(I)=TWOT*PC(I-1)-PC(I-2)
    1   CONTINUE
        NP=NCF
是先从i到ncf循环在执行1的contice
还是先执行1再循环
还是其他意思呢

54

帖子

0

主题

0

精华

实习版主

F 币
653 元
贡献
214 点

元老勋章新人勋章

QQ
发表于 2023-3-16 21:01:04 | 显示全部楼层
等效于
Do I=NP+1,NCF
        PC(I)=TWOT*PC(I-1)-PC(I-2)
End Do
NP=NCF

13

帖子

6

主题

0

精华

入门

F 币
59 元
贡献
22 点
 楼主| 发表于 2023-3-16 21:09:57 | 显示全部楼层
布衣龙共 发表于 2023-3-16 21:01
等效于
Do I=NP+1,NCF
        PC(I)=TWOT*PC(I-1)-PC(I-2)

好的十分感谢,那麻烦下面这种情况呢
DO 2 I=1,NCM
      PV(I,1)=0.D0
      DO 3 J=NCF,1,-1
      PV(I,1)=PV(I,1)+PC(J)*BUF(J,I,L)
    3 CONTINUE
    2 CONTINUE
      IF(IFL.LE.1) RETURN

54

帖子

0

主题

0

精华

实习版主

F 币
653 元
贡献
214 点

元老勋章新人勋章

QQ
发表于 2023-3-16 21:30:25 | 显示全部楼层
等效于
Do I=1,NCM
  PV(I,1)=0.D0
  Do J=NCF,1,-1
    PV(I,1)=PV(I,1)+PC(J)*BUF(J,I,L)
  End Do
End Do
IF(IFL.LE.1) RETURN

54

帖子

0

主题

0

精华

实习版主

F 币
653 元
贡献
214 点

元老勋章新人勋章

QQ
发表于 2023-3-16 21:31:40 | 显示全部楼层
本帖最后由 布衣龙共 于 2023-3-16 21:36 编辑

总结
Do 标号 ....AAA
   ....BBB
标号 ...CCC

等效于
Do ...AAA
  ...BBB
  ...CCC
End Do

这种老的写法,自己认识就行了。千万别在新写的代码里使用了。此外。http://quill.fcode.cn 这个工具可以转换这种老代码。


13

帖子

6

主题

0

精华

入门

F 币
59 元
贡献
22 点
 楼主| 发表于 2023-3-16 21:38:51 | 显示全部楼层
布衣龙共 发表于 2023-3-16 21:31
总结
Do 标号 ....AAA
   ....BBB

好的好的十分感谢
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2024-5-20 08:28

Powered by Tencent X3.4

© 2013-2024 Tencent

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