Interfaces

Good practise to declare explicit interfaces for procedures containing mapped dummies.

    INTERFACE
     SUBROUTINE Soobie(A,B,Res)
      USE Global_Mapping_Info
      REAL, DIMENSION(:,:), INTENT(IN) :: A, B
      REAL, DIMENSION(:,:), INTENT(OUT) :: Res
!HPF$ DISTRIBUTE (BLOCK,BLOCK) ONTO P :: A, B, Res
     END SUBROUTINE Soobie    
    END INTERFACE

Should always use assumed-shape arrays so interfaces will be mandatory anyway.

For more information, click here