stop problem 2

octavioroncero · Jun 29, 2021 · 12a465a · 12a465a
1 parent 61ed7e0
commit 12a465a
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/SRC/main_madwave3.f b/SRC/main_madwave3.f
@@ -397,7 +397,8 @@ subroutine check(time,xnorm1tot,it,iloop)
  call MPI_REDUCE(xnorm1,xnorm1tot,1,MPI_REAL8,MPI_SUM
  & ,0,MPI_COMM_WORLD,ierr)
  call MPI_BCAST(xnorm1tot,1,MPI_REAL8,0,MPI_COMM_WORLD,ierr)
-! if(idproc.eq.0)then
+
+ if(idproc.eq.0)then
  write(6,*)it,xnorm1tot
  endif