REAL a(16), b(8)

!HPF$ ALIGN B(I) WITH a(2*i)

!HPF$ DISTRIBUTE a(BLOCK)

FORALL (j=1:7) b(i) = a(2*i+1)

FORALL (j=1:16) b'(2*j) = a(2*j+1)

FORALL (j'=2:32:2) b'(j') = a(j'+1)

在block边界通信