＜LCOBOUND Example Program＞

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

---

■ Execution Results

 0
 1
 0, 1