+void mpi_win_null_copy_fn_( int* win, int* keyval, int* extrastate, MPI_Aint* valin, MPI_Aint* valout,
+ int* flag, int* ierr ){
+ *flag=0;
+ *ierr=MPI_SUCCESS;
+}
+
+void mpi_win_dup_fn_( int* win, int* keyval, int* extrastate, MPI_Aint* valin, MPI_Aint* valout,
+ int* flag, int* ierr ){
+ *flag=1;
+ *valout=*valin;
+ *ierr=MPI_SUCCESS;
+}
+