Rate counter: Difference between revisions
m
→{{header|Fortran}}
Line 568:
...much computation...
END DO</lang>
Function PROGRESSNOTE is invoked at the start of each iteration, with its first parameter stating how many steps have been completed (initially, none: this restarts its timers) and the second indicates how many are to be made. The function notes whether sufficient clock time has elapsed since its previous report (more than six seconds, for example) and if so, returns ''true'' after starting an output line with a standard report giving an estimated time to run and an estimated time (and date, if not the current day) of
<pre>
Standard progress report|Tailored message.
|