fortran问题

这只是一个警告，用来告诉你，你的跳转，从循环外跳转到一个循环内了。
一般来说，我们的逻辑不会是这样。
如果你确信你的逻辑就是这样，那就不用管这个警告了。
为了说明问题，把你的代码一部分抽出来，像这样：
DO 100 K=1,N1
8 WRITE(6,2) K
100 CONTINUE
IF(ABS(A(N,N)-0.000001)) 8,8,101
如果满足条件，则跳转到 8 行，但 8 行，在 D