Dismiss Notice
Join Physics Forums Today!
The friendliest, high quality science and math community on the planet! Everyone who loves science is here!


  1. May 13, 2009 #1
    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?

  2. jcsd
  3. May 13, 2009 #2


    User Avatar
    Science Advisor

    I've never heard of this. What was the procedure to do it in previous versions?
  4. May 13, 2009 #3
    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.
  5. May 13, 2009 #4
  6. May 13, 2009 #5
    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!
  7. May 13, 2009 #6
    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.
  8. May 13, 2009 #7
    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.
    http://docs.hp.com/en/B3908-90002/ch09s03.html#d0e22660 [Broken]
    Last edited by a moderator: May 4, 2017
  9. May 13, 2009 #8
    That looks like it will do it. Thank you.
  10. May 13, 2009 #9


    User Avatar
    Science Advisor

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

    PROGRAM test

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

    999 FORMAT(TL2I2.2)

    Which outputs
    Code (Text):

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

    p.s. Good fortran reference though
  11. May 13, 2009 #10
    Indeed, it isn't overwriting for me either. I'm using

    10 FORMAT(TL2I2)


    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.
  12. May 13, 2009 #11
    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.
Share this great discussion with others via Reddit, Google+, Twitter, or Facebook