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 |