Fortran嵌套循環

可以在一個或多個循環結構嵌套任何另一個循環結構。也可以把標籤放到循環中。

語法

iloop: do i = 1, 3 print*, "i: ", i

jloop: do j = 1, 3 print*, "j: ", j

  kloop: do k \= 1, 3 print\*, "k: ", k end do kloop end do jloop end do iloop

實例

program nestedLoop implicit none

integer:: i, j, k

iloop: do i = 1, 3 jloop: do j = 1, 3 kloop: do k = 1, 3 print*, "(i, j, k): ", i, j, k end do kloop end do jloop end do iloop end program nestedLoop

當上述代碼被編譯和執行時，它產生了以下結果：

(i, j, k): 1 1 1
(i, j, k): 1 1 2
(i, j, k): 1 1 3
(i, j, k): 1 2 1
(i, j, k): 1 2 2
(i, j, k): 1 2 3
(i, j, k): 1 3 1
(i, j, k): 1 3 2
(i, j, k): 1 3 3
(i, j, k): 2 1 1
(i, j, k): 2 1 2
(i, j, k): 2 1 3
(i, j, k): 2 2 1
(i, j, k): 2 2 2
(i, j, k): 2 2 3
(i, j, k): 2 3 1
(i, j, k): 2 3 2
(i, j, k): 2 3 3
(i, j, k): 3 1 1
(i, j, k): 3 1 2
(i, j, k): 3 1 3
(i, j, k): 3 2 1
(i, j, k): 3 2 2