Dear all,

I have to use a send_request in a MPI_WAITALL.
Here the strange things:

If I use at the begging of the SUBROUTINE:

INTEGER :: send_request(3), recv_request(3)

I have no problem, but if I use

USE COMONVARS,ONLY : nMsg
with nMsg=3

and after that I declare

INTEGER :: send_request(nMsg), recv_request(nMsg), I get the following
error:

[Lap] *** An error occurred in MPI_Waitall
[Lap] *** reported by process [139726485585921,0]
[Lap] *** on communicator MPI_COMM_WORLD
[Lap] *** MPI_ERR_REQUEST: invalid request
[Lap] *** MPI_ERRORS_ARE_FATAL (processes in this communicator will now
abort,
[Lap] ***    and potentially your MPI job)
forrtl: error (78): process killed (SIGTERM)

Someone could please explain to me where I am wrong?

Thanks

Diego

Reply via email to