| /petsc/src/mat/impls/aij/seq/ |
| H A D | inode.c | 375 PetscScalar sum1, sum2, sum3, sum4, sum5, tmp0, tmp1; in MatMult_SeqAIJ_Inode() local
441 sum3 = 0.; in MatMult_SeqAIJ_Inode()
455 sum3 += v3[0] * tmp0 + v3[1] * tmp1; in MatMult_SeqAIJ_Inode()
462 sum3 += *v3++ * tmp0; in MatMult_SeqAIJ_Inode()
466 y[row++] = sum3; in MatMult_SeqAIJ_Inode()
473 sum3 = 0.; in MatMult_SeqAIJ_Inode()
489 sum3 += v3[0] * tmp0 + v3[1] * tmp1; in MatMult_SeqAIJ_Inode()
498 sum3 += *v3++ * tmp0; in MatMult_SeqAIJ_Inode()
503 y[row++] = sum3; in MatMult_SeqAIJ_Inode()
511 sum3 = 0.; in MatMult_SeqAIJ_Inode()
[all …]
|
| /petsc/src/vec/vec/impls/seq/ftn-kernels/ |
| H A D | fmdot.F90 | 10 PetscScalar, intent(inout) :: sum1, sum2, sum3, sum4
25 sum3 = sum3 + x(i)*PetscConj(y3(i))
33 PetscScalar, intent(inout) :: sum1, sum2, sum3
47 sum3 = sum3 + x(i)*PetscConj(y3(i))
|
| /petsc/src/vec/vec/impls/seq/ |
| H A D | dvec2.c | 14 PetscScalar sum0 = 0., sum1 = 0., sum2 = 0., sum3; in VecMDot_Seq() local
59 sum3 = 0.; in VecMDot_Seq()
64 fortranmdot4_(x, yy0, yy1, yy2, yy3, &n, &sum0, &sum1, &sum2, &sum3); in VecMDot_Seq()
73 z[3] = sum3; in VecMDot_Seq()
87 PetscScalar sum0 = 0.0, sum1 = 0.0, sum2 = 0.0, sum3, x0, x1, x2, x3; in VecMDot_Seq() local
230 sum3 = 0.; in VecMDot_Seq()
244 sum3 += x2 * PetscConj(yy3[2]); /* fall through */ in VecMDot_Seq()
250 sum3 += x1 * PetscConj(yy3[1]); /* fall through */ in VecMDot_Seq()
256 sum3 += x0 * PetscConj(yy3[0]); /* fall through */ in VecMDot_Seq()
279 …sum3 += x0 * PetscConj(yy3[0]) + x1 * PetscConj(yy3[1]) + x2 * PetscConj(yy3[2]) + x3 * PetscConj(… in VecMDot_Seq()
[all …]
|
| /petsc/src/mat/impls/baij/seq/ |
| H A D | baij2.c | 337 PetscScalar *z = NULL, sum1, sum2, sum3, x1, x2, x3, *zarray; in MatMult_SeqBAIJ_3() local
369 sum3 = 0.0; in MatMult_SeqBAIJ_3()
380 sum3 += v[2] * x1 + v[5] * x2 + v[8] * x3; in MatMult_SeqBAIJ_3()
386 z[2] = sum3; in MatMult_SeqBAIJ_3()
398 PetscScalar *z = NULL, sum1, sum2, sum3, sum4, x1, x2, x3, x4, *zarray; in MatMult_SeqBAIJ_4() local
426 sum3 = 0.0; in MatMult_SeqBAIJ_4()
439 sum3 += v[2] * x1 + v[6] * x2 + v[10] * x3 + v[14] * x4; in MatMult_SeqBAIJ_4()
446 z[2] = sum3; in MatMult_SeqBAIJ_4()
459 PetscScalar *z = NULL, sum1, sum2, sum3, sum4, sum5, x1, x2, x3, x4, x5, *zarray; in MatMult_SeqBAIJ_5() local
488 sum3 = 0.0; in MatMult_SeqBAIJ_5()
[all …]
|
| /petsc/src/snes/tutorials/ |
| H A D | ex69.c | 199 PetscReal sum1, sum2, sum3, sum4, sum5, sum6; in SolKxSolution() local
241 sum3 = 0.0; in SolKxSolution()
641 sum3 += u3; in SolKxSolution()
656 s[0] = sum3; in SolKxSolution()
662 gamma[0] = (sum3 + sum5) / (2.0 * Z); in SolKxSolution()
766 PetscReal sum1 = 0.0, sum2 = 0.0, sum3 = 0.0, sum4 = 0.0, sum5 = 0.0, sum6 = 0.0; in SolCxSolution() local
2949 sum3 += u3; in SolCxSolution()
2961 s[0] = sum3; in SolCxSolution()
2967 gamma[0] = (sum3 + sum5) / (2.0 * Z); in SolCxSolution()
|
| /petsc/src/ksp/ksp/tutorials/ |
| H A D | ex43-solcx.h | 8 PetscReal sum1, sum2, sum3, sum4, sum5, sum6, x, z, xc; in evaluate_solCx() local
66 sum3 = 0.0; in evaluate_solCx()
2238 sum3 += u3; in evaluate_solCx()
2250 total_stress[0] = sum3; in evaluate_solCx()
2258 strain_rate[0] = (sum3 + sum5) / (2.0 * Z); in evaluate_solCx()
|