Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(amap_t), | intent(in) | :: | this | |||
character(len=*), | intent(in) | :: | kv |
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
type(value_t), | public | :: | s |
function get_value_amap_t(this, kv) result(r)
class(amap_t), intent(in) :: this
character(len=*), intent(in) :: kv
real(8) :: r
type(value_t) :: s
s = this%get(kv)
r = s%v
end function get_value_amap_t