to_string_r_sp Module Function

pure module function to_string_r_sp(value, format) result(string)

Format or transfer a real(sp) scalar as a string.

Arguments

Type IntentOptional Attributes Name
real(kind=sp), intent(in) :: value
character(len=*), intent(in), optional :: format

Return Value character(len=:), allocatable


Calls

proc~~to_string_r_sp~~CallsGraph proc~to_string_r_sp to_string_r_sp interface~pic_optional pic_optional proc~to_string_r_sp->interface~pic_optional proc~optional_char optional_char interface~pic_optional->proc~optional_char proc~optional_dp optional_dp interface~pic_optional->proc~optional_dp proc~optional_int32 optional_int32 interface~pic_optional->proc~optional_int32 proc~optional_int64 optional_int64 interface~pic_optional->proc~optional_int64 proc~optional_logical optional_logical interface~pic_optional->proc~optional_logical proc~optional_sp optional_sp interface~pic_optional->proc~optional_sp

Variables

Type Visibility Attributes Name Initial
character(len=buffer_len), private :: buffer
integer, private :: stat

Source Code

   pure module function to_string_r_sp(value, format) result(string)
      real(sp), intent(in) :: value
      character(len=*), intent(in), optional :: format
      character(len=:), allocatable :: string

      character(len=buffer_len) :: buffer
      integer :: stat

      write (buffer, '('//pic_optional(format, "g0")//')', iostat=stat) value
      if (stat == 0) then
         string = trim(buffer)
      else
         string = err_sym
      end if

   end function to_string_r_sp