Searched refs:lnorm2 (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/mat/impls/sbaij/mpi/ |
| H A D | mpisbaij.c | 690 PetscReal sum[2], *lnorm2; in MatNorm_MPISBAIJ() local
697 PetscCall(PetscMalloc1(2, &lnorm2)); in MatNorm_MPISBAIJ()
698 PetscCall(MatNorm(baij->A, type, lnorm2)); in MatNorm_MPISBAIJ()
699 *lnorm2 = (*lnorm2) * (*lnorm2); in MatNorm_MPISBAIJ()
700 lnorm2++; /* square power of norm(A) */ in MatNorm_MPISBAIJ()
701 PetscCall(MatNorm(baij->B, type, lnorm2)); in MatNorm_MPISBAIJ()
702 *lnorm2 = (*lnorm2) * (*lnorm2); in MatNorm_MPISBAIJ()
703 lnorm2--; /* square power of norm(B) */ in MatNorm_MPISBAIJ()
704 …PetscCallMPI(MPIU_Allreduce(lnorm2, sum, 2, MPIU_REAL, MPIU_SUM, PetscObjectComm((PetscObject)mat)… in MatNorm_MPISBAIJ()
706 PetscCall(PetscFree(lnorm2)); in MatNorm_MPISBAIJ()
|