Fortran Coder

标题: Do 循环中含有goto的理解问题 [打印本页]

作者: ch1lg 时间: 2014-11-24 20:57
标题: Do 循环中含有goto的理解问题

[Fortran] 纯文本查看 复制代码

       DO 12 J12 = J11+1,M-1

        if(j14.eq.j12)goto 12

        DO 13 J13 = J12+1,M

        if(j14.eq.j13)goto 13



        CALL WINDUP (F,C,M,IER)

        IF (IER .EQ. 14) GO TO 13

        IF (IER .EQ. 13) GO TO 12



    13  CONTINUE

    12  CONTINUE

以上是遇到的一段代码，在理解上有困难，望指教。
我的理解，‘ DO 12 J12 = J11+1,M-1’与‘ 12 CONTINUE’对应，形成一个循环体，现在的问题是，代码中的’IF (IER .EQ. 13) GO TO 12‘到底是要转到最后的continue 还是转到最上面的Do ？

作者: 珊瑚虫 时间: 2014-11-24 21:20
本帖最后由珊瑚虫于 2014-11-24 21:23 编辑

举个例子比如J12=5 若IER .EQ. 13 成立
则直接跳过到下一个J12 的循环，当然如果你的循环增量是1 则执行J12=6

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)