Scalar Arguments

This slide demonstrates what happens if a single array item is used as an actual argument. Consider,

    REAL, DIMENSION(100,100)    :: A, B
    REAL                        :: z
!HPF$ DISTRIBUTE (BLOCK,BLOCK)  :: A, B
    INTERFACE
     SUBROUTINE Schmubbie(r,t,X)
      REAL, INTENT(OUT)         :: r
      REAL, INTENT(IN)          :: t
      REAL, INTENT(IN)          :: X(:,:)
!HPF$ DISTRIBUTE *(BLOCK,BLOCK) :: X
     END SUBROUTINE Schmubbie
    END INTERFACE
     ...
    CALL Schmubbie(A(1,1),z,B)

r will be replicated, t already is.

For more information, click here

Now try this question