1: /* $Id: slesimpl.h,v 1.12 2000/05/05 22:16:55 balay Exp $ */ 3: #if !defined(_SLESIMPL_H) 4: #define _SLESIMPL_H 5: #include "petscsles.h" 7: struct _p_SLES { 8: PETSCHEADER(int) 9: int setupcalled; 10: PetscTruth dscale; /* diagonal scale system; used with SLESSetDiagonalScale() */ 11: PetscTruth dscalefix; /* unscale system after solve */ 12: PetscTruth dscalefix2; /* system has been unscaled */ 13: Vec diagonal; /* 1/sqrt(diag of matrix) */ 14: PC pc; 15: KSP ksp; 16: }; 18: #endif