Subversion Repositories slepc-dev

Rev

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

Rev 1343 Rev 1345
Line 49... Line 49... 
  PetscErrorCode  ierr;
 
  PetscErrorCode  ierr;
 
  EPS             eps = (EPS)data;
 
  EPS             eps = (EPS)data;
 
 
 
 
 
  PetscFunctionBegin;
 
  PetscFunctionBegin;
 
  ierr = STApply(eps->OP,(Vec)x,(Vec)y);
 
  ierr = STApply(eps->OP,(Vec)x,(Vec)y);
 
  ierr = EPSOrthogonalize(eps,eps->nds,PETSC_NULL,eps->DS,(Vec)y,PETSC_NULL,PETSC_NULL,PETSC_NULL); CHKERRABORT(PETSC_COMM_WORLD,ierr);
 
  ierr = IPOrthogonalize(eps->ip,eps->nds,PETSC_NULL,eps->DS,(Vec)y,PETSC_NULL,PETSC_NULL,PETSC_NULL,eps->work[0]); CHKERRABORT(PETSC_COMM_WORLD,ierr);
 
  PetscFunctionReturnVoid();
 
  PetscFunctionReturnVoid();
 
}
 
}
 
 
 
 
 
#undef __FUNCT__  
 
#undef __FUNCT__  
 
#define __FUNCT__ "OperatorAMultiVector"
 
#define __FUNCT__ "OperatorAMultiVector"
Line 106... Line 106... 
 
 
 
 
  blopex->blap_fn.dpotrf = PETSC_dpotrf_interface;
 
  blopex->blap_fn.dpotrf = PETSC_dpotrf_interface;
 
  blopex->blap_fn.dsygv = PETSC_dsygv_interface;
 
  blopex->blap_fn.dsygv = PETSC_dsygv_interface;
 
 
 
 
 
  ierr = EPSAllocateSolution(eps);CHKERRQ(ierr);
 
  ierr = EPSAllocateSolution(eps);CHKERRQ(ierr);
 
 
 
  ierr = EPSDefaultGetWork(eps,1);CHKERRQ(ierr);
 
  PetscFunctionReturn(0);
 
  PetscFunctionReturn(0);
 
}
 
}
 
 
 
 
 
#undef __FUNCT__  
 
#undef __FUNCT__  
 
#define __FUNCT__ "EPSSolve_BLOPEX"
 
#define __FUNCT__ "EPSSolve_BLOPEX"