提供一个通用函数 optval，可用于方便地实现子程序可选参数的回退值（规范）。
如果 x 是子程序的 optional 参数，则该子程序内部的表达式 optval(x, default) 会在 x 存在时评估为 x，否则评估为 default。
使用单个实际参数调用 optval 是错误的。
使用
接口
public interface optval
可选参数的回退值（规范）
-
private pure elemental function optval_rsp(x, default) result(y)
参数
类型 意图 可选 属性 名称 real(kind=sp), intent(in), optional :: x real(kind=sp), intent(in) :: default 返回值 real(kind=sp)
-
private pure elemental function optval_rdp(x, default) result(y)
参数
类型 意图 可选 属性 名称 real(kind=dp), intent(in), optional :: x real(kind=dp), intent(in) :: default 返回值 real(kind=dp)
-
private pure elemental function optval_iint8(x, default) result(y)
参数
类型 意图 可选 属性 名称 integer(kind=int8), intent(in), optional :: x integer(kind=int8), intent(in) :: default 返回值 integer(kind=int8)
-
private pure elemental function optval_iint16(x, default) result(y)
参数
类型 意图 可选 属性 名称 integer(kind=int16), intent(in), optional :: x integer(kind=int16), intent(in) :: default 返回值 integer(kind=int16)
-
private pure elemental function optval_iint32(x, default) result(y)
参数
类型 意图 可选 属性 名称 integer(kind=int32), intent(in), optional :: x integer(kind=int32), intent(in) :: default 返回值 integer(kind=int32)
-
private pure elemental function optval_iint64(x, default) result(y)
参数
类型 意图 可选 属性 名称 integer(kind=int64), intent(in), optional :: x integer(kind=int64), intent(in) :: default 返回值 integer(kind=int64)
-
private pure elemental function optval_csp(x, default) result(y)
参数
类型 意图 可选 属性 名称 complex(kind=sp), intent(in), optional :: x complex(kind=sp), intent(in) :: default 返回值 complex(kind=sp)
-
private pure elemental function optval_cdp(x, default) result(y)
参数
类型 意图 可选 属性 名称 complex(kind=dp), intent(in), optional :: x complex(kind=dp), intent(in) :: default 返回值 complex(kind=dp)
-
private pure elemental function optval_ll1(x, default) result(y)
参数
类型 意图 可选 属性 名称 logical, intent(in), optional :: x logical, intent(in) :: default 返回值 logical
-
private pure function optval_character(x, default) result(y)
参数
类型 意图 可选 属性 名称 character(len=*), intent(in), optional :: x character(len=*), intent(in) :: default 返回值 character(len=:), allocatable