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 | |||
real(kind=rk), | intent(inout) | :: | state(*) | |||
integer, | intent(in) | :: | message_flag | |||
real(kind=rk), | 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 |