Fortran Coder

标题: do循环+标号问题求助 [打印本页]

作者: ssy 时间: 2023-3-16 20:54
标题: do循环+标号问题求助
可以解释一下这个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再循环
还是其他意思呢

作者: 布衣龙共 时间: 2023-3-16 21:01
等效于
Do I=NP+1,NCF
PC(I)=TWOT*PC(I-1)-PC(I-2)
End Do
NP=NCF

作者: ssy 时间: 2023-3-16 21:09

布衣龙共发表于 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

作者: 布衣龙共 时间: 2023-3-16 21:30
等效于
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

作者: 布衣龙共 时间: 2023-3-16 21:31
本帖最后由布衣龙共于 2023-3-16 21:36 编辑

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

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

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

作者: ssy 时间: 2023-3-16 21:38

布衣龙共发表于 2023-3-16 21:31
总结
Do 标号 ....AAA
....BBB

好的好的十分感谢

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