PROGRAM MY_TEST INTERFACE EXTRINSIC(HPF_SERIAL) SUBROUTINE GRAPH_DISPLAY(DATA) INTEGER, INTENT(IN) :: DATA(:, :) END SUBROUTINE GRAPH_DISPLAY END INTERFACE
INTEGER, PARAMETER :: X_SIZE = 1024, Y_SIZE = 1024
INTEGER DATA_ARRAY(X_SIZE, Y_SIZE) !HPF$ DISTRIBUTE DATA_ARRAY(BLOCK, BLOCK)
! Compute DATA_ARRAY ... CALL DISPLAY_DATA(DATA_ARRAY) END PROGRAM MY_TEST
! The definition of a graphical display subroutine. In some implementation- ! dependent fashion, this will plot a graph of the data in DATA. EXTRINSIC(HPF_SERIAL) SUBROUTINE GRAPH_DISPLAY(DATA) INTEGER, INTENT(IN) :: DATA(:, :) INTEGER :: X_IDX, Y_IDX
DO Y_IDX = LBOUND(DATA, 2), UBOUND(DATA, 2) DO X_IDX = LBOUND(DATA, 1), UBOUND(DATA, 1) ... END DO END DO END SUBROUTINE GRAPH_DISPLAY