loops - 从列表中循环 Fortran

Question

我使用 Fortran，我想知道是否可以制作类似的东西

  do i = array
    write (*,*) i
  end do

其中 array 是一个不一定有序的整数列表。

Answer 1

我将引入第二个索引来迭代数组的元素:

program test

  implicit none

  integer, dimension(6)  :: A
  integer, dimension(10) :: B
  integer                :: i, j

  A = (/ 1, 3, 4, 5, 8, 9 /)
  B = (/ 2, 4, 6, 8, 10, 12, 14, 16, 18, 20 /)

  do j = 1, size(A)
     i = A(j)
     write(*,*) i, B(i)
  end do

end program test