set_status Subroutine

private subroutine set_status(ok, err, is_ok, message)

Fan out a success flag and optional message to caller-provided outputs.

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(in)			::	ok
character(len=*),	intent(in)			::	err
logical,	intent(out),	optional		::	is_ok
character(len=*),	intent(out),	optional		::	message