integer_to_string Function

private pure function integer_to_string(i) result(s)

Integer to allocatable string.

Arguments

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

Return Value character(len=:), allocatable


Called by

proc~~integer_to_string~~CalledByGraph proc~integer_to_string dag_module::integer_to_string proc~dag_generate_digraph dag_module::dag%dag_generate_digraph proc~dag_generate_digraph->proc~integer_to_string proc~dag_set_vertices dag_module::dag%dag_set_vertices proc~dag_set_vertices->proc~integer_to_string proc~dag_save_digraph dag_module::dag%dag_save_digraph proc~dag_save_digraph->proc~dag_generate_digraph

Source Code

    pure function integer_to_string(i) result(s)

    integer(ip),intent(in) :: i
    character(len=:),allocatable :: s

    integer(ip) :: istat

    allocate( character(len=MAX_INT_STR_LEN) :: s ) ! should be big enough
    write(s,fmt='(ss,I0)',iostat=istat) i
    if (istat==0) then
        s = trim(adjustl(s))
    else
        s = '***'
    end if

    end function integer_to_string