Commit 7c061ad6 authored by Knut's avatar Knut

avoid division by zero for zero-length run

parent c75f4789
......@@ -85,12 +85,10 @@
LEVEL2 '3D: ',mem3d/1024,' kbytes'
end if
#endif
if(secs .gt. _ZERO_) then
LEVEL1 'Total CPU-time was: ',secs,' seconds'
end if
LEVEL1 'Total CPU-time was: ',secs,' seconds'
LEVEL1 'Number of time steps: ',MaxN-MinN+1
LEVEL1 'Number of calc-points: ',Calc_Points
if(secs .gt. _ZERO_) then
if(MaxN-MinN+1 .gt. _ZERO_) then
LEVEL1 'CPU-time/calc-point: ',secs/(MaxN-MinN+1)/Calc_Points,' seconds'
LEVEL1 'Sim-time/CPU-time: ',simtime/secs
end if
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment