论坛 › Fortran语法讨论 › do循环+标号问题求助

ssy 发表于 2023-3-16 20:54:51

do循环+标号问题求助

可以解释一下这个do循环的意思吗:-loveliness:
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循环+标号问题求助