Subversion Repositories slepc-dev

Rev

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

Rev 2575 Rev 2605
Line 180... Line 180... 
  SVD            svd = (SVD)ctx;
 
  SVD            svd = (SVD)ctx;
 
  PetscScalar    er,ei;
 
  PetscScalar    er,ei;
 
  PetscErrorCode ierr;
 
  PetscErrorCode ierr;
 
 
 
 
 
  PetscFunctionBegin;
 
  PetscFunctionBegin;
 
  for (i=0;i<nest;i++) {
 
  for (i=0;i<PetscMin(nest,svd->ncv);i++) {
 
    er = eigr[i]; ei = eigi[i];
 
    er = eigr[i]; ei = eigi[i];
 
    ierr = STBackTransform(eps->OP,1,&er,&ei);CHKERRQ(ierr);
 
    ierr = STBackTransform(eps->OP,1,&er,&ei);CHKERRQ(ierr);
 
    svd->sigma[i] = PetscSqrtReal(PetscRealPart(er));
 
    svd->sigma[i] = PetscSqrtReal(PetscRealPart(er));
 
    svd->errest[i] = errest[i];
 
    svd->errest[i] = errest[i];
 
  }
 
  }