Mangle rcm

Author: filikat

extern/rcm/rcm.cpp

@@ -10,7 +10,7 @@ const HighsInt offset = 1;
 
 //****************************************************************************80
 
-static void degree(HighsInt root, HighsInt adj_num, const HighsInt adj_row[],
+static void Highs_rcm_degree(HighsInt root, HighsInt adj_num, const HighsInt adj_row[],
             const HighsInt adj[], HighsInt mask[], HighsInt deg[],
             HighsInt* iccsze, HighsInt ls[], HighsInt node_num)
 
@@ -149,7 +149,7 @@ static void degree(HighsInt root, HighsInt adj_num, const HighsInt adj_row[],
 }
 //****************************************************************************80
 
-static void i4vec_reverse(HighsInt n, HighsInt a[])
+static void Highs_rcm_i4vec_reverse(HighsInt n, HighsInt a[])
 
 //****************************************************************************80
 //
@@ -204,7 +204,7 @@ static void i4vec_reverse(HighsInt n, HighsInt a[])
 }
 //****************************************************************************80
 
-static void level_set(HighsInt root, HighsInt adj_num, const HighsInt adj_row[],
+static void Highs_rcm_level_set(HighsInt root, HighsInt adj_num, const HighsInt adj_row[],
                const HighsInt adj[], HighsInt mask[], HighsInt* level_num,
                HighsInt level_row[], HighsInt level[], HighsInt node_num)
 
@@ -341,7 +341,7 @@ static void level_set(HighsInt root, HighsInt adj_num, const HighsInt adj_row[],
 }
 //****************************************************************************80
 
-static HighsInt rcm(HighsInt root, HighsInt adj_num, const HighsInt adj_row[],
+static HighsInt Highs_rcm(HighsInt root, HighsInt adj_num, const HighsInt adj_row[],
              const HighsInt adj[], HighsInt mask[], HighsInt perm[],
              HighsInt* iccsze, HighsInt node_num)
 
@@ -458,7 +458,7 @@ static HighsInt rcm(HighsInt root, HighsInt adj_num, const HighsInt adj_row[],
   //
   //  Find the degrees of the nodes in the component specified by MASK and ROOT.
   //
-  degree(root, adj_num, adj_row, adj, mask, deg, iccsze, perm, node_num);
+  Highs_rcm_degree(root, adj_num, adj_row, adj, mask, deg, iccsze, perm, node_num);
   //
   //  If the connected component size is less than 1, something is wrong.
   //
@@ -551,7 +551,7 @@ static HighsInt rcm(HighsInt root, HighsInt adj_num, const HighsInt adj_row[],
   //  We now have the Cuthill-McKee ordering.
   //  Reverse it to get the Reverse Cuthill-McKee ordering.
   //
-  i4vec_reverse(*iccsze, perm);
+  Highs_rcm_i4vec_reverse(*iccsze, perm);
   //
   //  Free memory.
   //
@@ -561,7 +561,7 @@ static HighsInt rcm(HighsInt root, HighsInt adj_num, const HighsInt adj_row[],
 }
 //****************************************************************************80
 
-static void root_find(HighsInt* root, HighsInt adj_num, const HighsInt adj_row[],
+static void Highs_rcm_root_find(HighsInt* root, HighsInt adj_num, const HighsInt adj_row[],
                const HighsInt adj[], HighsInt mask[], HighsInt* level_num,
                HighsInt level_row[], HighsInt level[], HighsInt node_num)
 
@@ -670,7 +670,7 @@ static void root_find(HighsInt* root, HighsInt adj_num, const HighsInt adj_row[]
   //
   //  Determine the level structure rooted at ROOT.
   //
-  level_set(*root, adj_num, adj_row, adj, mask, level_num, level_row, level,
+  Highs_rcm_level_set(*root, adj_num, adj_row, adj, mask, level_num, level_row, level,
             node_num);
   //
   //  Count the number of nodes in this level structure.
@@ -725,7 +725,7 @@ static void root_find(HighsInt* root, HighsInt adj_num, const HighsInt adj_row[]
     //
     //  Generate the rooted level structure associated with this node.
     //
-    level_set(*root, adj_num, adj_row, adj, mask, &level_num2, level_row, level,
+    Highs_rcm_level_set(*root, adj_num, adj_row, adj, mask, &level_num2, level_row, level,
               node_num);
     //
     //  If the number of levels did not increase, accept the new ROOT.
@@ -838,12 +838,12 @@ HighsInt Highs_genrcm(HighsInt node_num, HighsInt adj_num,
       //  Find a pseudo-peripheral node ROOT.  The level structure found by
       //  ROOT_FIND is stored starting at PERM(NUM).
       //
-      root_find(&root, adj_num, adj_row, adj, mask, &level_num, level_row,
+      Highs_rcm_root_find(&root, adj_num, adj_row, adj, mask, &level_num, level_row,
                 perm + num - 1, node_num);
       //
       //  RCM orders the component using ROOT as the starting node.
       //
-      if (rcm(root, adj_num, adj_row, adj, mask, perm + num - 1, &iccsze,
+      if (Highs_rcm(root, adj_num, adj_row, adj, mask, perm + num - 1, &iccsze,
               node_num)) {
         delete[] level_row;
         delete[] mask;