| Line 19... |
Line 19... |
#undef __FUNCT__
|
#undef __FUNCT__
|
#define __FUNCT__ "EPSSolve_TS_ARNOLDI"
|
#define __FUNCT__ "EPSSolve_TS_ARNOLDI"
|
PetscErrorCode EPSSolve_TS_ARNOLDI(EPS eps)
|
PetscErrorCode EPSSolve_TS_ARNOLDI(EPS eps)
|
{
|
{
|
PetscErrorCode ierr;
|
PetscErrorCode ierr;
|
int i,k,ncv=eps->ncv;
|
PetscInt i,k,ncv=eps->ncv;
|
Vec fr=eps->work[0];
|
Vec fr=eps->work[0];
|
Vec fl=eps->work[1];
|
Vec fl=eps->work[1];
|
Vec *Qr=eps->V, *Ql=eps->W;
|
Vec *Qr=eps->V, *Ql=eps->W;
|
PetscScalar *Hr=eps->T,*Ur,*work;
|
PetscScalar *Hr=eps->T,*Ur,*work;
|
PetscScalar *Hl=eps->Tl,*Ul;
|
PetscScalar *Hl=eps->Tl,*Ul;
|