Alternate version of json_get_real_vec where vec
is real32
.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(json_core), | intent(inout) | :: | json | |||
type(json_value), | pointer | :: | me | |||
real(kind=real32), | intent(out), | dimension(:), allocatable | :: | vec |
subroutine json_get_real32_vec(json, me, vec) implicit none class(json_core),intent(inout) :: json type(json_value),pointer :: me real(real32),dimension(:),allocatable,intent(out) :: vec real(RK),dimension(:),allocatable :: tmp call json%get(me, tmp) if (allocated(tmp)) vec = real(tmp,real32) end subroutine json_get_real32_vec