char_array_to_int Function

private pure function char_array_to_int(str_array) result(i)

Character array to integer routine

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(in), dimension(:) :: str_array

example ['1','3'] --> 13

Return Value integer


Calls

proc~~char_array_to_int~~CallsGraph proc~char_array_to_int char_array_to_int proc~char_to_int char_to_int proc~char_array_to_int->proc~char_to_int

Called by

proc~~char_array_to_int~~CalledByGraph proc~char_array_to_int char_array_to_int interface~int int interface~int->proc~char_array_to_int

Source Code

    pure function char_array_to_int(str_array) result(i)
        character(len=1),dimension(:),intent(in) :: str_array !! example ['1','3'] --> 13
        integer :: i
        character(len=:),allocatable :: str
        integer :: k
        str = ''
        do k = 1, size(str_array)
            str = str//str_array(k)
        end do
        i = char_to_int(str)
    end function char_array_to_int