Lines Matching refs:onorms
7670 PetscReal norm, *onorms; in PCBDDCOrthonormalizeVecs() local
7675 PetscCall(PetscMalloc2(n, &alphas, n, &onorms)); in PCBDDCOrthonormalizeVecs()
7678 onorms[0] = 0.0; in PCBDDCOrthonormalizeVecs()
7681 onorms[0] = norm; in PCBDDCOrthonormalizeVecs()
7690 onorms[i] = 0.0; in PCBDDCOrthonormalizeVecs()
7693 onorms[i] = norm; in PCBDDCOrthonormalizeVecs()
7698 if (onorms[i] == 0.0) { in PCBDDCOrthonormalizeVecs()
7700 if (onorms[j] != 0.0) { in PCBDDCOrthonormalizeVecs()
7702 onorms[i] = onorms[j]; in PCBDDCOrthonormalizeVecs()
7703 onorms[j] = 0.0; in PCBDDCOrthonormalizeVecs()
7709 for (i = 0, *nio = 0; i < n; i++) *nio += onorms[i] != 0.0 ? 1 : 0; in PCBDDCOrthonormalizeVecs()
7710 PetscCall(PetscFree2(alphas, onorms)); in PCBDDCOrthonormalizeVecs()