Append a completed fragment result to the current outbound batch.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer(kind=int64), | intent(in) | :: | item_idx | |||
| type(calculation_result_t), | intent(in) | :: | result | |||
| integer(kind=int32), | intent(inout) | :: | batch_count | |||
| integer(kind=int64), | intent(inout) | :: | batch_ids(:) | |||
| type(calculation_result_t), | intent(inout) | :: | batch_results(:) |
subroutine append_result_to_batch(item_idx, result, batch_count, batch_ids, batch_results) !! Append a completed fragment result to the current outbound batch. integer(int64), intent(in) :: item_idx type(calculation_result_t), intent(in) :: result integer(int32), intent(inout) :: batch_count integer(int64), intent(inout) :: batch_ids(:) type(calculation_result_t), intent(inout) :: batch_results(:) batch_count = batch_count + 1 batch_ids(batch_count) = item_idx batch_results(batch_count) = result end subroutine append_result_to_batch