is_init.c

来自「mpi并行计算的c++代码 可用vc或gcc编译通过 可以用来搭建并行计算试验环」· C语言 代码 · 共 19 行

/*
   (C) 2004 by Argonne National Laboratory.
       See COPYRIGHT in top-level directory.
*/
#include "collchk.h" 

int CollChk_is_init(void)
{
    int fl;
    
    MPI_Initialized(&fl);
    
    if (fl)
        return 1;
    else
        return 0;
}