fmt_real Function

private pure function fmt_real(v) result(str)

Format a real in a stable, namelist-valid exponential form.

Arguments

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

Return Value character(len=:), allocatable


Called by

proc~~fmt_real~~CalledByGraph proc~fmt_real fmt_real proc~real_array_default_string nml_real_array_key_t%real_array_default_string proc~real_array_default_string->proc~fmt_real proc~real_array_value_string nml_real_array_key_t%real_array_value_string proc~real_array_value_string->proc~fmt_real proc~real_default_string nml_real_key_t%real_default_string proc~real_default_string->proc~fmt_real proc~real_parse nml_real_key_t%real_parse proc~real_parse->proc~fmt_real proc~real_value_string nml_real_key_t%real_value_string proc~real_value_string->proc~fmt_real

Variables

Type Visibility Attributes Name Initial
character(len=32), private :: buf

Source Code

   pure function fmt_real(v) result(str)
      !! Format a real in a stable, namelist-valid exponential form.
      real(rk), intent(in) :: v
      character(len=:), allocatable :: str
      character(len=32) :: buf
      write (buf, "(E18.10)") v
      str = trim(adjustl(buf))
   end function fmt_real