real_array_value_string Function

private function real_array_value_string(this) result(str)

Type Bound

nml_real_array_key_t

Arguments

Type IntentOptional Attributes Name
class(nml_real_array_key_t), intent(in) :: this

Return Value character(len=:), allocatable


Calls

proc~~real_array_value_string~~CallsGraph proc~real_array_value_string nml_real_array_key_t%real_array_value_string proc~fmt_real fmt_real proc~real_array_value_string->proc~fmt_real

Variables

Type Visibility Attributes Name Initial
integer, private :: i

Source Code

   function real_array_value_string(this) result(str)
      class(nml_real_array_key_t), intent(in) :: this
      character(len=:), allocatable :: str
      integer :: i
      str = ""
      do i = 1, size(this%tgt)
         if (i > 1) str = str//", "
         str = str//fmt_real(this%tgt(i))
      end do
   end function real_array_value_string