int2str Function

private function int2str(i) result(s)

Convert an integer to a string. Works for up to 256 digits.

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: i

integer to convert

Return Value character(len=:), allocatable

string result


Called by

proc~~int2str~~CalledByGraph proc~int2str int2str proc~adjust_search_direction nlesolver_type%adjust_search_direction proc~adjust_search_direction->proc~int2str proc~set_status nlesolver_type%set_status proc~adjust_search_direction->proc~set_status proc~adjust_x_for_bounds nlesolver_type%adjust_x_for_bounds proc~adjust_x_for_bounds->proc~int2str proc~set_status->proc~int2str 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~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~adjust_x_for_bounds proc~nlesolver_solver->proc~set_status proc~simple_step simple_step proc~simple_step->proc~adjust_search_direction

Source Code

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