status_type_to_array Function

private pure function status_type_to_array(status_type) result(status_array)

Arguments

Type IntentOptional Attributes Name
type(MPI_Status), intent(in) :: status_type

Return Value integer, (MPI_STATUS_SIZE)


Source Code

   pure function status_type_to_array(status_type) result(status_array)
      type(MPI_Status), intent(in) :: status_type
      integer :: status_array(MPI_STATUS_SIZE)

      status_array(1) = status_type%MPI_SOURCE
      status_array(2) = status_type%MPI_TAG
      status_array(3) = status_type%MPI_ERROR
      status_array(4:6) = status_type%internal(1:3)
   end function status_type_to_array