＜UCOBOUND Example Program＞

Program ucobound_example
  Real a[0:2,*]
  If (This_Image()==1) Then
    Print 1, Ucobound(a,Dim=1)
    Print 1, Ucobound(a,Dim=2)
    Print 1, Ucobound(a)
1   Format(99(1X,I0,:,','))
  End If
End

---

■ Execution Results

With the number of images equal to one:

 2
 1
 2, 1

With the number of images equal to eight:

 2
 3
 2, 3