errcode.c

刚才是说明 现在是安装程序在 LINUX环境下进行编程的MPICH安装文件

#include <stdio.h>
#include "mpi.h"
int MPIR_Err_create_code( int, const char [], ... );
void ChkMsg( int, int, const char [] );

int main(int argc, char **argv)
{
    int err;
    MPI_Init( 0, 0 );
    /* src/mpi/attr/attrutil.c */
    err = MPIR_Err_create_code( MPI_ERR_OTHER, "**nomem", 0 );
    ChkMsg( err, MPI_ERR_OTHER, "**nomem" );
    /* src/mpi/attr/attrutil.c */
    err = MPIR_Err_create_code( MPI_ERR_OTHER, "**attrsentinal", 0 );
    ChkMsg( err, MPI_ERR_OTHER, "**attrsentinal" );
    /* src/mpi/attr/comm_delete_attr.c */
    err = MPIR_Err_create_code( MPI_ERR_KEYVAL, "**keyval", 0 );
    ChkMsg( err, MPI_ERR_KEYVAL, "**keyval" );
    /* src/mpi/attr/comm_delete_attr.c */
    err = MPIR_Err_create_code( MPI_ERR_KEYVAL, "**keyvalnotcomm", 0 );
    ChkMsg( err, MPI_ERR_KEYVAL, "**keyvalnotcomm" );
    /* src/mpi/attr/comm_delete_attr.c */
    err = MPIR_Err_create_code( MPI_ERR_OTHER, "**permattr", 0 );
    ChkMsg( err, MPI_ERR_OTHER, "**permattr" );
    /* src/mpi/attr/comm_set_attr.c */
    err = MPIR_Err_create_code( MPI_ERR_KEYVAL, "**keyvalinvalid", 0 );
    ChkMsg( err, MPI_ERR_KEYVAL, "**keyvalinvalid" );
    /* src/mpi/attr/type_create_keyval.c */
    err = MPIR_Err_create_code( MPI_ERR_OTHER, "**initialized", 0 );
    ChkMsg( err, MPI_ERR_OTHER, "**initialized" );
    /* src/mpi/coll/allgather.c */
    err = MPIR_Err_create_code( MPI_ERR_COMM, "**intercommcoll", 0 );
    ChkMsg( err, MPI_ERR_COMM, "**intercommcoll" );
    {
    /* src/mpi/coll/allgather.c */
    char s1[] = "string1";
     err = MPIR_Err_create_code( MPI_ERR_COMM, "**intercommcoll", "**intercommcoll %s", s1 );
    ChkMsg( err, MPI_ERR_COMM, "**intercommcoll %s" );
    }
    {
    /* src/mpi/coll/allgatherv.c */
    char s1[] = "string1";
     err = MPIR_Err_create_code( MPI_ERR_COMM, "**intercommcoll", "**intercommcoll %s", s1 );
    ChkMsg( err, MPI_ERR_COMM, "**intercommcoll %s" );
    }
    {
    /* src/mpi/coll/allreduce.c */
    char s1[] = "string1";
     err = MPIR_Err_create_code( MPI_ERR_COMM, "**intercommcoll", "**intercommcoll %s", s1 );
    ChkMsg( err, MPI_ERR_COMM, "**intercommcoll %s" );
    }
    {
    /* src/mpi/coll/alltoall.c */
    char s1[] = "string1";
     err = MPIR_Err_create_code( MPI_ERR_COMM, "**intercommcoll", "**intercommcoll %s", s1 );
    ChkMsg( err, MPI_ERR_COMM, "**intercommcoll %s" );
    }
    {
    /* src/mpi/coll/alltoallv.c */
    char s1[] = "string1";
     err = MPIR_Err_create_code( MPI_ERR_COMM, "**intercommcoll", "**intercommcoll %s", s1 );
    ChkMsg( err, MPI_ERR_COMM, "**intercommcoll %s" );
    }
    {
    /* src/mpi/coll/alltoallw.c */
    char s1[] = "string1";
     err = MPIR_Err_create_code( MPI_ERR_COMM, "**intercommcoll", "**intercommcoll %s", s1 );
    ChkMsg( err, MPI_ERR_COMM, "**intercommcoll %s" );
    }
    {
    /* src/mpi/coll/barrier.c */
    char s1[] = "string1";
     err = MPIR_Err_create_code( MPI_ERR_COMM, "**intercommcoll", "**intercommcoll %s", s1 );
    ChkMsg( err, MPI_ERR_COMM, "**intercommcoll %s" );
    }
    {
    /* src/mpi/coll/bcast.c */
    char s1[] = "string1";
     err = MPIR_Err_create_code( MPI_ERR_COMM, "**intercommcoll", "**intercommcoll %s", s1 );
    ChkMsg( err, MPI_ERR_COMM, "**intercommcoll %s" );
    }
    {
    /* src/mpi/coll/gather.c */
    char s1[] = "string1";
     err = MPIR_Err_create_code( MPI_ERR_COMM, "**intercommcoll", "**intercommcoll %s", s1 );
    ChkMsg( err, MPI_ERR_COMM, "**intercommcoll %s" );
    }
    {
    /* src/mpi/coll/gatherv.c */
    char s1[] = "string1";
     err = MPIR_Err_create_code( MPI_ERR_COMM, "**intercommcoll", "**intercommcoll %s", s1 );
    ChkMsg( err, MPI_ERR_COMM, "**intercommcoll %s" );
    }
    /* src/mpi/coll/op_free.c */
    err = MPIR_Err_create_code( MPI_ERR_OP, "**permop", 0 );
    ChkMsg( err, MPI_ERR_OP, "**permop" );
    /* src/mpi/coll/opband.c */
    err = MPIR_Err_create_code( MPI_ERR_OP, "**opundefined", 0 );
    ChkMsg( err, MPI_ERR_OP, "**opundefined" );
    {
    /* src/mpi/coll/opband.c */
    char s1[] = "string1";
     err = MPIR_Err_create_code( MPI_ERR_OP, "**opundefined", "**opundefined %s", s1 );
    ChkMsg( err, MPI_ERR_OP, "**opundefined %s" );
    }
    {
    /* src/mpi/coll/opbor.c */
    char s1[] = "string1";
     err = MPIR_Err_create_code( MPI_ERR_OP, "**opundefined", "**opundefined %s", s1 );
    ChkMsg( err, MPI_ERR_OP, "**opundefined %s" );
    }
    {
    /* src/mpi/coll/opbxor.c */
    char s1[] = "string1";
     err = MPIR_Err_create_code( MPI_ERR_OP, "**opundefined", "**opundefined %s", s1 );
    ChkMsg( err, MPI_ERR_OP, "**opundefined %s" );
    }
    {
    /* src/mpi/coll/opland.c */
    char s1[] = "string1";
     err = MPIR_Err_create_code( MPI_ERR_OP, "**opundefined", "**opundefined %s", s1 );
    ChkMsg( err, MPI_ERR_OP, "**opundefined %s" );
    }
    {
    /* src/mpi/coll/oplor.c */
    char s1[] = "string1";
     err = MPIR_Err_create_code( MPI_ERR_OP, "**opundefined", "**opundefined %s", s1 );
    ChkMsg( err, MPI_ERR_OP, "**opundefined %s" );
    }
    {
    /* src/mpi/coll/oplxor.c */
    char s1[] = "string1";
     err = MPIR_Err_create_code( MPI_ERR_OP, "**opundefined", "**opundefined %s", s1 );
    ChkMsg( err, MPI_ERR_OP, "**opundefined %s" );
    }
    {
    /* src/mpi/coll/opmax.c */
    char s1[] = "string1";
     err = MPIR_Err_create_code( MPI_ERR_OP, "**opundefined", "**opundefined %s", s1 );
    ChkMsg( err, MPI_ERR_OP, "**opundefined %s" );
    }
    {
    /* src/mpi/coll/opmaxloc.c */
    char s1[] = "string1";
     err = MPIR_Err_create_code( MPI_ERR_OP, "**opundefined", "**opundefined %s", s1 );
    ChkMsg( err, MPI_ERR_OP, "**opundefined %s" );
    }
    {
    /* src/mpi/coll/opmin.c */
    char s1[] = "string1";
     err = MPIR_Err_create_code( MPI_ERR_OP, "**opundefined", "**opundefined %s", s1 );
    ChkMsg( err, MPI_ERR_OP, "**opundefined %s" );
    }
    {
    /* src/mpi/coll/opminloc.c */
    char s1[] = "string1";
     err = MPIR_Err_create_code( MPI_ERR_OP, "**opundefined", "**opundefined %s", s1 );
    ChkMsg( err, MPI_ERR_OP, "**opundefined %s" );
    }
    {
    /* src/mpi/coll/opprod.c */
    char s1[] = "string1";
     err = MPIR_Err_create_code( MPI_ERR_OP, "**opundefined", "**opundefined %s", s1 );
    ChkMsg( err, MPI_ERR_OP, "**opundefined %s" );
    }
    {
    /* src/mpi/coll/opsum.c */
    char s1[] = "string1";
     err = MPIR_Err_create_code( MPI_ERR_OP, "**opundefined", "**opundefined %s", s1 );
    ChkMsg( err, MPI_ERR_OP, "**opundefined %s" );
    }
    {
    /* src/mpi/coll/red_scat.c */
    char s1[] = "string1";
     err = MPIR_Err_create_code( MPI_ERR_COMM, "**intercommcoll", "**intercommcoll %s", s1 );
    ChkMsg( err, MPI_ERR_COMM, "**intercommcoll %s" );
    }
    {
    /* src/mpi/coll/reduce.c */
    char s1[] = "string1";
     err = MPIR_Err_create_code( MPI_ERR_COMM, "**intercommcoll", "**intercommcoll %s", s1 );
    ChkMsg( err, MPI_ERR_COMM, "**intercommcoll %s" );
    }
    {
    /* src/mpi/coll/scatter.c */
    char s1[] = "string1";
     err = MPIR_Err_create_code( MPI_ERR_COMM, "**intercommcoll", "**intercommcoll %s", s1 );
    ChkMsg( err, MPI_ERR_COMM, "**intercommcoll %s" );
    }
    {
    /* src/mpi/coll/scatterv.c */
    char s1[] = "string1";
     err = MPIR_Err_create_code( MPI_ERR_COMM, "**intercommcoll", "**intercommcoll %s", s1 );
    ChkMsg( err, MPI_ERR_COMM, "**intercommcoll %s" );
    }
    /* src/mpi/comm/comm_create.c */
    err = MPIR_Err_create_code( MPI_ERR_OTHER, "**toomanycomm", 0 );
    ChkMsg( err, MPI_ERR_OTHER, "**toomanycomm" );
    /* src/mpi/comm/comm_create.c */
    err = MPIR_Err_create_code( MPI_ERR_GROUP, "**groupnotincomm", 0 );
    ChkMsg( err, MPI_ERR_GROUP, "**groupnotincomm" );
    {
    /* src/mpi/comm/comm_create.c */
    int i1 = 1;
     err = MPIR_Err_create_code( MPI_ERR_GROUP, "**groupnotincomm", "**groupnotincomm %d", i1 );
    ChkMsg( err, MPI_ERR_GROUP, "**groupnotincomm %d" );
    }
    /* src/mpi/comm/comm_free.c */
    err = MPIR_Err_create_code( MPI_ERR_COMM, "**commperm", 0 );
    ChkMsg( err, MPI_ERR_COMM, "**commperm" );
    {
    /* src/mpi/comm/comm_free.c */
    char s1[] = "string1";
     err = MPIR_Err_create_code( MPI_ERR_COMM, "**commperm", "**commperm %s", s1 );
    ChkMsg( err, MPI_ERR_COMM, "**commperm %s" );
    }
    /* src/mpi/comm/comm_rank.c */
    err = MPIR_Err_create_code( MPI_ERR_ARG, "**nullptr", 0 );
    ChkMsg( err, MPI_ERR_ARG, "**nullptr" );
    {
    /* src/mpi/comm/comm_rank.c */
    char s1[] = "string1";
     err = MPIR_Err_create_code( MPI_ERR_ARG, "**nullptr", "**nullptr %s", s1 );
    ChkMsg( err, MPI_ERR_ARG, "**nullptr %s" );
    }
    /* src/mpi/comm/comm_remote_group.c */
    err = MPIR_Err_create_code( MPI_ERR_COMM, "**commnotinter", 0 );
    ChkMsg( err, MPI_ERR_COMM, "**commnotinter" );
    {
    /* src/mpi/comm/comm_size.c */
    char s1[] = "string1";
     err = MPIR_Err_create_code( MPI_ERR_ARG, "**nullptr", "**nullptr %s", s1 );
    ChkMsg( err, MPI_ERR_ARG, "**nullptr %s" );
    }
    /* src/mpi/comm/intercomm_create.c */
    err = MPIR_Err_create_code( MPI_ERR_OTHER, "**intern", 0 );
    ChkMsg( err, MPI_ERR_OTHER, "**intern" );
    {
    /* src/mpi/comm/intercomm_create.c */
    char s1[] = "string1";
     err = MPIR_Err_create_code( MPI_ERR_OTHER, "**intern", "**intern %s", s1 );
    ChkMsg( err, MPI_ERR_OTHER, "**intern %s" );
    }
    /* src/mpi/comm/intercomm_create.c */
    err = MPIR_Err_create_code( MPI_ERR_COMM, "**dupprocesses", 0 );
    ChkMsg( err, MPI_ERR_COMM, "**dupprocesses" );
    {
    /* src/mpi/comm/intercomm_create.c */
    int i1 = 1;
     err = MPIR_Err_create_code( MPI_ERR_COMM, "**dupprocesses", "**dupprocesses %d", i1 );
    ChkMsg( err, MPI_ERR_COMM, "**dupprocesses %d" );
    }
    /* src/mpi/comm/intercomm_create.c */
    err = MPIR_Err_create_code( MPI_ERR_RANK, "**ranklocal", 0 );
    ChkMsg( err, MPI_ERR_RANK, "**ranklocal" );
    {
    /* src/mpi/comm/intercomm_create.c */
    int i1 = 1;
    int i2 = 2;
     err = MPIR_Err_create_code( MPI_ERR_RANK, "**ranklocal", "**ranklocal %d %d", i1, i2 );
    ChkMsg( err, MPI_ERR_RANK, "**ranklocal %d %d" );
    }
    /* src/mpi/comm/intercomm_create.c */
    err = MPIR_Err_create_code( MPI_ERR_RANK, "**rankremote", 0 );
    ChkMsg( err, MPI_ERR_RANK, "**rankremote" );
    {
    /* src/mpi/comm/intercomm_create.c */
    int i1 = 1;
    int i2 = 2;
     err = MPIR_Err_create_code( MPI_ERR_RANK, "**rankremote", "**rankremote %d %d", i1, i2 );
    ChkMsg( err, MPI_ERR_RANK, "**rankremote %d %d" );
    }
    /* src/mpi/comm/intercomm_merge.c */
    err = MPIR_Err_create_code( MPI_ERR_ARG, "**notsame", 0 );
    ChkMsg( err, MPI_ERR_ARG, "**notsame" );
    {
    /* src/mpi/comm/intercomm_merge.c */
    char s1[] = "string1";
    char s2[] = "string2";