1 /*
2    (C) 2004 by Argonne National Laboratory.
3        See COPYRIGHT in top-level directory.
4 */
5 #include "collchk.h"
6 
CollChk_is_init(void)7 int CollChk_is_init(void)
8 {
9     int fl;
10 
11     MPI_Initialized(&fl);
12 
13     if (fl)
14         return 1;
15     else
16         return 0;
17 }
18 
19