set_status_2d Subroutine

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

Fan out a success flag and message to optional outputs (mirrors 1D).

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