Shared read epilogue: ONE collective decision point (the only par_lor of
the read path's conclusion); returns the agreed failure flag so callers
write if (conclude_read(...)) return. The failing rank reports its own
err, other ranks the generic text; error-stop fallback when the caller
passed no status arguments. COLLECTIVE — every rank must call.
Status pair semantics as in agree_outcome: assigned only on failure,
caller presets preserved on success (intent(inout)).
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| logical, | intent(in) | :: | local_ok | |||
| character(len=*), | intent(in) | :: | err | |||
| character(len=*), | intent(in) | :: | generic_text | |||
| logical, | intent(inout), | optional | :: | is_ok | ||
| character(len=*), | intent(inout), | optional | :: | message |