subroutinebar_textpure

pure subroutine bar_text(steps, size, width, filled, unfilled, percent)
    integer, intent(in) :: steps        !! how many steps are done
    integer, intent(in) :: size         !! how many there are
    integer, intent(in) :: width        !! the width of the bar
    integer, intent(out) :: filled      !! how much of the bar is filled
    integer, intent(out) :: unfilled    !! how much of it is not
    integer, intent(out) :: percent     !! the percentage done

    filled = width
    percent = 100
    if (size > 0) then
        filled = int(min(1.0, real(steps)/real(size))*width)
        percent = int(min(1.0, real(steps)/real(size))*100)
    end if
    unfilled = width - filled
end subroutine bar_text