＜CODIMENSION Example Program＞

Program codimension_example
  Implicit None
  Real, Codimension [*] :: a
  Integer i
  a = This_Image()**2
  Sync All
  If (This_Image()==Num_Images()) Then
    Do i=1, Num_Images()
      Print '(1X,I0,": ",F0.1)',i,a[i]
    End Do
  End If
End Program

---

■ Execution Results

With the number of images equal to one:

 1: 1.0

With the number of images equal to eight:

 1: 1.0
 2: 4.0
 3: 9.0
 4: 16.0
 5: 25.0
 6: 36.0
 7: 49.0
 8: 64.0