| /petsc/src/vec/vec/impls/seq/ftn-kernels/ |
| H A D | fmdot.F90 | 10 PetscScalar, intent(inout) :: sum1, sum2, sum3, sum4
24 sum2 = sum2 + x(i)*PetscConj(y2(i))
33 PetscScalar, intent(inout) :: sum1, sum2, sum3
46 sum2 = sum2 + x(i)*PetscConj(y2(i))
54 PetscScalar, intent(inout) :: sum1, sum2
66 sum2 = sum2 + x(i)*PetscConj(y2(i))
|
| /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
414 sum2 = 0.; in MatMult_SeqAIJ_Inode()
425 sum2 += v2[0] * tmp0 + v2[1] * tmp1; in MatMult_SeqAIJ_Inode()
431 sum2 += *v2++ * tmp0; in MatMult_SeqAIJ_Inode()
434 y[row++] = sum2; in MatMult_SeqAIJ_Inode()
440 sum2 = 0.; in MatMult_SeqAIJ_Inode()
453 sum2 += v2[0] * tmp0 + v2[1] * tmp1; in MatMult_SeqAIJ_Inode()
461 sum2 += *v2++ * tmp0; in MatMult_SeqAIJ_Inode()
465 y[row++] = sum2; in MatMult_SeqAIJ_Inode()
472 sum2 = 0.; in MatMult_SeqAIJ_Inode()
[all …]
|
| /petsc/src/vec/vec/impls/seq/ |
| H A D | dvec2.c | 14 PetscScalar sum0 = 0., sum1 = 0., sum2 = 0., sum3; in VecMDot_Seq() local
25 fortranmdot3_(x, yy0, yy1, yy2, &n, &sum0, &sum1, &sum2); in VecMDot_Seq()
31 z[2] = sum2; in VecMDot_Seq()
58 sum2 = 0.; in VecMDot_Seq()
64 fortranmdot4_(x, yy0, yy1, yy2, yy3, &n, &sum0, &sum1, &sum2, &sum3); in VecMDot_Seq()
72 z[2] = sum2; in VecMDot_Seq()
87 PetscScalar sum0 = 0.0, sum1 = 0.0, sum2 = 0.0, sum3, x0, x1, x2, x3; in VecMDot_Seq() local
108 sum2 += x2 * PetscConj(yy2[2]); /* fall through */ in VecMDot_Seq()
113 sum2 += x1 * PetscConj(yy2[1]); /* fall through */ in VecMDot_Seq()
118 sum2 += x0 * PetscConj(yy2[0]); /* fall through */ in VecMDot_Seq()
[all …]
|
| /petsc/src/mat/impls/baij/seq/ |
| H A D | baij2.c | 284 PetscScalar *z = NULL, sum1, sum2, *zarray; in MatMult_SeqBAIJ_2() local
312 sum2 = 0.0; in MatMult_SeqBAIJ_2()
320 sum2 += v[1] * x1 + v[3] * x2; in MatMult_SeqBAIJ_2()
325 z[1] = sum2; in MatMult_SeqBAIJ_2()
337 PetscScalar *z = NULL, sum1, sum2, sum3, x1, x2, x3, *zarray; in MatMult_SeqBAIJ_3() local
368 sum2 = 0.0; in MatMult_SeqBAIJ_3()
379 sum2 += v[1] * x1 + v[4] * x2 + v[7] * x3; in MatMult_SeqBAIJ_3()
385 z[1] = sum2; in MatMult_SeqBAIJ_3()
398 PetscScalar *z = NULL, sum1, sum2, sum3, sum4, x1, x2, x3, x4, *zarray; in MatMult_SeqBAIJ_4() local
425 sum2 = 0.0; in MatMult_SeqBAIJ_4()
[all …]
|
| /petsc/src/snes/tutorials/ |
| H A D | ex69.c | 199 PetscReal sum1, sum2, sum3, sum4, sum5, sum6; in SolKxSolution() local
240 sum2 = 0.0; in SolKxSolution()
638 sum2 += u2; in SolKxSolution()
652 vel[1] = sum2; 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
2947 sum2 += u2; in SolCxSolution()
2957 vel[1] = sum2; 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
65 sum2 = 0.0; in evaluate_solCx()
2236 sum2 += u2; in evaluate_solCx()
2245 vel[1] = sum2; in evaluate_solCx()
|