Changeset 5699
- Timestamp:
- 09/08/10 08:07:08 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk/src/c/modules/Solverx/Solverx.cpp
r5698 r5699 98 98 } 99 99 } 100 if(verbose){ 101 double max,min; 102 KSPSetComputeSingularValues(ksp,PETSC_TRUE); 103 KSPSetUp(ksp); 104 KSPSolve(ksp,pf,uf); 105 KSPComputeExtremeSingularValues(ksp,&max,&min); 106 printf("Condition number = %g %g\n",max,min); 107 } 108 else{ 109 KSPSolve(ksp,pf,uf); 110 } 100 KSPSolve(ksp,pf,uf); 111 101 112 102 /*Check convergence*/
Note:
See TracChangeset
for help on using the changeset viewer.