ループリスト

Question

から私はFortranの使用と、それは、配列は必ずしも整数のリスト注文されていないこと

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

のようなものを作ることが可能だ場合、私は思っていました。

Answer 1

Iは、配列の要素を反復処理するために第2の指標を導入する：

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 

Answer 2

other_arrayという配列の要素のいくつかを書きますが、それらのすべてではないことを意味しますか。iは基本的に任意の値を取るべきですか？言い換えれば、あなたはない

do i = 1, size(other_array,1) 
    write(*,*) other_array(i) 
end do 

が、arrayで指定another_arrayの要素を書きます

array = [1,3,4,2,3,7,8,8,12] 
write(*,*) another_array(array) 

のようなものに印刷したいですか？これを配列サブスクリプトと呼びます。私はこれをテストしていない、私は今外に出ているのでそうしないだろう。