EXTRINSIC(HPF_LOCAL)
HPF_LOCAL is a SPMD language that meshes well with “global” HPF
On the caller (global HPF) side
EXTRINSIC(HPF_LOCAL) REAL FUNCTION foo(x)
REAL x(:) ! x is the blobal array here
!HPF$ DISTRIBUTE x(BLOCK)
On the callee (local HPF) side
EXTRINSIC(HPF_LOCAL) REAL FUNCTION foo(x)
REAL x(:) ! x is the local section here