errmsg.c

fortran并行计算包

/* -*- Mode: C; c-basic-offset:4 ; -*- */
/*
 *  (C) 2001 by Argonne National Laboratory.
 *      See COPYRIGHT in top-level directory.
 */
#include <stdio.h>
#include "mpi.h"

void ChkMsg( int, int, const char [] );

/*
 * This routine is used to check the message associated with an error
 * code.  Currently, it uses MPI_Error_string to get the corresponding
 * message for a code, and prints out the cooresponding class and original
 * message.
 * 
 * Eventually, we should also access the generic anc specific messages
 * separately.
 */
void ChkMsg( int err, int msgclass, const char msg[] )
{
    char errmsg[MPI_MAX_ERROR_STRING];
    int len;

    MPI_Error_string( err, errmsg, &len );
    
    fprintf( stdout, "[0x%08x] %2d %s \tgives %s\n", err, msgclass, msg, errmsg );
}