As Mumps_SolveSystem() only available in parallel, use MumpsLocal_Sol…

…veSystem() for local solution.
ElmerCSC · Sep 28, 2024 · 546ab2e · 546ab2e
1 parent 6c43a05
commit 546ab2e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/fem/src/VankaCreate.F90 b/fem/src/VankaCreate.F90
@@ -704,7 +704,7 @@ SUBROUTINE CircuitPrec(u,v,ipar)
 
         IF(ANY(ABS(A % CircuitMatrix % Values)>0)) THEN
 #if !defined (HAVE_UMFPACK) && defined (HAVE_MUMPS)
-          CALL Mumps_SolveSystem( sv, A % CircuitMatrix, u(i:j), v(i:j) )
+          CALL MumpsLocal_SolveSystem( sv, A % CircuitMatrix, u(i:j), v(i:j) )
 #else
           CALL Umfpack_SolveSystem( sv, A % CircuitMatrix, u(i:j), v(i:j) )
 #endif
@@ -767,7 +767,7 @@ SUBROUTINE CircuitPrecComplex(u,v,ipar)
         END DO
 
 #if !defined (HAVE_UMFPACK) && defined (HAVE_MUMPS)
-        CALL Mumps_SolveSystem( sv, A % CircuitMatrix, ru, rv )
+        CALL MumpsLocal_SolveSystem( sv, A % CircuitMatrix, ru, rv )
 #else
         CALL Umfpack_SolveSystem( sv, A % CircuitMatrix, ru, rv )
 #endif