real2str Function

private function real2str(r) result(s)

Convert a real to a string. Works for up to 256 digits.

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: r

real to convert

Return Value character(len=:), allocatable

string result


Called by

proc~~real2str~~CalledByGraph proc~real2str real2str proc~set_status nlesolver_type%set_status proc~set_status->proc~real2str proc~adjust_search_direction nlesolver_type%adjust_search_direction proc~adjust_search_direction->proc~set_status proc~initialize_nlesolver_variables nlesolver_type%initialize_nlesolver_variables proc~initialize_nlesolver_variables->proc~set_status proc~nlesolver_solver nlesolver_type%nlesolver_solver proc~nlesolver_solver->proc~set_status proc~backtracking_linesearch backtracking_linesearch proc~backtracking_linesearch->proc~adjust_search_direction proc~exact_linesearch exact_linesearch proc~exact_linesearch->proc~adjust_search_direction proc~fixed_point_linesearch fixed_point_linesearch proc~fixed_point_linesearch->proc~adjust_search_direction proc~simple_step simple_step proc~simple_step->proc~adjust_search_direction

Source Code

    function real2str(r) result(s)
        real(wp), intent(in) :: r !! real to convert
        character(len=:),allocatable :: s !! string result
        character(len=256) :: tmp !! temp string
        integer :: iostat !! write `iostat` code
        write(tmp,fmt=*,iostat=iostat) r
        if (iostat/=0) then
            s = '****'
        else
            s = trim(adjustl(tmp))
        end if
    end function real2str