Rewriting a line in standard out (screen)

[lunaai]

I've searched the web and this forum and could not find a solution. I want to update a counter to indicate progress of the code on the screen. I want the previous integer counter to be replaced with the current counter. Does anyone know how to do this in Fortran/Absoft Fortran?

Thanks.

[mecej4]

Here is an example:

Code: [Select]

[color=black]program counter
do i=1,100000
   j=i*(i+1)/2-3
   if(mod(i,10).eq.0)write(*,'(T1,2i10,A1)',ADVANCE='NO')i,j,achar(13)
end do
end program counter[/color]



[lunaai]

That doesn't seem to work for me. That just suppresses the "line feed", so everything is on the same line.