do循环+标号问题求助

布衣龙共

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

布衣龙共

等效于
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 这个工具可以转换这种老代码。