do循环+标号问题求助

ssy · 发表于 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再循环
还是其他意思呢

布衣龙共 · 发表于 2023-3-16 21:01:04

等效于
Do I=NP+1,NCF
PC(I)=TWOT*PC(I-1)-PC(I-2)
End Do
NP=NCF

ssy · 发表于 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

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

布衣龙共 · 发表于 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 这个工具可以转换这种老代码。

ssy · 发表于 2023-3-16 21:38:51

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

好的好的十分感谢

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

元老勋章

新人勋章