From 64eeac6d0f935a471c4dc10f19be6fdaa94c5710 Mon Sep 17 00:00:00 2001
From: Jean Braun <Jean.Braun@ujf-grenoble.fr>
Date: Thu, 9 Jun 2011 11:38:44 +0000
Subject: [PATCH] Edited to only provide debug output from process 0
---
src/refine_surface.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/refine_surface.f90 b/src/refine_surface.f90
index 200448d1..e2162d86 100644
--- a/src/refine_surface.f90
+++ b/src/refine_surface.f90
@@ -350,7 +350,7 @@ if (iproc.eq.0 .and. params%debug>=1) write(*,'(a,i2,a,i4,a)') shift//'S.',is,':
do i=1,size(ed%n1)
i1=ed(i)%n1
i2=ed(i)%n2
- if (i1.eq.i2) then
+ if (i1 == i2 .and. iproc == 0) then
print *,'*******************************************************************'
print *,'Nodes for edge ',i,' have the same spatial coordinates'
print *,'The edges nodes are are node i1: ',i1,' and i2: ',i2
--
GitLab