Changeset 6858 for issm/trunk/src/c/modules/Solverx/Solverx.cpp

Timestamp:

12/29/10 18:46:37 (14 years ago)

Author:

Eric.Larour

Message:

Starting migration towards petsc solver options of version 3. Almost done with mumps.

File:

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

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

@@ -32 +32 @@
 
         #if _PETSC_VERSION_ == 3 
-        const MatType type;
+        char ksp_type[50];
+        PetscTruth flg;
         #endif
 
@@ -47 +48 @@
         /*Now, check that we are not getting an initial guess to the solver, if we are running a direct solver: */
         #if _PETSC_VERSION_ == 3 
-        MatGetType(Kff,&type);
-        if (strcmp(type,"mpidense")==0)uf0=NULL;
+        PetscOptionsGetString(PETSC_NULL,"-ksp_type",ksp_type,49,&flg);
+        if (strcmp(ksp_type,"preonly")==0)uf0=NULL;
         #endif