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

[dkomati1 at geodynamics.org]

Author: dkomati1
Date: 2008-07-07 02:53:56 -0700 (Mon, 07 Jul 2008)
New Revision: 12382

Modified:
   seismo/3D/SPECFEM3D_GLOBE/trunk/get_perm_cuthill_mckee.f90
Log:
fixed typo


Modified: seismo/3D/SPECFEM3D_GLOBE/trunk/get_perm_cuthill_mckee.f90
===================================================================
--- seismo/3D/SPECFEM3D_GLOBE/trunk/get_perm_cuthill_mckee.f90	2008-07-07 09:42:14 UTC (rev 12381)
+++ seismo/3D/SPECFEM3D_GLOBE/trunk/get_perm_cuthill_mckee.f90	2008-07-07 09:53:56 UTC (rev 12382)
@@ -465,7 +465,7 @@
 !    mask       only those nodes with nonzero mask are considered
 !
 !    gsize      the number of the connected component
-!    invp       Inverse invputation (from new order to old order)
+!    invp       Inverse permutation (from new order to old order)
 !*******************************************************************************
 
 subroutine find_next_root(next_root,xadj,adj,total_size_adj,mask,invperm_all,total_ordered_elts,nspec)
@@ -514,7 +514,7 @@
 !    mask       only those nodes with nonzero mask are considered
 !
 !    gsize      the number of the connected component
-!    invp       Inverse invputation (from new order to old order)
+!    invp       Inverse permutation (from new order to old order)
 !*******************************************************************************
 
 subroutine Cut_McK( root, nbnodes, nnz, xadj, adj, mask, gsize, invp, limit, nspec_sub, next_root)