Searched refs:onorms (Results 1 – 1 of 1) sorted by relevance
7670 PetscReal norm, *onorms; in PCBDDCOrthonormalizeVecs() local7675 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()[all …]