mpir_wait.c

来自「刚才是说明 现在是安装程序在 LINUX环境下进行编程的MPICH安装文件」· C语言 代码 · 共 31 行

/* -*- Mode: C; c-basic-offset:4 ; -*- */
/*
 *
 *  (C) 2001 by Argonne National Laboratory.
 *      See COPYRIGHT in top-level directory.
 */

#include "mpiimpl.h"

void MPIR_Wait(MPID_Request * request)
{
    MPID_MPI_STATE_DECL(MPID_STATE_MPIR_WAIT);

    MPID_MPI_FUNC_ENTER(MPID_STATE_MPIR_WAIT);
    while(1)
    {
	MPID_Progress_start();
	
	if ((*request->cc_ptr) != 0)
	{
	    MPID_Progress_wait();
	}
	else
	{
	    MPID_Progress_end();
	    break;
	}
    }
    MPID_MPI_FUNC_EXIT(MPID_STATE_MPIR_WAIT);
}