Fortran Fortran 90 Replace Text on Screen - Andy's Question

[Choragos]

Hello. In producing screen output from Fortran, I use the write statement. Back in the day, there was a way to use the FORMAT statement to allow you to replace text on the screen with different text. For example, counting up percentage complete of a process or something like that.

Well, Fortran 90 put the nix on that and now I don't know how to do it. For all of us who don't want to let go of our DOS prompts (or who sit in Linux command lines), is there a way to accomplish this task?

Thanks
Andy

 

[minger]

I've never heard of this. What was the procedure to do it in previous versions?

 

[Choragos]

It was buried in the FORMAT statement. I believe this is how it was done (I had to change the code and I believe this was the original version):

15 format('+Processing decay number ',I6)

I believe it's that '+' sitting there. If that doesn't make any sense I'll go on the hunt and make sure this is the original version.

 

[mathmate]

I believe it is called the non-advancing I/O in Fortran 90.
You would use this to prompt for input on the same line after displaying a text, or as you said, to give the percentage completion.
It would typically take the form:

WRITE (*,*, ADVANCE='NO') ...

Try this link or google for other articles:
http://www.pcc.qub.ac.uk/tec/courses/f90/stu-notes/F90_notesMIF_9.html#HEADING122

 

[Choragos]

If I'm not mistaken, that only prevents advancement to the next line; it does not overwrite what is already there. I'll check it though and post results. Thanks!

 

[mathmate]

Sorry I didn't see you post before sending out mine.
The '+' character was used for printer control in the good old days where we have a $35000 line printer but no screen. The printer control will simply be displayed on the screen but won't halt the advance of the cursor. See post #4 for details.

 

[mathmate]

To move the cursor horizontally, you could use the T-descriptor (tab).
The T-descriptor goes to the absolute column, while the TL and TR moves the cursor to the left or the right (relative movement) respectively.
Try:
http://docs.hp.com/en/B3908-90002/ch09s03.html#d0e22660

 

[Choragos]

That looks like it will do it. Thank you.

 

[minger]

If you got it to work, then let me know how you did. I wrote a quick sample program

PROGRAM test

do i=1,10
 WRITE(6,999,ADVANCE='NO') i
END DO

999 FORMAT(TL2I2.2)

END PROGRAM

Which outputs

01020304050607080910:~>

TRn and Tn both seem to skip the wrong way. I can't figure out how to overwrite.

p.s. Good fortran reference though

 

[Choragos]

Indeed, it isn't overwriting for me either. I'm using

10 FORMAT(TL2I2)

and

10 FORMAT(T1I2).

The formatting is working, except that T will not move the cursor back over what has been written. It will advance, but not go back.

Edit: by the way, I'm using both Intel and gfortran compilers.

 

[mathmate]

Indeed, it does not work between writes. It works only within the buffer, i.e. before the write statement is executed. So it doesn't do what you need to do.
It looks to me that you'll need some system calls, which unfortunately will be platform dependent. I know it is possible with Borland C which has a set of routines (conio.h) for that purpose. You may want to check out the versions of Fortran you're using to see if some equivalent library exists.
Another possibility is if your have called c-libraries before, you may want to take advantage of that.
Sorry folks, good try, but do post back if you find something. This will benefit everyone.