有没有一个Fortran等价于Python的forelse语句？

Question

有没有一个Fortran等效的Python for else语句？在

例如，下面将数字列表按不同的范围排序。在Python中，它是：

absth = [1, 2, 3, 4, 5]
vals = [.1, .2, .5, 1.2, 3.5, 3.7, 16.8, 19.8, 135.60]


counts = [0] * len(absth)
for v in vals:
    for i, a in enumerate(absth):
        if v < a:
            counts[i] += 1
            break
    else:
        counts[-1] += 1

在Fortran中，这是相同的：

^{pr2}$

但是有没有一种方法可以不必使用is_in_last_absth并用类似Python中的else来替换它？在

Answer 1

GO TO语句允许任意跳转。特别是，编写for循环后接else块，然后是标记为continue的。在循环中，如果条件为真，则跳转到标记为continue的。否则for循环将正常终止，else块将被执行，然后继续，这与python for…else构造的语义完全匹配。在

例如：

        INTEGER nabsth, nvals
        PARAMETER (nabsth=5, nvals=9)
        INTEGER absth(nabsth), counts(nabsth)
        REAL vals(nvals)
        DATA absth/1, 2, 3, 4, 5/
        DATA counts/0, 0, 0, 0, 0/
        DATA vals/.1, .2, .5, 1.2, 3.5, 3.7, 16.8, 19.8, 135.60/

        do iv = 1, nvals

          do ia = 1, nabsth - 1
            if (vals(iv) < absth(ia)) then
              counts(ia) = counts(ia) + 1
              goto 10
            end if
          end do
          counts(nabsth) = counts(nabsth) + 1
10        continue
        end do
        WRITE (*,*), counts
        end

生产

^{pr2}$