A
lgorithmique
N
umérique
D
istribuée
Public GIT Repository
projects
/
simgrid.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Define XBT_ATTRIB_DEPRECATED_v326.
[simgrid.git]
/
include
/
smpi
/
mpif.h.in
diff --git
a/include/smpi/mpif.h.in
b/include/smpi/mpif.h.in
index
580f2b3
..
786e226
100644
(file)
--- a/
include/smpi/mpif.h.in
+++ b/
include/smpi/mpif.h.in
@@
-1,5
+1,5
@@
! -*- fortran -*-
! -*- fortran -*-
-! Copyright (c) 2010
, 2012-2014
. The SimGrid Team.
+! Copyright (c) 2010
-2019
. The SimGrid Team.
! All rights reserved.
! This program is free software; you can redistribute it and/or modify it
! All rights reserved.
! This program is free software; you can redistribute it and/or modify it
@@
-79,14
+79,18
@@
integer MPI_COMM_NULL_COPY_FN, MPI_COMM_NULL_DELETE_FN
parameter(MPI_COMM_NULL_COPY_FN =0)
parameter(MPI_COMM_NULL_DELETE_FN =0)
integer MPI_COMM_NULL_COPY_FN, MPI_COMM_NULL_DELETE_FN
parameter(MPI_COMM_NULL_COPY_FN =0)
parameter(MPI_COMM_NULL_DELETE_FN =0)
- integer MPI_COMM_NULL_DUP_FN, MPI_COMM_DUP_FN
- parameter(MPI_COMM_NULL_DUP_FN =0)
- parameter(MPI_COMM_DUP_FN =0)
+ integer MPI_COMM_DUP_FN
+ parameter(MPI_COMM_DUP_FN =1)
integer MPI_WIN_NULL_COPY_FN, MPI_WIN_NULL_DELETE_FN
parameter(MPI_WIN_NULL_COPY_FN =0)
parameter(MPI_WIN_NULL_DELETE_FN =0)
integer MPI_WIN_DUP_FN
integer MPI_WIN_NULL_COPY_FN, MPI_WIN_NULL_DELETE_FN
parameter(MPI_WIN_NULL_COPY_FN =0)
parameter(MPI_WIN_NULL_DELETE_FN =0)
integer MPI_WIN_DUP_FN
- parameter(MPI_WIN_DUP_FN =0)
+ parameter(MPI_WIN_DUP_FN =1)
+ integer MPI_TYPE_NULL_COPY_FN, MPI_TYPE_NULL_DELETE_FN
+ parameter(MPI_TYPE_NULL_COPY_FN =0)
+ parameter(MPI_TYPE_NULL_DELETE_FN =0)
+ integer MPI_TYPE_DUP_FN
+ parameter(MPI_TYPE_DUP_FN =1)
integer MPI_ROOT, MPI_COMM_TYPE_SHARED
parameter(MPI_ROOT=0)
integer MPI_ROOT, MPI_COMM_TYPE_SHARED
parameter(MPI_ROOT=0)
@@
-113,7
+117,7
@@
! This should be equal to the number of int fields in MPI_Status
integer MPI_STATUS_SIZE
! This should be equal to the number of int fields in MPI_Status
integer MPI_STATUS_SIZE
- parameter(MPI_STATUS_SIZE=
4
)
+ parameter(MPI_STATUS_SIZE=
5
)
integer MPI_INTEGER_KIND
parameter(MPI_INTEGER_KIND=4)
integer MPI_INTEGER_KIND
parameter(MPI_INTEGER_KIND=4)
@@
-165,7
+169,7
@@
parameter(MPI_WIN_DISP_UNIT=-3)
! These IDs have to be unique, consecutive
parameter(MPI_WIN_DISP_UNIT=-3)
! These IDs have to be unique, consecutive
-! and ordered as in smpi_f77.cpp.
+! and ordered as in smpi_f77.cpp.
parameter(MPI_COMM_WORLD=0)
parameter(MPI_BYTE=1)
parameter(MPI_COMM_WORLD=0)
parameter(MPI_BYTE=1)