topic Re: Show Progress in Intel® Fortran Compiler

Show Progress

brunocalado — Mon, 04 Jan 2010 00:37:12 GMT

Hi,

I'm trying to show the progress of my program. It looks like:

0.0/100 %

1.0/100 %

2.0/100 %

3.0/100 %

4.0/100 %

...

99.0/100 %

100.0/100 %

My problem is: I don't know a nice way to return the cursor back and rewrite the last line. I want to know if is there a way to return to last printed line, clear it and rewrite again.

I know how to do it using system("clear"). But it erases other messages...

Thank you

Re: Show Progress

Ron_Green — Mon, 04 Jan 2010 19:50:01 GMT

Quoting - brunocalado

Hi,

I'm trying to show the progress of my program. It looks like:

0.0/100 %

1.0/100 %

2.0/100 %

3.0/100 %

4.0/100 %

...

99.0/100 %

100.0/100 %

My problem is: I don't know a nice way to return the cursor back and rewrite the last line. I want to know if is there a way to return to last printed line, clear it and rewrite again.

I know how to do it using system("clear"). But it erases other messages...

Thank you

There is no standard Fortran method for doing what you want to do - to update a terminal output on the same line.

In the old days, we had control codes for VT100/VT220 terminals that would allow such a thing - but this was not standard Fortran. Rather, you send the control codes/sequences that were unique to those terminals to explicitly control the output location. I don't know of a way to do that for terminal windows - and then terminal windows are not consistent across different OSes.

ron

Re: Show Progress

Steven_L_Intel1 — Mon, 04 Jan 2010 20:00:49 GMT

As Ron says, there is no standard way to do it. But you can do some tricks with extensions. For example:

[plain]open (unit=6,carriagecontrol='fortran')
do i=1,10
write (6,'($,A,A,i2)') '+',char(13),i
end do[/plain]

Re: Show Progress

brunocalado — Wed, 13 Jan 2010 23:10:16 GMT

Quoting - Steve Lionel (Intel)

As Ron says, there is no standard way to do it. But you can do some tricks with extensions. For example:

[plain]open (unit=6,carriagecontrol='fortran')
do i=1,10
write (6,'($,A,A,i2)') '+',char(13),i
end do[/plain]

Thank you. You're the best!