<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