errcode.c

fortran并行计算包

    {
    /* src/mpi/errhan/win_create_errhandler.c */
    char s1[] = "pointer1";
    char s2[] = "pointer2";
     err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_win_create_errhandler", "**mpi_win_create_errhandler %p %p", s1, s2 );
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_win_create_errhandler %p %p" );
    }
    /* src/mpi/errhan/errhandler_free.c */
    err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_errhandler_free", 0);
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_errhandler_free" );
    {
    /* src/mpi/errhan/errhandler_free.c */
    char s1[] = "pointer1";
     err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_errhandler_free", "**mpi_errhandler_free %p", s1 );
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_errhandler_free %p" );
    }
    /* src/mpi/errhan/add_error_string.c */
    err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_add_error_string", 0);
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_add_error_string" );
    {
    /* src/mpi/errhan/add_error_string.c */
    int i1 = 1;
    char s2[] = "string2";
     err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_add_error_string", "**mpi_add_error_string %d %s", i1, s2 );
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_add_error_string %d %s" );
    }
    /* src/mpi/errhan/add_error_code.c */
    err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**noerrcodes", 0);
    ChkMsg( err, MPI_ERR_OTHER, "**noerrcodes" );
    /* src/mpi/errhan/add_error_code.c */
    err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_add_error_code", 0);
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_add_error_code" );
    {
    /* src/mpi/errhan/add_error_code.c */
    int i1 = 1;
    char s2[] = "pointer2";
     err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_add_error_code", "**mpi_add_error_code %d %p", i1, s2 );
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_add_error_code %d %p" );
    }
    /* src/mpi/errhan/comm_call_errhandler.c */
    err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_comm_call_errhandler", 0);
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_comm_call_errhandler" );
    {
    /* src/mpi/errhan/comm_call_errhandler.c */
    int i1 = MPI_COMM_WORLD;
    int i2 = 2;
     err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_comm_call_errhandler", "**mpi_comm_call_errhandler %C %d", i1, i2 );
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_comm_call_errhandler %C %d" );
    }
    /* src/mpi/topo/cart_coords.c */
    err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**notcarttopo", 0);
    ChkMsg( err, MPI_ERR_OTHER, "**notcarttopo" );
    /* src/mpi/topo/cart_coords.c */
    err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**dimsmany", 0);
    ChkMsg( err, MPI_ERR_OTHER, "**dimsmany" );
    {
    /* src/mpi/topo/cart_coords.c */
    int i1 = 1;
    int i2 = 2;
     err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**dimsmany", "**dimsmany %d %d", i1, i2 );
    ChkMsg( err, MPI_ERR_OTHER, "**dimsmany %d %d" );
    }
    /* src/mpi/topo/cart_coords.c */
    err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_cart_coords", 0);
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_cart_coords" );
    {
    /* src/mpi/topo/cart_coords.c */
    int i1 = MPI_COMM_WORLD;
    int i2 = 2;
    int i3 = 3;
    char s4[] = "pointer4";
     err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_cart_coords", "**mpi_cart_coords %C %d %d %p", i1, i2, i3, s4 );
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_cart_coords %C %d %d %p" );
    }
    /* src/mpi/topo/graph_map.c */
    err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**graphnnodes", 0);
    ChkMsg( err, MPI_ERR_OTHER, "**graphnnodes" );
    /* src/mpi/topo/graph_map.c */
    err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_graph_map", 0);
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_graph_map" );
    {
    /* src/mpi/topo/graph_map.c */
    int i1 = MPI_COMM_WORLD;
    int i2 = 2;
    char s3[] = "pointer3";
    char s4[] = "pointer4";
    char s5[] = "pointer5";
     err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_graph_map", "**mpi_graph_map %C %d %p %p %p", i1, i2, s3, s4, s5 );
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_graph_map %C %d %p %p %p" );
    }
    /* src/mpi/topo/graph_get.c */
    err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**notgraphtopo", 0);
    ChkMsg( err, MPI_ERR_OTHER, "**notgraphtopo" );
    /* src/mpi/topo/graph_get.c */
    err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**argrange", 0);
    ChkMsg( err, MPI_ERR_OTHER, "**argrange" );
    {
    /* src/mpi/topo/graph_get.c */
    char s1[] = "string1";
    int i2 = 2;
    int i3 = 3;
     err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**argrange", "**argrange %s %d %d", s1, i2, i3 );
    ChkMsg( err, MPI_ERR_OTHER, "**argrange %s %d %d" );
    }
    /* src/mpi/topo/graph_get.c */
    err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_graph_get", 0);
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_graph_get" );
    {
    /* src/mpi/topo/graph_get.c */
    int i1 = MPI_COMM_WORLD;
    int i2 = 2;
    int i3 = 3;
    char s4[] = "pointer4";
    char s5[] = "pointer5";
     err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_graph_get", "**mpi_graph_get %C %d %d %p %p", i1, i2, i3, s4, s5 );
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_graph_get %C %d %d %p %p" );
    }
    /* src/mpi/topo/graph_nbr.c */
    err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**rank", 0);
    ChkMsg( err, MPI_ERR_OTHER, "**rank" );
    {
    /* src/mpi/topo/graph_nbr.c */
    int i1 = 1;
    int i2 = 2;
     err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**rank", "**rank %d %d", i1, i2 );
    ChkMsg( err, MPI_ERR_OTHER, "**rank %d %d" );
    }
    /* src/mpi/topo/graph_nbr.c */
    err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_graph_neighbors", 0);
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_graph_neighbors" );
    {
    /* src/mpi/topo/graph_nbr.c */
    int i1 = MPI_COMM_WORLD;
    int i2 = 2;
    int i3 = 3;
    char s4[] = "pointer4";
     err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_graph_neighbors", "**mpi_graph_neighbors %C %d %d %p", i1, i2, i3, s4 );
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_graph_neighbors %C %d %d %p" );
    }
    /* src/mpi/topo/cart_sub.c */
    err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**notopology", 0);
    ChkMsg( err, MPI_ERR_OTHER, "**notopology" );
    /* src/mpi/topo/cart_sub.c */
    err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_cart_sub", 0);
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_cart_sub" );
    {
    /* src/mpi/topo/cart_sub.c */
    int i1 = MPI_COMM_WORLD;
    char s2[] = "pointer2";
    char s3[] = "pointer3";
     err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_cart_sub", "**mpi_cart_sub %C %p %p", i1, s2, s3 );
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_cart_sub %C %p %p" );
    }
    /* src/mpi/topo/graphnbrcnt.c */
    err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_graph_neighbors_count", 0);
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_graph_neighbors_count" );
    {
    /* src/mpi/topo/graphnbrcnt.c */
    int i1 = MPI_COMM_WORLD;
    int i2 = 2;
    char s3[] = "pointer3";
     err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_graph_neighbors_count", "**mpi_graph_neighbors_count %C %d %p", i1, i2, s3 );
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_graph_neighbors_count %C %d %p" );
    }
    /* src/mpi/topo/cart_rank.c */
    err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**cartcoordinvalid", 0);
    ChkMsg( err, MPI_ERR_OTHER, "**cartcoordinvalid" );
    {
    /* src/mpi/topo/cart_rank.c */
    int i1 = 1;
    int i2 = 2;
    int i3 = 3;
     err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**cartcoordinvalid", "**cartcoordinvalid %d %d %d", i1, i2, i3 );
    ChkMsg( err, MPI_ERR_OTHER, "**cartcoordinvalid %d %d %d" );
    }
    /* src/mpi/topo/cart_rank.c */
    err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_cart_rank", 0);
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_cart_rank" );
    {
    /* src/mpi/topo/cart_rank.c */
    int i1 = MPI_COMM_WORLD;
    char s2[] = "pointer2";
    char s3[] = "pointer3";
     err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_cart_rank", "**mpi_cart_rank %C %p %p", i1, s2, s3 );
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_cart_rank %C %p %p" );
    }
    /* src/mpi/topo/cart_create.c */
    err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**cartdim", 0);
    ChkMsg( err, MPI_ERR_OTHER, "**cartdim" );
    {
    /* src/mpi/topo/cart_create.c */
    int i1 = 1;
    int i2 = 2;
     err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**cartdim", "**cartdim %d %d", i1, i2 );
    ChkMsg( err, MPI_ERR_OTHER, "**cartdim %d %d" );
    }
    /* src/mpi/topo/cart_create.c */
    err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_cart_create", 0);
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_cart_create" );
    {
    /* src/mpi/topo/cart_create.c */
    int i1 = MPI_COMM_WORLD;
    int i2 = 2;
    char s3[] = "pointer3";
    char s4[] = "pointer4";
    int i5 = 5;
    char s6[] = "pointer6";
     err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_cart_create", "**mpi_cart_create %C %d %p %p %d %p", i1, i2, s3, s4, i5, s6 );
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_cart_create %C %d %p %p %d %p" );
    }
    /* src/mpi/topo/cart_create.c */
    err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**dims", 0);
    ChkMsg( err, MPI_ERR_OTHER, "**dims" );
    {
    /* src/mpi/topo/cart_create.c */
    int i1 = 1;
     err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**dims", "**dims %d", i1 );
    ChkMsg( err, MPI_ERR_OTHER, "**dims %d" );
    }
    /* src/mpi/topo/graphdimsget.c */
    err = MPIR_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE, "errcode::main", __LINE__, MPI_ERR_OTHER, "**mpi_graphdims_get", 0);
    ChkMsg( err, MPI_ERR_OTHER, "**mpi_graphdims_get" );
    {