fill send buffers and start sending
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(tem_communication_type), | intent(inout) | :: | send | |||
| type(tem_communication_type), | intent(inout) | :: | recv | |||
| integer(kind=long_k), | intent(inout) | :: | state(*) | |||
| integer, | intent(in) | :: | message_flag | |||
| integer(kind=long_k), | intent(in), | optional | :: | send_state(*) | ||
| integer, | intent(in) | :: | comm | mpi communicator |
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer, | private | :: | iproc | ||||
| integer, | private | :: | ival | ||||
| integer, | private | :: | finproc | ||||
| integer, | private | :: | status(mpi_status_size,max(send%nprocs,1)) | ||||
| integer, | private | :: | ierr | ||||
| integer, | private | :: | nsendvals | ||||
| integer, | private | :: | nrecvvals |