类似问题编译出错

PotsyYZhou

类似问题编译出错，
源码片段，及报警：


          aslod(nr0ws) = aslod(nrows) + eload(ielem, nrowe)
!c
!c  ASSEMBLE THE ELEMENT STIFFNESS MATRICES
!c
#362          If (kresl==2) Goto 40
          Do jnode = 1, nnode
            nodej = lnods(ielem, jnode)
            Do jdofn = 1, ndofn
              ncols = (nodej-1)*ndofn + jdofn
              ncole = (jnode-1)*ndofn + jdofn
              astif(nrows, ncols) = astif(nrows, ncols) + estif(nrowe, ncole)
#369           40 End Do
          End Do
        End Do
      End Do
    End Do
    Return
  End Subroutine assemb
!c***********************************************************
!c***********************************************************

362 |           If (kresl==2) Goto 40
      |                               2
......
  369 |             40 End Do
      |              1
Warning: Legacy Extension: Label at (1) is not in the same block as
the GOTO statement at (2)


求助老师，楼主， 盼复！
        谢谢！

li913

直接goto进循环是危险的操作，不建议。

PotsyYZhou

看了一下，确实不可靠！ 谢谢！

PotsyYZhou