program try
real a(100), b(200), c(100, 100)
!HPF$ PROCESSORS p(10)
!HPF$ ALIGN a(I) with b(2*I)
!HPF$ ALIGN c(I, *) with b(I+1)
!HPF$ distribute  b (BLOCK) ONTO p  
end 


