Changeset 11469

Timestamp:

02/18/12 07:19:51 (14 years ago)

Author:

Mathieu Morlighem

Message:

Fixed compilation for PETSc 3.2 (MATSOLVERMUMPS + PCFieldSplit)

File:

• issm/trunk-jpl/src/c/modules/Solverx/Solverx.cpp (modified) (2 diffs)

issm/trunk-jpl/src/c/modules/Solverx/Solverx.cpp

@@ -127 +127 @@
         KSPGetPC(ksp,&pc);
         if (solver_type==MUMPSPACKAGE_LU){
+                #if _PETSC_MINOR_==1
                 PCFactorSetMatSolverPackage(pc,MAT_SOLVER_MUMPS);
+                #else
+                PCFactorSetMatSolverPackage(pc,MATSOLVERMUMPS);
+                #endif
         }
         #endif
@@ -140 +144 @@
                 /*Set field splits: */
                 KSPGetPC(ksp,&pc);
+                #if _PETSC_MINOR_==1
                 PCFieldSplitSetIS(pc,isv);
                 PCFieldSplitSetIS(pc,isp);
+                #else
+                PCFieldSplitSetIS(pc,PETSC_NULL,isv);
+                PCFieldSplitSetIS(pc,PETSC_NULL,isp);
+                #endif
 
         }