errcode.c

fortran并行计算包

/* -*- Mode: C++; c-basic-offset:4 ; -*- */
/*  
 *  (C) 2004 by Argonne National Laboratory.
 *      See COPYRIGHT in top-level directory.
 *
 * This file is automatically generated by maint/extracterrmsgs
 * DO NOT EDIT
 */
#include <stdio.h>
#include <stdlib.h>
#include "mpi.h"
#define MPIR_ERR_FATAL 1
#define MPIR_ERR_RECOVERABLE 0
int MPIR_Err_create_code( int, int, char *, int, int, const char [], const char [], ... );
void ChkMsg( int, int, const char [] );

int main(int argc, char **argv)
{
    int err;
    MPI_Init( 0, 0 );
    /* src/mpi/rma/win_set_name.c */
    err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_win_set_name", 0);
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_win_set_name" );
    {
    /* src/mpi/rma/win_set_name.c */
    int i1 = MPI_WIN_NULL;
    char s2[] = "string2";
     err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_win_set_name", "**mpi_win_set_name %W %s", i1, s2 );
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_win_set_name %W %s" );
    }
    /* src/mpi/rma/win_free.c */
    err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_win_free", 0);
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_win_free" );
    {
    /* src/mpi/rma/win_free.c */
    char s1[] = "pointer1";
     err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_win_free", "**mpi_win_free %p", s1 );
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_win_free %p" );
    }
    /* src/mpi/rma/win_post.c */
    err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_win_post", 0);
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_win_post" );
    {
    /* src/mpi/rma/win_post.c */
    int i1 = MPI_GROUP_NULL;
    int i2 = 2;
    int i3 = MPI_WIN_NULL;
     err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_win_post", "**mpi_win_post %G %A %W", i1, i2, i3 );
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_win_post %G %A %W" );
    }
    /* src/mpi/rma/win_lock.c */
    err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**locktype", 0);
    ChkMsg( err, MPI_ERR_OTHER, "**locktype" );
    /* src/mpi/rma/win_lock.c */
    err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_win_lock", 0);
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_win_lock" );
    {
    /* src/mpi/rma/win_lock.c */
    int i1 = 1;
    int i2 = 2;
    int i3 = 3;
    int i4 = MPI_WIN_NULL;
     err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_win_lock", "**mpi_win_lock %d %d %A %W", i1, i2, i3, i4 );
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_win_lock %d %d %A %W" );
    }
    /* src/mpi/rma/win_get_group.c */
    err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_win_get_group", 0);
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_win_get_group" );
    {
    /* src/mpi/rma/win_get_group.c */
    int i1 = MPI_WIN_NULL;
    char s2[] = "pointer2";
     err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_win_get_group", "**mpi_win_get_group %W %p", i1, s2 );
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_win_get_group %W %p" );
    }
    /* src/mpi/rma/put.c */
    err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_put", 0);
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_put" );
    {
    /* src/mpi/rma/put.c */
    char s1[] = "pointer1";
    int i2 = 2;
    int i3 = MPI_INT;
    int i4 = 4;
    int i5 = 5;
    int i6 = 6;
    int i7 = MPI_INT;
    int i8 = MPI_WIN_NULL;
     err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_put", "**mpi_put %p %d %D %d %d %d %D %W", s1, i2, i3, i4, i5, i6, i7, i8 );
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_put %p %d %D %d %d %d %D %W" );
    }
    /* src/mpi/rma/win_unlock.c */
    err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_win_unlock", 0);
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_win_unlock" );
    {
    /* src/mpi/rma/win_unlock.c */
    int i1 = 1;
    int i2 = MPI_WIN_NULL;
     err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_win_unlock", "**mpi_win_unlock %d %W", i1, i2 );
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_win_unlock %d %W" );
    }
    /* src/mpi/rma/win_start.c */
    err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_win_start", 0);
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_win_start" );
    {
    /* src/mpi/rma/win_start.c */
    int i1 = MPI_GROUP_NULL;
    int i2 = 2;
    int i3 = MPI_WIN_NULL;
     err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_win_start", "**mpi_win_start %G %A %W", i1, i2, i3 );
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_win_start %G %A %W" );
    }
    /* src/mpi/rma/get.c */
    err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_get", 0);
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_get" );
    {
    /* src/mpi/rma/get.c */
    char s1[] = "pointer1";
    int i2 = 2;
    int i3 = MPI_INT;
    int i4 = 4;
    int i5 = 5;
    int i6 = 6;
    int i7 = MPI_INT;
    int i8 = MPI_WIN_NULL;
     err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_get", "**mpi_get %p %d %D %d %d %d %D %W", s1, i2, i3, i4, i5, i6, i7, i8 );
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_get %p %d %D %d %d %d %D %W" );
    }
    /* src/mpi/rma/free_mem.c */
    err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_free_mem", 0);
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_free_mem" );
    {
    /* src/mpi/rma/free_mem.c */
    char s1[] = "pointer1";
     err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_free_mem", "**mpi_free_mem %p", s1 );
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_free_mem %p" );
    }
    /* src/mpi/rma/win_create.c */
    err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**rmasize", 0);
    ChkMsg( err, MPI_ERR_OTHER, "**rmasize" );
    {
    /* src/mpi/rma/win_create.c */
    int i1 = 1;
     err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**rmasize", "**rmasize %d", i1 );
    ChkMsg( err, MPI_ERR_OTHER, "**rmasize %d" );
    }
    /* src/mpi/rma/win_create.c */
    err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**arg", 0);
    ChkMsg( err, MPI_ERR_OTHER, "**arg" );
    {
    /* src/mpi/rma/win_create.c */
    char s1[] = "string1";
     err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**arg", "**arg %s", s1 );
    ChkMsg( err, MPI_ERR_OTHER, "**arg %s" );
    }
    /* src/mpi/rma/win_create.c */
    err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_win_create", 0);
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_win_create" );
    {
    /* src/mpi/rma/win_create.c */
    char s1[] = "pointer1";
    int i2 = 2;
    int i3 = 3;
    int i4 = MPI_INFO_NULL;
    int i5 = MPI_COMM_WORLD;
    char s6[] = "pointer6";
     err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_win_create", "**mpi_win_create %p %d %d %I %C %p", s1, i2, i3, i4, i5, s6 );
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_win_create %p %d %d %I %C %p" );
    }
    /* src/mpi/rma/win_wait.c */
    err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_win_wait", 0);
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_win_wait" );
    {
    /* src/mpi/rma/win_wait.c */
    int i1 = MPI_WIN_NULL;
     err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_win_wait", "**mpi_win_wait %W", i1 );
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_win_wait %W" );
    }
    /* src/mpi/rma/accumulate.c */
    err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_accumulate", 0);
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_accumulate" );
    {
    /* src/mpi/rma/accumulate.c */
    char s1[] = "pointer1";
    int i2 = 2;
    int i3 = MPI_INT;
    int i4 = 4;
    int i5 = 5;
    int i6 = 6;
    int i7 = MPI_INT;
    int i8 = MPI_SUM;
    int i9 = MPI_WIN_NULL;
     err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_accumulate", "**mpi_accumulate %p %d %D %d %d %d %D %O %W", s1, i2, i3, i4, i5, i6, i7, i8, i9 );
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_accumulate %p %d %D %d %d %d %D %O %W" );
    }
    /* src/mpi/rma/win_complete.c */
    err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_win_complete", 0);
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_win_complete" );
    {
    /* src/mpi/rma/win_complete.c */
    int i1 = MPI_WIN_NULL;
     err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_win_complete", "**mpi_win_complete %W", i1 );
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_win_complete %W" );
    }
    /* src/mpi/rma/alloc_mem.c */
    err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**allocmem", 0);
    ChkMsg( err, MPI_ERR_OTHER, "**allocmem" );
    /* src/mpi/rma/alloc_mem.c */
    err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_alloc_mem", 0);
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_alloc_mem" );
    {
    /* src/mpi/rma/alloc_mem.c */
    int i1 = 1;
    int i2 = MPI_INFO_NULL;
    char s3[] = "pointer3";
     err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_alloc_mem", "**mpi_alloc_mem %d %I %p", i1, i2, s3 );
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_alloc_mem %d %I %p" );
    }
    /* src/mpi/rma/win_get_name.c */
    err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_win_get_name", 0);
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_win_get_name" );
    {
    /* src/mpi/rma/win_get_name.c */