Searched refs:Ajj (Results 1 – 1 of 1) sorted by relevance
126 PetscReal c, s, rho, Ajj, val, tt, old; in KSPAGMRESRoddec() local151 Ajj = Qloc[j * nloc + j]; in KSPAGMRESRoddec()152 PetscCallBLAS("BLASnrm2", rho = -PetscSign(Ajj) * BLASnrm2_(&len, &Qloc[j * nloc + j], &pas)); in KSPAGMRESRoddec()155 tloc[j] = (Ajj - rho) / rho; in KSPAGMRESRoddec()157 val = 1.0 / (Ajj - rho); in KSPAGMRESRoddec()