Commit 6cb653df authored by Daniel Wortmann's avatar Daniel Wortmann

Added some info output

parent b2c73ba9
......@@ -796,6 +796,7 @@
WRITE (6,FMT=8130) it
WRITE (16,FMT=8130) it
8130 FORMAT (/,5x,'******* it=',i3,' is completed********',/,/)
write(*,*) "Iteration:",it," Distance:",results%last_distance
CALL timestop("Iteration")
ENDIF ! mpi%irank.EQ.0
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