<Example Program>

Program size_example
    Real a(0:2,4)
    Print *,
Size(a)
    Print *,
Size(a,Dim=1)
    Print *,
Size(a,Dim=2)
End

Execution Results

  12
  3
  4