tem_getOptValOrDef

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

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

Arguments

Type	Intent	Optional	Attributes		Name
logical,		optional		::	value	the optional value to check for
logical				::	default	the default to use when the optional value is not present.

Return Value logical

the result

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

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

Arguments

Type	Intent	Optional	Attributes		Name
integer,		optional		::	value	the optional value to check for
integer				::	default	the default to use when the optional value is not present.

Return Value integer

the result

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

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

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=long_k),		optional		::	value	the optional value to check for
integer(kind=long_k)				::	default	the default to use when the optional value is not present.

Return Value integer(kind=long_k)

the result

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

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

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=rk),		optional		::	value	the optional value to check for
real(kind=rk)				::	default	the default to use when the optional value is not present.

Return Value real(kind=rk)

the result

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

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

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

tem_getOptValOrDef Interface

Contents

Module Procedures

public interface tem_getOptValOrDef

Module Procedures

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

Arguments

Return Value logical

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

Arguments

Return Value integer

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

Arguments

Return Value integer(kind=long_k)

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

Arguments

Return Value real(kind=rk)

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

Arguments

Return Value character(len=1)