Searched refs:anrm (Results 1 – 1 of 1) sorted by relevance
22 PetscReal anrm; in PCApply_Kaczmarz() local36 anrm = 0.; in PCApply_Kaczmarz()39 anrm += PetscRealPart(PetscSqr(vals[j])); in PCApply_Kaczmarz()41 if (anrm > 0.) { in PCApply_Kaczmarz()43 if (cols[j] >= ys && cols[j] < ye) yarray[cols[j] - ys] += vals[j] * lambda * r / anrm; in PCApply_Kaczmarz()52 anrm = 0.; in PCApply_Kaczmarz()55 anrm += PetscRealPart(PetscSqr(vals[j])); in PCApply_Kaczmarz()57 if (anrm > 0.) { in PCApply_Kaczmarz()59 if (cols[j] >= ys && cols[j] < ye) yarray[cols[j] - ys] += vals[j] * lambda * r / anrm; in PCApply_Kaczmarz()