tem_getoptvalordef_long Function

private function tem_getoptvalordef_long(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 IntentOptional 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