1 |
HPF_LOCAL requires a Fortran 90 interface to the local subroutine with assumed-shape arrays
-
- Many libraries do not use assumed-shape arrays
-
- Thus was born the need for F77_LOCAL
|
2 |
On the caller (HPF) side:
-
EXTRINSIC(HPF_LOCAL) REAL FUNCTION foo(x)
-
REAL x(:)
-
!HPF$ DISTRIBUTE x(BLOCK)
|
3 |
On the callee side:
-
- Implicit interface (FORTRAN 77 doesn't have explicit interfaces)
|