Subversion Repositories slepc-dev

Rev

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

Rev 2818 Rev 2823
Line 93... Line 93... 
  PetscReal      resnorm;
 
  PetscReal      resnorm;
 
  PetscBool      isshift;
 
  PetscBool      isshift;
 
 
 
 
 
  PetscFunctionBegin;
 
  PetscFunctionBegin;
 
  ierr = PSGetLeadingDimension(eps->ps,&ld);CHKERRQ(ierr);
 
  ierr = PSGetLeadingDimension(eps->ps,&ld);CHKERRQ(ierr);
 
  ierr = PetscTypeCompare((PetscObject)eps->OP,STSHIFT,&isshift);CHKERRQ(ierr);
 
  ierr = PetscObjectTypeCompare((PetscObject)eps->OP,STSHIFT,&isshift);CHKERRQ(ierr);
 
  marker = -1;
 
  marker = -1;
 
  getall = getall | eps->trackall;
 
  getall = getall | eps->trackall;
 
  for (k=kini;k<kini+nits;k++) {
 
  for (k=kini;k<kini+nits;k++) {
 
    /* eigenvalue */
 
    /* eigenvalue */
 
    re = eps->eigr[k];
 
    re = eps->eigr[k];