Simple question

[GerritGroot]

Hi,

Just a simple question.

If I want to avoid the use of ADVANCE='NO' and I want to print a progress bar on the screen going from left to right, why doesn't the following statement work then?

WRITE (*,FMT='(I4,A1)') iperc,'%'
WRITE (*,FMT='(A)')CHAR(8)

As far as I know CHAR(8) should be a backspace

 

[ArkM]

The 2nd WRITE starts with a new line but backspace on the start of the line is eq a null action...

 

[GerritGroot]

So if I understand you well it should be

WRITE(*,FMT='(I4,A2)') iperc,'%'//CHAR(8)

That's on the same line but doesn't work either. Netiher does it take away the % sign or some effect like that. It works exactly like:

WRITE(*,*) iperc,'%'

 

[xwb]

You've got a backspace but you haven't overwritten the character. Try

write(*,'(I4,A3)') iperc, '%' // char(8) // ' '

If that doesn't work, you may have to force it to a printing character. Note that the output may be different on a printer. The printer will probably print the %.

 

[GerritGroot]

No, too bad, it takes away the % sign, but keeps on placing the returns and going to the next line.

What do you mean by "force it to a printing character"?

 

[xwb]

On some systems, printing a space on the screen just moves the cursor. It doesn't blank the character out. If you are printing on the printer it is a different matter. It overwrites it so

write(*,'(A3)') '\' // char(8) // '/'

will produce an X. On the screen it will just show /

On the older fortran systems with carriage control, this was done with 1H-

 

[GerritGroot]

I found something in the meantime in the web.
It ain't ANSI fortran but anyway, I''l post it here as nearlt all OS'es accept it.

WRITE(*,FMT='(I4,A,$)') iperc,'%'

In stead of $ some exotic systems use \