chap05/sample6.f90

サンプルコードのダウンロード

 1! リダイレクトを用いて
 2!   $ ./a.out < sample6.dat
 3! のようにデータを読み込むこと
 4program sample
 5  implicit none
 6
 7  integer :: i, j
 8  real(8) :: x(3, 4)
 9
10  ! 配列のメモリが連続した要素に順に読み込まれる
11  read(*, *) x
12
13  do j = 1, 4
14    do i = 1, 3
15      write(*, *) i, j, x(i, j)
16    enddo
17  enddo
18
19  stop
20endprogram sample