从列表中循环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