Question

我在用fortran编程调试程序的时候有一个错误不知道怎么改，希望有高手可以帮忙！

部分程序如下：
DO 73 I=1,NXX
WRITE(13,7) (YS(I,N),N=1,NY)
WRITE(13,7) (YO(I,J),J=1,NY)
73 CONTINUE
END
错误就在END这一行，显示错误如下：
D:\vfortran\Projects\yuanzhuraoliu2\Text11.f90(235): error FOR3309: undefined label 4
我不明白的是END是为了退出循环，到底哪里出错了呢？

Answer 1

end用于结束一段程序或子程序，上边提示错误信息undefined label 4，也就是说前边有一个4号标签是未定的：比方说上边的这个循环，如果写成：
DO 73 I = 1, N
WRITE(*,*) TTTTTTTTTT
74 CONTINUE
由于73号标签不能与CONTINUE前的74号对应，也会出现上述错误。一楼说的是针对另一种没有标签的DO循环，跟问题中的错误并不对应。

Answer 2

退出循环用ENDDO而不是END