It's nice in that it only takes up two lines of the "screen" and can be easily modified for the situation at hand.
! MyTotalLoops is the number of the maximum loops in my Do/EndDO structure
! nStep is my progress bar increment. I wanted 10 steps so it's MyTotalLoops/10
! ss is a counter that triggers printing a progress step when ss equals nStep. Then ss is reset
Integer(16) MyTotalLoops, nStep, ss
nStep = MyTotalLoops/10
! Before the loop, I print out numbers 1 to 10 - my progress steps - then write some spaces on a second line so the
! progress steps will line up under the numbers 1 thru 10
! The font is different in this message area so you don't see that the second line of spaces
! starts at the P and stops just before the "1"
Write (*,*)
Write (*,'(a)') 'Progress Steps: 1,2,3,4,5,6,7,8,9,10'
Write (*,'(a)',advance='no') ' '
! The ..., advance = 'no') keeps the 'print point' from moving down a line
! I initialize ss at the beginning of the big Do Loop
ss = 1
Do
! Your task goes here
.
.
.
! At the bottom of the loop, above the EndDo, I increment my step counter, compare it to the progress bar increment,
! If it is equal, I write out a progress bar step and reset the counter
! Count steps and write out progress
ss = ss + 1
IF (ss == nStep) Then
ss = 1
Write(*,'(a2)', advance = 'no') '==-'
! The ... , advance = 'no') '--" keeps the progress dashes moving along on the same line below progress step numbers
Endif
EndDo
! I do another write to drop below the progress bar and print out my work results
Write (*,*)
Of course, this adds a little overhead to the computing task, but there is something comforting about having an indication that the program is faithfully chugging away while not pushing everything off-screen as would happen when printing increment numbers.
I hope this helps a Mac user who is jonesing for a progress indicator.
It will run on Windows too, but Windows has AppGraphics with its more sophisticated progress bar.
This one is good enough for my tasks.
if some unicode/font options are available, you might find a thicker bar character than the equal sign.
]]>