| Line 387... |
Line 387... |
#endif
|
#endif
|
|
|
PetscFunctionBegin;
|
PetscFunctionBegin;
|
/* Compute recursively the local part */
|
/* Compute recursively the local part */
|
dp0 = nm0 = 0.0;
|
dp0 = nm0 = 0.0;
|
ierr = PetscTypeCompare((PetscObject)v,VECCOMP,&t0);CHKERRQ(ierr);
|
ierr = PetscObjectTypeCompare((PetscObject)v,VECCOMP,&t0);CHKERRQ(ierr);
|
ierr = PetscTypeCompare((PetscObject)w,VECCOMP,&t1);CHKERRQ(ierr);
|
ierr = PetscObjectTypeCompare((PetscObject)w,VECCOMP,&t1);CHKERRQ(ierr);
|
if (t0 == PETSC_TRUE && t1 == PETSC_TRUE) {
|
if (t0 == PETSC_TRUE && t1 == PETSC_TRUE) {
|
PetscValidVecComp(v);
|
PetscValidVecComp(v);
|
PetscValidVecComp(w);
|
PetscValidVecComp(w);
|
for (i=0;i<vs->n->n;i++) {
|
for (i=0;i<vs->n->n;i++) {
|
ierr = VecDotNorm2_Comp_Seq(vs->x[i],ws->x[i],&dp1,&nm1);CHKERRQ(ierr);
|
ierr = VecDotNorm2_Comp_Seq(vs->x[i],ws->x[i],&dp1,&nm1);CHKERRQ(ierr);
|