1! リダイレクトを用いて
2! $ ./a.out < sample5.dat
3! のようにデータを読み込むこと
4program sample
5 implicit none
6
7 integer :: i
8 real(8) :: x(10), y(10), z(10)
9
10 ! doループで全要素を順に読み込む
11 ! この場合は改行があっても構わない
12 read(*, *) x
13
14 ! このように書いても動作は同じ
15 read(*, *)(y(i), i=1, 10)
16
17 ! よく理解していない場合にはこの形式は使わない方がよい
18 ! 1行に一つの要素が書かれている場合の読み込みはこれでよい
19 do i = 1, 10
20 read(*, *) z(i)
21 enddo
22
23 ! doループで全要素を順に出力
24 do i = 1, 10
25 write(*, *) x(i)
26 enddo
27
28 write(*, *) x ! 改行せずに1行に全要素を出力
29 write(*, *)(y(i), i=1, 10) ! これも同じ
30 write(*, *)(z(i), i=1, 10, 2) ! 1つ飛ばしで出力
31
32 stop
33endprogram sample