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)7void 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