| Line 67... |
Line 67... |
/**** Control routines ********************************************************/
|
/**** Control routines ********************************************************/
|
#undef __FUNCT__
|
#undef __FUNCT__
|
#define __FUNCT__ "dvd_calcpairs_qz"
|
#define __FUNCT__ "dvd_calcpairs_qz"
|
PetscErrorCode dvd_calcpairs_qz(dvdDashboard *d, dvdBlackboard *b, IP ipI)
|
PetscErrorCode dvd_calcpairs_qz(dvdDashboard *d, dvdBlackboard *b, IP ipI)
|
{
|
{
|
PetscTruth std_probl, her_probl;
|
PetscBool std_probl, her_probl;
|
PetscInt i;
|
PetscInt i;
|
|
|
PetscFunctionBegin;
|
PetscFunctionBegin;
|
|
|
std_probl = DVD_IS(d->sEP, DVD_EP_STD)?PETSC_TRUE:PETSC_FALSE;
|
std_probl = DVD_IS(d->sEP, DVD_EP_STD)?PETSC_TRUE:PETSC_FALSE;
|
| Line 634... |
Line 634... |
PetscErrorCode dvd_calcpairs_proj_res(dvdDashboard *d, PetscInt r_s,
|
PetscErrorCode dvd_calcpairs_proj_res(dvdDashboard *d, PetscInt r_s,
|
PetscInt r_e, Vec *R)
|
PetscInt r_e, Vec *R)
|
{
|
{
|
PetscInt i;
|
PetscInt i;
|
PetscErrorCode ierr;
|
PetscErrorCode ierr;
|
PetscTruth lindep;
|
PetscBool lindep;
|
Vec *cX;
|
Vec *cX;
|
|
|
PetscFunctionBegin;
|
PetscFunctionBegin;
|
|
|
/* If exists the BcX, R <- orth(BcX, R), nR[i] <- ||R[i]|| */
|
/* If exists the BcX, R <- orth(BcX, R), nR[i] <- ||R[i]|| */
|