topic If you have a console driver in Intel® Fortran Compiler

How to overprint in a console application?

dboggs — Tue, 01 Dec 2015 07:20:14 GMT

I want my console application to display a varying number at the same location in the current output line, i.e. overprint it. Example:

DO I = 1, n
! do something
WRITE (*, '(A, I3)') 'Loop count = ', n
END DO

IOW I don't want each loop count report to create a new line (thus scrolling out of the window when n is large)--I want it to keep updating the same line. I know how to do this using Quickwin or API routines, but I desire standard Fortran.

Once upon a time I could accomplish this using carriage control: the output string would be '+Loop count = ', n. But this awkwardly requires the compiler switch '/ccdefault:fortran'. Worse, I understand that carriage control has been eliminated from standard Fortran.

So, how can I do this now?

If you just try:

reidar — Tue, 01 Dec 2015 10:45:14 GMT

If you just try:

WRITE (*, '(\,A, I3)') 'Loop count = ', n

Or check documentation ->FORMAT

Try this:

mecej4 — Tue, 01 Dec 2015 11:11:08 GMT

Try this:

program overwrite
implicit none
integer :: i,j 
character :: bsp = char(8)
!
write(*,10,advance='no')10000
do i=10001,99999
   write(*,20,advance='no')(bsp,j=1,5),i
end do
10 format('Counter: ',I5)
20 format(5A1,I5)
end program

You could also open the unit

Steven_L_Intel1 — Tue, 01 Dec 2015 12:55:43 GMT

You could also open the unit with CARRIAGECONTROL='FORTRAN', but you're right that Fortran carriage control is not part of the current standard. mecej4's approach will generally work, though. If you don't require keeping the text at the beginning you could output a single CR (char(13)).

Thanks for these suggestions.

dboggs — Tue, 01 Dec 2015 17:12:34 GMT

Thanks for these suggestions.

reidar: This doesn't do what I want. the backslash simply causes the output to continue on the same line without a CR/LF; the line simply grows longer and longer.

mecej4: This "sort of" works, and the backspace character is a good idea. However, with your code as written the output does not appear until the program completes. If I replace "advance='no'" with "\" or "$" (the older styles of doing the same thing) then it works OK, i.e. the output line is actually displayed each time through the loop. I do not understand this, I always thought that backslash editing, dollar editing, and advance=no were equivalent. I have tried several variations on these formats and conclude they are not. (Perhaps there is some obscure issue lingering in my test program?)

Here's my code snipped that works:

WRITE (*, '(A, $)') ' Loop count = '
bsp = CHAR (8)
DO i = 1, n
WRITE (*, '(3A1, I3, $)') (bsp, j=1,3), i
END DO
! Note that constants '3' must agree in number and be sufficiently large to accommodate the size of i

So, I am still faced with resorting to non-standard IVF extensions to solve this problem.

Which compiler version are

Steven_L_Intel1 — Tue, 01 Dec 2015 17:26:41 GMT

Which compiler version are you using? I ran mecej4's code and it definitely updated while the program was running. Several versions ago it might not have.

An alternative would be to use nonadvancing output to create a sort of "progress bar".

I have two computers. One

dboggs — Tue, 01 Dec 2015 21:35:18 GMT

I have two computers. One uses 2013 sp1.3.202. One uses 2011.11.344.

The setting ADVANCE='NO' doesn't work correctly on either one--the output doesn't appear until a subsequent write to the window occurs. A correct result appears on the final screen, but it is no good for real-time tracking.

Try by inserting a FLUSH

LRaim — Tue, 01 Dec 2015 21:43:54 GMT

Try by inserting a FLUSH statement after the WRITE statement.

A good suggestion, but it

dboggs — Tue, 01 Dec 2015 22:21:03 GMT

A good suggestion, but it doesn't help.

Moreover, it's a little awkward. This being a console application, I have all the WRITE's going to unit *. FLUSH () requires a unit argument, it doesn't accept FLUSH (*). I tried opening a window to unit 1 and directing all of the writing to that. The program runs the same and appears the same as the original version using unit (*). Then, adding FLUSH (1) was observed to have no effect.

Are you using something other

mecej4 — Tue, 01 Dec 2015 23:34:17 GMT

Are you using something other than the default buffering on output to the console? Is the counter display being done on the standard command line console or in a Windows program?

The program in #3 works even with CVF6.6 and Gfortran 4.9.

I checked some old stuff,

reidar — Wed, 02 Dec 2015 09:37:31 GMT

I checked some old stuff, what used to work with CVF was a "+" sign in column 1, so you should try:

WRITE (*, '('+',A, I3)') 'Loop count = ', n

I think that requires

Arjen_Markus — Wed, 02 Dec 2015 09:42:38 GMT

I think that requires cooperation from the console/DOS-box: it is an ancient type of carriage control, dating from the time of printers with endless papersheets.It may or may not still work - you simply have no way of ensuring it just from the Fortran program.

No, that simply requires

Steven_L_Intel1 — Wed, 02 Dec 2015 17:19:24 GMT

No, that simply requires opening the file with CARRIAGECONTROL='FORTRAN'. Even in CVF that was not the default.

The solution based on

dboggs — Wed, 02 Dec 2015 22:44:06 GMT

The solution based on carriage control has already been covered in this thread, starting with the very first message. It remains the most convenient way to do it. The complaint is that it was removed from the standard (in 2003) and hence only works through sympathisers of compilers (like Intel) who continue to offer it through extensions. In Intel's case, that would be using a non-standard compiler switch or a non-standard file open option, both as described above.

In the past, when the standards people removed a feature, a work-around or modern replacement was described. Not so in this case. It is awkward to do using strictly standard features. The feature appears to have been removed because of the demise of line printers. I think this was a bad assumption, that "carriage control" was not useful for anything else.

In kernel32.f90 you will find

jimdempseyatthecove — Wed, 02 Dec 2015 22:54:49 GMT

In kernel32.f90 you will find SetConsoleCursorPosition and GetConsoleScreenBufferInfo.

You might want to write generic wrappers, perhaps GOTOXY and WHEREXY that use these functions on Windows, and uses similar functions on Linux or other operating system.

Jim Dempsey

If you have a console driver

mecej4 — Wed, 02 Dec 2015 23:19:57 GMT

If you have a console driver that supports ANSI cursor positioning sequences, such as the one that comes with Cygwin+Gfortran on Windows, or one of the many console programs such as Konsole on Linus, you can try the following:

program overwrite
implicit none
integer :: i,j
character :: esc = char(27)
!
write(*,10,advance='no') esc,10000
do i=10001,100000
   write(*,20,advance='no') esc,i
end do
10 format(A1,'[13;30HCounter : ',I6)
20 format(A1,'[13;40H',I6)

end program

https://github.com/adoxa

nichols__john — Thu, 03 Dec 2015 01:28:11 GMT

https://github.com/adoxa/ansicon

It appears this is a good method

I'm unsure of that - isn't

Steven_L_Intel1 — Thu, 03 Dec 2015 01:40:39 GMT

I'm unsure of that - isn't this a separate program you have to load?

Yes it is - it is one method

nichols__john — Thu, 03 Dec 2015 02:26:35 GMT

Yes it is - it is one method that does not look that bad -- there are no good solutions.

It is listed as the currently preferred solution at a number of major help sites and then you run your program in the window.

My proposal #11 works well if

reidar — Thu, 03 Dec 2015 11:13:01 GMT

My proposal #11 works well if you set project -> Properties ->Compability -> VMS = Yes.

integer i,j,n

character*1 bsp

n=1000

WRITE (*, '(A)') ' Loop count = '

WRITE (*, '(A)') ' '

bsp = CHAR (8)

DO i = 1, n

! WRITE (*, '(3A1, I3, $)') (bsp, j=1,3), i

WRITE (*, "('+',3A1, I4)") (bsp, j=1,3), i

END DO

pause

end