The Next Problem

In HPF, given,

 
!HPF$ PROCESSORS, DIMENSION(4) :: P1
!HPF$ PROCESSORS, DIMENSION(4) :: P2

P1 and P2 are same processor array, but consider,

     REAL, DIMENSION(100,100) :: A
!HPF$ PROCESSORS, DIMENSION(4,4) :: P
!HPF$ DISTRIBUTE (BLOCK,BLOCK) ONTO P :: A
      ...
      CALL Grubbie(A(1,:),A(100,:))
       ...
      SUBROUTINE Grubbie(x,y)
       REAL, DIMENSION(:) :: x, y 
!HPF$ PROCESSORS, DIMENSION(4) :: P1, P2
!HPF$ DISTRIBUTE *(BLOCK) ONTO *P1 :: x
!HPF$ DISTRIBUTE *(BLOCK) ONTO *P2 :: y
       ...

but P1 and P2 are not same processor array. Oh lordy!

Motto:

For more information, click here