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

类似问题编译出错

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


          aslod(nr0ws) = aslod(nrows) + eload(ielem, nrowe)
!c
!cASSEMBLE 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

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

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

:-handshake
页: [1]
查看完整版本: 类似问题编译出错