1 /*
2    (C) 2004 by Argonne National Laboratory.
3        See COPYRIGHT in top-level directory.
4 */
5 #include "collchk.h"
6 
CollChk_add_win(MPI_Win win,MPI_Comm comm)7 void CollChk_add_win( MPI_Win win, MPI_Comm comm )
8 {
9     CollChk_win_t new_win;
10 
11     /* get the memory */
12     CollChk_win_list = (CollChk_win_t *) realloc( CollChk_win_list,
13                                                   (CollChk_win_cnt+1)
14                                                 * sizeof(CollChk_win_t) );
15 
16     /* add the new_win */
17     new_win.win = win;
18     new_win.comm = comm;
19     CollChk_win_list[CollChk_win_cnt] = new_win;
20 
21     /* increase the size; */
22     CollChk_win_cnt++;
23 }
24