! -*- fortran -*-
-! Copyright (c) 2010, 2012-2014. The SimGrid Team.
+! Copyright (c) 2010-2018. The SimGrid Team.
! All rights reserved.
! This program is free software; you can redistribute it and/or modify it
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
- 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)
! 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)