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