ch3_finalize.c

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

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

#include "mpidi_ch3_impl.h"
#include "pmi.h"

#undef FUNCNAME
#define FUNCNAME MPIDI_CH3_Finalize
#undef FCNAME
#define FCNAME MPIDI_QUOTE(FUNCNAME)
int MPIDI_CH3_Finalize()
{
    int mpi_errno = MPI_SUCCESS;
    int rc;

    MPIDI_DBG_PRINTF((50, FCNAME, "entering"));

    /* TODO - Close any open communication sockets. Don't forget to set the
       socket back to blocking before calling close() or data in the socket
       buffer may not be flushed to the network device.  Should this be done
       done completely in Progress_finalize() or is additional coordination
       required? */
    
    /* Shutdown the progress engine */
    rc = MPIDI_CH3I_Progress_finalize();
    assert (rc == MPI_SUCCESS);
    if (rc != MPI_SUCCESS && mpi_errno == MPI_SUCCESS)
    {
	mpi_errno = rc;
    }

    /* Free resources allocated in CH3_Init() */
    MPID_VCRT_Release(MPIR_Process.comm_self->vcrt);
    MPID_VCRT_Release(MPIR_Process.comm_world->vcrt);
    MPIU_Free(MPIDI_CH3I_Process.pg->vc_table);
    MPIU_Free(MPIDI_CH3I_Process.pg->kvs_name);
    MPIU_Free(MPIDI_CH3I_Process.pg);
    
    /* Let PMI know the process is about to exit */
    rc = PMI_Finalize();
    assert(rc == 0);
    if (rc)
    {
	mpi_errno = MPIR_Err_create_code(
	    MPI_ERR_OTHER, "PMI_Finalize() failed", 0 );
    }

    MPIDI_DBG_PRINTF((50, FCNAME, "exiting"));
    return mpi_errno;
}