＜DIMENSION Example Program 1＞

Program dimension_example_1
  Real, Dimension (2,3) :: a
  Do i = 1, 2
    Do j = 1, 3
      a(i,j) = 100*i + j
    End Do
  End Do
  Print *, a(1,3)
End Program

---

■ Execution Results

   1.0300000E+02

＜DIMENSION Example Program 2＞

Program dimension_example_2
  Real :: a(0:1,0:2)
  Do i = 0, 1
    Do j = 0, 2
      a(i,j) = 100*i + j
    End Do
  End Do
  Print *, a(0,2)
 End Program

---

■ Execution Results

   2.0000000