Searched refs:tnorm (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/vec/vec/utils/ |
| H A D | vinv.c | 119 PetscReal tnorm; in VecStrideNorm() local
134 tnorm = PetscRealPart(sum); in VecStrideNorm()
135 …PetscCallMPI(MPIU_Allreduce(&tnorm, nrm, 1, MPIU_REAL, MPIU_SUM, PetscObjectComm((PetscObject)v))); in VecStrideNorm()
138 tnorm = 0.0; in VecStrideNorm()
139 for (i = start; i < n; i += bs) tnorm += PetscAbsScalar(x[i]); in VecStrideNorm()
140 …PetscCallMPI(MPIU_Allreduce(&tnorm, nrm, 1, MPIU_REAL, MPIU_SUM, PetscObjectComm((PetscObject)v))); in VecStrideNorm()
142 tnorm = 0.0; in VecStrideNorm()
144 if (PetscAbsScalar(x[i]) > tnorm) tnorm = PetscAbsScalar(x[i]); in VecStrideNorm()
146 …PetscCallMPI(MPIU_Allreduce(&tnorm, nrm, 1, MPIU_REAL, MPIU_MAX, PetscObjectComm((PetscObject)v))); in VecStrideNorm()
418 PetscReal tnorm[128]; in VecStrideNormAll() local
[all …]
|