Subversion Repositories slepc-dev

Rev

Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2283 Rev 2370
Line 26... Line 26...
 
 
extern PetscLogEvent IP_InnerProduct,IP_Orthogonalize,IP_ApplyMatrix;
extern PetscLogEvent IP_InnerProduct,IP_Orthogonalize,IP_ApplyMatrix;
 
 
struct _p_IP {
struct _p_IP {
  PETSCHEADER(int);
  PETSCHEADER(int);
  IPOrthogonalizationType orthog_type; /* which orthogonalization to use */
  IPOrthogType       orthog_type;    /* which orthogonalization to use */
  IPOrthogonalizationRefinementType orthog_ref;   /* refinement method */
  IPOrthogRefineType orthog_ref;     /* refinement method */
  PetscReal orthog_eta;
  PetscReal          orthog_eta;     /* refinement threshold */
  IPBilinearForm bilinear_form;
  IPBilinearForm     bilinear_form;
  Mat matrix;
  Mat                matrix;
  PetscInt innerproducts;
  PetscInt           innerproducts;
 
 
  /*------------------------- Cache Bx product -------------------*/
  /*------------------------- Cache Bx product -------------------*/
  PetscInt       xid;
  PetscInt           xid;
  PetscInt       xstate;
  PetscInt           xstate;
  Vec            Bx;
  Vec                Bx;
};
};
 
 
extern PetscErrorCode IPInitializePackage(const char *);
extern PetscErrorCode IPInitializePackage(const char *);
extern PetscErrorCode IPApplyMatrix_Private(IP,Vec);
extern PetscErrorCode IPApplyMatrix_Private(IP,Vec);
extern PetscErrorCode IPOrthogonalizeCGS1(IP,PetscInt,Vec*,PetscInt,PetscBool*,Vec*,Vec,PetscScalar*,PetscReal*,PetscReal*);
extern PetscErrorCode IPOrthogonalizeCGS1(IP,PetscInt,Vec*,PetscInt,PetscBool*,Vec*,Vec,PetscScalar*,PetscReal*,PetscReal*);