Do 循环中含有goto的理解问题

ch1lg · 发表于 2014-11-24 20:57:43

[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:43

本帖最后由珊瑚虫于 2014-11-24 21:23 编辑

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

[流程控制] Do 循环中含有goto的理解问题

爱心勋章

管理勋章