1program sample
2 implicit none
3
4 integer :: i
5
6 ! 最も基本的な配列の宣言
7 integer :: a(5)
8
9 ! 配列の添字範囲を指定して宣言
10 integer :: b(0:4)
11 integer :: c(6:10)
12
13 ! 実数型
14 real(8) :: x(100)
15 real(8) :: sum
16
17 ! doループで配列の各要素を処理する
18 do i = 1, 5
19 a(i) = i
20 enddo
21
22 do i = 0, 4
23 b(i) = i
24 enddo
25
26 ! 各要素同士の演算も出来る(添字に注意)
27 do i = 1, 5
28 c(i + 5) = 2 * a(i) + b(i - 1)
29 enddo
30
31 ! それぞれの値を出力
32 do i = 1, 5
33 write(*, *) 'a(', i, ') = ', a(i)
34 enddo
35
36 do i = 0, 4
37 write(*, *) 'b(', i, ') = ', b(i)
38 enddo
39
40 do i = 6, 10
41 write(*, *) 'c(', i, ') = ', c(i)
42 enddo
43
44 ! 値をセットして
45 do i = 1, 100
46 x(i) = real(i, kind=8)
47 enddo
48
49 ! 配列の和を求める
50 sum = 0.0_8
51 do i = 1, 100
52 sum = sum + x(i)
53 enddo
54
55 write(*, *) 'sum = ', sum
56
57 stop
58endprogram sample