subroutineadd_intrecursiveprivate
recursive subroutine add_int(b, value)
Write value, not negative, which may be too large for int_text.
Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
| b | type(buffer_t) | inout | the HTML | |
| value | integer(kind=int64) | in | the number |
Calls
Source
Show the code
recursive subroutine add_int(b, value)
type(buffer_t), intent(inout) :: b !! the HTML
integer(int64), intent(in) :: value !! the number
if (value >= 10) call add_int(b, value/10)
call add(b, achar(iachar('0') + int(mod(value, 10_int64))))
end subroutine add_int