Lines Matching refs:s1
9 PetscScalar *x, *tmp, s1; in MatSolveTranspose_SeqBAIJ_1_NaturalOrdering() local
26 s1 = tmp[i]; in MatSolveTranspose_SeqBAIJ_1_NaturalOrdering()
27 s1 *= v[nz]; /* multiply by inverse of diagonal entry */ in MatSolveTranspose_SeqBAIJ_1_NaturalOrdering()
28 for (j = 0; j < nz; j++) tmp[vi[j]] -= s1 * v[j]; in MatSolveTranspose_SeqBAIJ_1_NaturalOrdering()
29 tmp[i] = s1; in MatSolveTranspose_SeqBAIJ_1_NaturalOrdering()
37 s1 = tmp[i]; in MatSolveTranspose_SeqBAIJ_1_NaturalOrdering()
38 for (j = 0; j < nz; j++) tmp[vi[j]] -= s1 * v[j]; in MatSolveTranspose_SeqBAIJ_1_NaturalOrdering()
57 PetscScalar s1, *x; in MatSolveTranspose_SeqBAIJ_1_NaturalOrdering_inplace() local
67 s1 = (*v++) * x[i]; in MatSolveTranspose_SeqBAIJ_1_NaturalOrdering_inplace()
70 while (nz--) x[*vi++] -= (*v++) * s1; in MatSolveTranspose_SeqBAIJ_1_NaturalOrdering_inplace()
71 x[i] = s1; in MatSolveTranspose_SeqBAIJ_1_NaturalOrdering_inplace()
78 s1 = x[i]; in MatSolveTranspose_SeqBAIJ_1_NaturalOrdering_inplace()
79 while (nz--) x[*vi--] -= (*v--) * s1; in MatSolveTranspose_SeqBAIJ_1_NaturalOrdering_inplace()