[cig-commits] r12451 - seismo/3D/SPECFEM3D_GLOBE/trunk

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2008-07-21 06:12:20 -0700 (Mon, 21 Jul 2008)
New Revision: 12451

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/get_perm_cuthill_mckee.f90
Log:
updated a comment


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/get_perm_cuthill_mckee.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/get_perm_cuthill_mckee.f90	2008-07-21 13:09:15 UTC (rev 12450)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/get_perm_cuthill_mckee.f90	2008-07-21 13:12:20 UTC (rev 12451)
@@ -645,8 +645,8 @@
 !--------------------------------------------------------------- Local Variables
   integer i, j, ideg, lbegin, lvlend, lvsize, nxt, nbr, node
 
-!! DK DK added a test to detect disconnected subsets in the mesh
-!! DK DK (in which case Cuthill-McKee fails and should be turned off)
+! added a test to detect disconnected subsets in the mesh
+! (in which case Cuthill-McKee fails and should be turned off)
   if(root > nbnodes+1) stop 'error: root > nbnodes+1 in Cuthill-McKee'
   if(root < 1) then
     print *,'error: root < 1 in Cuthill-McKee; you probably have a mesh composed of'