mm_reset_cars.c

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

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

#include "mpidimpl.h"

/*@
   mm_reset_cars - reset cars

   Parameters:
+  MPID_Request *request_ptr - request

   Notes:
@*/
int mm_reset_cars(MPID_Request *request_ptr)
{
    MM_Car *car_ptr;
    MPIDI_STATE_DECL(MPID_STATE_MM_RESET_CARS);

    MPIDI_FUNC_ENTER(MPID_STATE_MM_RESET_CARS);

    car_ptr = &request_ptr->mm.rcar[0];
    while (car_ptr)
    {
	if (car_ptr->vc_ptr)
	{
	    car_ptr->vc_ptr->fn.reset_car(car_ptr);
	}
	else
	{
	    dbg_printf("reset_car not available, no vc_ptr\n");
	}
	car_ptr = car_ptr->opnext_ptr;
    }

    car_ptr = &request_ptr->mm.wcar[0];
    while (car_ptr)
    {
	if (car_ptr->vc_ptr)
	{
	    car_ptr->vc_ptr->fn.reset_car(car_ptr);
	}
	else
	{
	    dbg_printf("reset_car not available, no vc_ptr\n");
	}
	car_ptr = car_ptr->opnext_ptr;
    }

    MPIDI_FUNC_EXIT(MPID_STATE_MM_RESET_CARS);
    return MPI_SUCCESS;
}