exchange the communication mes with a non-blocking mpi communication using preposted irecv and isend with a waitall
values for send me must have been copied from the actual state array start receive communications
start the sending communications wait for above communications to complete
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(tem_communication_type), | intent(inout) | :: | send | |||
type(tem_communication_type), | intent(inout) | :: | recv | |||
integer, | intent(inout) | :: | state(*) | |||
integer, | intent(in) | :: | message_flag | |||
integer, | intent(in), | optional | :: | send_state(*) | ||
integer, | intent(in) | :: | comm | mpi communicator |
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
integer, | private | :: | status(mpi_status_size,max(recv%nprocs,send%nprocs)) | ||||
integer, | private | :: | ierr | ||||
integer, | private | :: | iproc |