Commit 1faf5663 authored by Junchao Zhang's avatar Junchao Zhang
Browse files

Add prototypes of MPI_Aint_add/diff to the F90 mpi module

No reviewer
parent 288591be
......@@ -450,6 +450,18 @@ if ($is_MPI) {
\@WTIME_DOUBLE_TYPE\@ MPI_WTICK
END FUNCTION MPI_WTICK
FUNCTION MPI_AINT_ADD(base, disp)
USE MPI_CONSTANTS,ONLY: MPI_ADDRESS_KIND
INTEGER(KIND=MPI_ADDRESS_KIND) MPI_AINT_ADD
INTEGER(KIND=MPI_ADDRESS_KIND), INTENT(IN) :: base, disp
END FUNCTION MPI_AINT_ADD
FUNCTION MPI_AINT_DIFF(addr1, addr2)
USE MPI_CONSTANTS,ONLY: MPI_ADDRESS_KIND
INTEGER(KIND=MPI_ADDRESS_KIND) MPI_AINT_DIFF
INTEGER(KIND=MPI_ADDRESS_KIND), INTENT(IN) :: addr1, addr2
END FUNCTION MPI_AINT_DIFF
! style:PMPIuse:PMPI_WTIME:3 sig:0
FUNCTION PMPI_WTIME()
\@WTIME_DOUBLE_TYPE\@ PMPI_WTIME
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment