Without using INHERIT, this is very complex. Consider
REAL, DIMENSION(4,6) :: A, B REAL, DIMENSION(2,3) :: Res !HPF$ PROCESSORS, DIMENSION(2,2) :: P !HPF$ ALIGN B(:,:) WITH A(:,:) !HPF$ ALIGN Res(:,:) WITH A(::2,::2) !HPF$ DISTRIBUTE (BLOCK,BLOCK) ONTO P :: A, B, Res ... CALL Zubbie(A(1:2,1::2),B(3:4,2::2),Res)
For descriptive distributions what should interface look like?
For more information, click here