Lines Matching refs:s1
11 PetscScalar *x, *tmp, s1; in MatSolveTranspose_SeqBAIJ_1() local
33 s1 = tmp[i]; in MatSolveTranspose_SeqBAIJ_1()
34 s1 *= v[nz]; /* multiply by inverse of diagonal entry */ in MatSolveTranspose_SeqBAIJ_1()
35 for (j = 0; j < nz; j++) tmp[vi[j]] -= s1 * v[j]; in MatSolveTranspose_SeqBAIJ_1()
36 tmp[i] = s1; in MatSolveTranspose_SeqBAIJ_1()
44 s1 = tmp[i]; in MatSolveTranspose_SeqBAIJ_1()
45 for (j = 0; j < nz; j++) tmp[vi[j]] -= s1 * v[j]; in MatSolveTranspose_SeqBAIJ_1()
68 PetscScalar s1, *x, *t; in MatSolveTranspose_SeqBAIJ_1_inplace() local
88 s1 = (*v++) * t[i]; in MatSolveTranspose_SeqBAIJ_1_inplace()
91 while (nz--) t[*vi++] -= (*v++) * s1; in MatSolveTranspose_SeqBAIJ_1_inplace()
92 t[i] = s1; in MatSolveTranspose_SeqBAIJ_1_inplace()
99 s1 = t[i]; in MatSolveTranspose_SeqBAIJ_1_inplace()
100 while (nz--) t[*vi--] -= (*v--) * s1; in MatSolveTranspose_SeqBAIJ_1_inplace()