integer_to_string Function

private pure function integer_to_string(i) result(s)

Integer to allocatable string.

Arguments

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

Return Value character(len=:), allocatable


Called by

proc~~integer_to_string~2~~CalledByGraph proc~integer_to_string~2 dag_module::integer_to_string proc~dag_generate_digraph dag_module::dag%dag_generate_digraph proc~dag_generate_digraph->proc~integer_to_string~2 proc~dag_set_vertex_info dag_module::dag%dag_set_vertex_info proc~dag_set_vertex_info->proc~integer_to_string~2 proc~dag_save_digraph dag_module::dag%dag_save_digraph proc~dag_save_digraph->proc~dag_generate_digraph program~dag_example dag_example program~dag_example->proc~dag_set_vertex_info program~dag_example->proc~dag_save_digraph program~problem_25 problem_25 program~problem_25->proc~dag_set_vertex_info program~problem_25->proc~dag_save_digraph

Source Code

    pure function integer_to_string(i) result(s)

    implicit none

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

    integer :: istat

    allocate( character(len=64) :: 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