14 integer num, ichar_cnt, idig, icode
22 leading_digit = .true.
33 if ((idig .ne. 0) .or. (.not.leading_digit))
then
34 ichar_cnt = ichar_cnt + 1
36 text(ichar_cnt:ichar_cnt) = char(icode)
37 num = num - (idig*10**i)
38 leading_digit = .false.
subroutine int_to_text(int, text)