LAM/MPI logo

LAM/MPI General User's Mailing List Archives

  |   Home   |   Download   |   Documentation   |   FAQ   |   all just in this list

From: Adams, Samuel D Contr AFRL/HEDR (Samuel.Adams_at_[hidden])
Date: 2007-05-09 12:12:01


I am getting this error when I run my code with LAM. I was using this
code with another system that was running with a slightly older MPICH
and didn't get any errors like this. I would seem there is something
with the way I am sending and receiving slices. Can you see anything
obviously wrong with the way I am doing this?

* Starting updates
* cycle 1
MPI_Recv: invalid tag argument: Invalid argument (rank 0,
MPI_COMM_WORLD)
MPI_Send: invalid tag argument: Invalid argument: out of range (rank 1,
MPI_COMM_WORLD)
Rank (0, MPI_COMM_WORLD): Call stack within LAM:
Rank (1, MPI_COMM_WORLD): Call stack within LAM:
Rank (1, MPI_COMM_WORLD): - MPI_Send()
Rank (1, MPI_COMM_WORLD): - main()
Rank (0, MPI_COMM_WORLD): - MPI_Recv()
Rank (0, MPI_COMM_WORLD): - main()
------------------------------------------------------------------------
-----
One of the processes started by mpirun has exited with a nonzero exit
code. This typically indicates that the process finished in error.
If your process did not finish in error, be sure to include a "return
0" or "exit(0)" in your C code before exiting the application.

PID 22373 failed on node n0 (127.0.0.1) with exit status 22.
------------------------------------------------------------------------
-----
mpirun failed with exit status 22

===========================code=========================================
=
void hSndRcv(){
        if(my_rank != comm_size-1){
                MPI_Send(h_x+Z_OFFSET(my_dim_z),
                        (dim_x + 2*pml)*(dim_y + 2*pml), \
                        MPI_FLOAT, \
                        my_rank+1, \
                        3, \
                        MPI_COMM_WORLD);
                MPI_Send(h_y+Z_OFFSET(my_dim_z),
                        (dim_x + 2*pml)*(dim_y + 2*pml), \
                        MPI_FLOAT, \
                        my_rank+1, \
                        4, \
                        MPI_COMM_WORLD);
                MPI_Send(h_z+Z_OFFSET(my_dim_z),
                        (dim_x + 2*pml)*(dim_y + 2*pml), \
                        MPI_FLOAT, \
                        my_rank+1, \
                        5, \
                        MPI_COMM_WORLD);
        }
        if(my_rank){
                MPI_Recv(h_x,
                        (dim_x + 2*pml)*(dim_y + 2*pml), \
                        MPI_FLOAT, \
                        my_rank-1, \
                        3, \
                        MPI_COMM_WORLD, \
                        status);
                MPI_Recv(h_y,
                        (dim_x + 2*pml)*(dim_y + 2*pml), \
                        MPI_FLOAT, \
                        my_rank-1, \
                        4, \
                        MPI_COMM_WORLD, \
                        status);
                MPI_Recv(h_z,
                        (dim_x + 2*pml)*(dim_y + 2*pml), \
                        MPI_FLOAT, \
                        my_rank-1, \
                        5, \
                        MPI_COMM_WORLD, \
                        status);
        }
}

Sam Adams
General Dynamics - Network Systems
Phone: 210.536.5945