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.

Arguments

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

Contents

Source Code


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