Re: same function giving different results

beliavsky_at_aol.com
Date: 01/06/05 

Date: 6 Jan 2005 06:47:55 -0800

Replace

integer :: i = 1

in your code with

integer :: i
i = 1

and it should work as you expect. Presently, the initialization i=1 in
your subroutine get_digits only occurs the first time it is called.