类似问题编译出错

PotsyYZhou · 发表于 2023-3-29 11:45:06

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

      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 · 发表于 2023-3-30 09:10:25

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

PotsyYZhou · 发表于 2023-3-31 10:50:23

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

PotsyYZhou · 发表于 2023-4-28 08:37:48