encode_keyed_failure Subroutine

private subroutine encode_keyed_failure(op, id, code, message, reply_header)

Encode a rank-0-only ok=false reply for a config-key read/write. Centralised so the same code shape is used by every SET/GET arm.

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	op
character(len=*),	intent(in)			::	id
character(len=*),	intent(in)			::	code
character(len=*),	intent(in)			::	message
integer(kind=int8),	intent(out),		allocatable	::	reply_header(:)