＜UBOUND Example Program＞

Program ubound_example
  Real a(0:2,4)
  Print 1, Ubound(a,Dim=1)
  Print 1, Ubound(a,Dim=2)
  Print 1, Ubound(a)
1 Format(99(1X,I0,:,','))
End

---

■ Execution Results

 2
 4
 2, 4