1818/* === AMD_order =========================================================== */
1919/* ========================================================================= */
2020
21- int amd_order
21+ int Highs_amd_order
2222(
2323 amd_int n ,
2424 const amd_int Ap [ ],
@@ -76,7 +76,7 @@ int amd_order
7676 }
7777
7878 /* check the input matrix: AMD_OK, AMD_INVALID, or AMD_OK_BUT_JUMBLED */
79- status = amd_valid (n , n , Ap , Ai ) ;
79+ status = Highs_amd_valid (n , n , Ap , Ai ) ;
8080
8181 if (status == AMD_INVALID )
8282 {
@@ -86,15 +86,15 @@ int amd_order
8686
8787 /* allocate two size-n integer workspaces */
8888 size_t nn = (size_t ) n ;
89- Len = SuiteSparse_malloc (nn , sizeof (amd_int )) ;
90- Pinv = SuiteSparse_malloc (nn , sizeof (amd_int )) ;
89+ Len = Highs_SuiteSparse_malloc (nn , sizeof (amd_int )) ;
90+ Pinv = Highs_SuiteSparse_malloc (nn , sizeof (amd_int )) ;
9191 mem += n ;
9292 mem += n ;
9393 if (!Len || !Pinv )
9494 {
9595 /* :: out of memory :: */
96- SuiteSparse_free (Len ) ;
97- SuiteSparse_free (Pinv ) ;
96+ Highs_SuiteSparse_free (Len ) ;
97+ Highs_SuiteSparse_free (Pinv ) ;
9898 if (info ) Info [AMD_STATUS ] = AMD_OUT_OF_MEMORY ;
9999 return (AMD_OUT_OF_MEMORY ) ;
100100 }
@@ -103,17 +103,17 @@ int amd_order
103103 {
104104 /* sort the input matrix and remove duplicate entries */
105105
106- Rp = SuiteSparse_malloc (nn + 1 , sizeof (amd_int )) ;
107- Ri = SuiteSparse_malloc (nz , sizeof (amd_int )) ;
106+ Rp = Highs_SuiteSparse_malloc (nn + 1 , sizeof (amd_int )) ;
107+ Ri = Highs_SuiteSparse_malloc (nz , sizeof (amd_int )) ;
108108 mem += (n + 1 ) ;
109109 mem += MAX (nz ,1 ) ;
110110 if (!Rp || !Ri )
111111 {
112112 /* :: out of memory :: */
113- SuiteSparse_free (Rp ) ;
114- SuiteSparse_free (Ri ) ;
115- SuiteSparse_free (Len ) ;
116- SuiteSparse_free (Pinv ) ;
113+ Highs_SuiteSparse_free (Rp ) ;
114+ Highs_SuiteSparse_free (Ri ) ;
115+ Highs_SuiteSparse_free (Len ) ;
116+ Highs_SuiteSparse_free (Pinv ) ;
117117 if (info ) Info [AMD_STATUS ] = AMD_OUT_OF_MEMORY ;
118118 return (AMD_OUT_OF_MEMORY ) ;
119119 }
@@ -156,16 +156,16 @@ int amd_order
156156 ok = ok && (slen < SIZE_T_MAX / sizeof (amd_int )) ; /* check for overflow */
157157 if (ok )
158158 {
159- S = SuiteSparse_malloc (slen , sizeof (amd_int )) ;
159+ S = Highs_SuiteSparse_malloc (slen , sizeof (amd_int )) ;
160160 }
161161
162162 if (!S )
163163 {
164164 /* :: out of memory :: (or problem too large) */
165- SuiteSparse_free (Rp ) ;
166- SuiteSparse_free (Ri ) ;
167- SuiteSparse_free (Len ) ;
168- SuiteSparse_free (Pinv ) ;
165+ Highs_SuiteSparse_free (Rp ) ;
166+ Highs_SuiteSparse_free (Ri ) ;
167+ Highs_SuiteSparse_free (Len ) ;
168+ Highs_SuiteSparse_free (Pinv ) ;
169169 if (info ) Info [AMD_STATUS ] = AMD_OUT_OF_MEMORY ;
170170 return (AMD_OUT_OF_MEMORY ) ;
171171 }
@@ -185,11 +185,11 @@ int amd_order
185185 /* free the workspace */
186186 /* --------------------------------------------------------------------- */
187187
188- SuiteSparse_free (Rp ) ;
189- SuiteSparse_free (Ri ) ;
190- SuiteSparse_free (Len ) ;
191- SuiteSparse_free (Pinv ) ;
192- SuiteSparse_free (S ) ;
188+ Highs_SuiteSparse_free (Rp ) ;
189+ Highs_SuiteSparse_free (Ri ) ;
190+ Highs_SuiteSparse_free (Len ) ;
191+ Highs_SuiteSparse_free (Pinv ) ;
192+ Highs_SuiteSparse_free (S ) ;
193193 if (info ) Info [AMD_STATUS ] = status ;
194194 return (status ) ; /* successful ordering */
195195}
0 commit comments