From b6aecdac171b877677e1c665bda99aa42ec870e1 Mon Sep 17 00:00:00 2001
From: Christoph	Kords <c.kords@mpie.de>
Date: Wed, 27 Mar 2013 10:25:37 +0000
Subject: [PATCH] corrected debugging output of node twins

---
 code/mesh.f90 | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/code/mesh.f90 b/code/mesh.f90
index 77cd37069..6dd2ec23b 100644
--- a/code/mesh.f90
+++ b/code/mesh.f90
@@ -3938,11 +3938,8 @@ enddo
     write(6,*)
     write(6,'(a6,3(3x,a6))') '  node','twin_x','twin_y','twin_z'
     do n = 1_pInt,mesh_Nnodes                    ! loop over cpNodes
-      if (debug_e <= mesh_NcpElems) then
-        if (any(mesh_element(5:,debug_e) == n)) then
-          write(6,'(i6,3(3x,i6))') n, mesh_nodeTwins(1:3,n)
-        endif
-      endif
+      if (iand(myDebug,debug_levelSelective) /= 0_pInt .and. .not. any(mesh_element(5:,debug_e) == n)) cycle
+      write(6,'(i6,3(3x,i6))') n, mesh_nodeTwins(1:3,n)
     enddo
     write(6,*)
     write(6,*) 'Input Parser: IP NEIGHBORHOOD'