Subversion Repositories slepc-dev

Rev

Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2116 Rev 2140
Line 95... Line 95... 
*/
 
*/
 
PetscErrorCode EPSKrylovConvergence(EPS eps,PetscTruth issym,PetscInt kini,PetscInt nits,PetscScalar *S,PetscInt lds,PetscScalar *Q,Vec *V,PetscInt nv,PetscReal beta,PetscReal corrf,PetscInt *kout,PetscScalar *work)
 
PetscErrorCode EPSKrylovConvergence(EPS eps,PetscTruth issym,PetscInt kini,PetscInt nits,PetscScalar *S,PetscInt lds,PetscScalar *Q,Vec *V,PetscInt nv,PetscReal beta,PetscReal corrf,PetscInt *kout,PetscScalar *work)
 
{
 
{
 
  PetscErrorCode ierr;
 
  PetscErrorCode ierr;
 
  PetscInt       k,marker;
 
  PetscInt       k,marker;
 
  PetscScalar    re,im,*Z,*work2;
 
  PetscScalar    re,im,*Z = work,*work2 = work;
 
  PetscReal      resnorm;
 
  PetscReal      resnorm;
 
  PetscTruth     iscomplex,isshift;
 
  PetscTruth     iscomplex,isshift;
 
 
 
 
 
  PetscFunctionBegin;
 
  PetscFunctionBegin;
 
  if (!issym) { Z = work; work2 = work+2*nv; }
 
  if (!issym) { Z = work; work2 = work+2*nv; }