json_real_array Function

private pure function json_real_array(arr) result(str)

Render arr(:) as a comma-separated list of JSON numbers (no enclosing brackets).

Arguments

Type IntentOptional Attributes Name
real(kind=rk), intent(in) :: arr(:)

Return Value character(len=:), allocatable


Calls

proc~~json_real_array~~CallsGraph proc~json_real_array json_real_array proc~json_fmt_real json_fmt_real proc~json_real_array->proc~json_fmt_real

Called by

proc~~json_real_array~~CalledByGraph proc~json_real_array json_real_array proc~write_key_json write_key_json proc~write_key_json->proc~json_real_array proc~schema_render_json nml_schema_t%schema_render_json proc~schema_render_json->proc~write_key_json

Variables

Type Visibility Attributes Name Initial
integer, private :: i

Source Code

   pure function json_real_array(arr) result(str)
      !! Render `arr(:)` as a comma-separated list of JSON numbers (no
      !! enclosing brackets).
      real(rk), intent(in) :: arr(:)
      character(len=:), allocatable :: str
      integer :: i
      str = ""
      do i = 1, size(arr)
         if (i > 1) str = str//", "
         str = str//json_fmt_real(arr(i))
      end do
   end function json_real_array