From 6921c57c7d036a20b2c8b44d0b4720109d40228f Mon Sep 17 00:00:00 2001
From: Philip	Eisenlohr <eisenlohr@egr.msu.edu>
Date: Tue, 17 Jun 2008 11:54:34 +0000
Subject: [PATCH] rev 225 had a small syntax error...

---
 trunk/mesh.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/trunk/mesh.f90 b/trunk/mesh.f90
index 0d919e768..b9cb604cd 100644
--- a/trunk/mesh.f90
+++ b/trunk/mesh.f90
@@ -796,7 +796,7 @@ candidate: do i=1,minN  ! iterate over lonelyNode's shared elements
          do j = 1,FE_Nnodes(FE_mapElemtype(IO_StringValue(line,pos,2)))
            n = mesh_FEasCP('node',IO_IntValue (line,pos,j+2))
            if (all(node_seen /= n)) then
-		     mesh_sharedElem(1,CP_node) = mesh_sharedElem(1,n) + 1
+		     mesh_sharedElem(1,n) = mesh_sharedElem(1,n) + 1
 		     mesh_sharedElem(1+mesh_sharedElem(1,n),n) = e
            end if
            node_seen(j) = n