json_get_real32_vec Subroutine

private subroutine json_get_real32_vec(json, me, vec)

Alternate version of json_get_real_vec where vec is real32.

Type Bound

json_core

Arguments

Type IntentOptional Attributes Name
class(json_core), intent(inout) :: json
type(json_value), pointer :: me
real(kind=real32), intent(out), dimension(:), allocatable :: vec

Source Code

    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