tem_getoptvalordef_char Function

private function tem_getoptvalordef_char(value, default) result(res)

returns the optional value, if present, or the default.

this convenience routine encapsulates the check for an optional argument.

Arguments

Type	Intent	Optional	Attributes		Name
character(len=1),		optional		::	value	the optional value to check for
character(len=1)				::	default	the default to use when the optional value is not present.

Return Value character(len=1)

the result