do循环+标号问题求助

ssy

可以解释一下这个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再循环
还是其他意思呢

布衣龙共

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

ssy

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

布衣龙共

等效于
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

布衣龙共

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

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

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

ssy

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

好的好的十分感谢