| /petsc/src/mat/impls/sbaij/seq/ |
| H A D | aijsbaij.c | 12 MatScalar *av, *bv; in MatConvert_SeqSBAIJ_SeqAIJ() local
51 bv = b->a; in MatConvert_SeqSBAIJ_SeqAIJ()
77 *(bv + rowstart[itmp]) = *(av + k * bs + j); in MatConvert_SeqSBAIJ_SeqAIJ()
91 *(bv + rowstart[itmp]) = aconj ? PetscConj(*(av + j * bs + k)) : *(av + j * bs + k); in MatConvert_SeqSBAIJ_SeqAIJ()
100 *(bv + rowstart[itmp]) = *(av + k * bs + j); in MatConvert_SeqSBAIJ_SeqAIJ()
169 MatScalar *av, *bv; in MatConvert_SeqAIJ_SeqSBAIJ() local
203 bv = b->a; in MatConvert_SeqAIJ_SeqSBAIJ()
213 *bv = *av; in MatConvert_SeqAIJ_SeqSBAIJ()
214 bv++; in MatConvert_SeqAIJ_SeqSBAIJ()
242 MatScalar *av, *bv; in MatConvert_SeqSBAIJ_SeqBAIJ() local
[all …]
|
| /petsc/src/vec/vec/impls/nest/ |
| H A D | vecnest.c | 609 Vec_Nest *bv = (Vec_Nest *)v->data; in VecCreateLocalVector_Nest() local
619 PetscCall(PetscMalloc2(bv->nb, &ww, bv->nb, &wis)); in VecCreateLocalVector_Nest()
620 for (i = 0; i < bv->nb; i++) PetscCall(VecCreateLocalVector(bv->v[i], &ww[i])); in VecCreateLocalVector_Nest()
621 for (i = 0; i < bv->nb; i++) { in VecCreateLocalVector_Nest()
625 PetscCall(ISOnComm(bv->is[i], PetscObjectComm((PetscObject)ww[i]), PETSC_COPY_VALUES, &wis[i])); in VecCreateLocalVector_Nest()
628 PetscCall(VecCreateNest(PETSC_COMM_SELF, bv->nb, wis, ww, w)); in VecCreateLocalVector_Nest()
629 for (i = 0; i < bv->nb; i++) { in VecCreateLocalVector_Nest()
639 Vec_Nest *bv = (Vec_Nest *)v->data; in VecGetLocalVector_Nest() local
645 …PetscCheck(bv->nb == bw->nb, PetscObjectComm((PetscObject)w), PETSC_ERR_ARG_WRONG, "Invalid local … in VecGetLocalVector_Nest()
646 for (i = 0; i < bv->nb; i++) PetscCall(VecGetLocalVector(bv->v[i], bw->v[i])); in VecGetLocalVector_Nest()
[all …]
|
| /petsc/src/snes/tests/ |
| H A D | ex17.c | 338 Vec bv; in block_system() local
467 bv = vecs[0]; in block_system()
469 PetscCall(VecSetValue(bv, 0, 2.0, INSERT_VALUES)); /* xx[0] = 2.0; */ in block_system()
470 PetscCall(VecAssemblyBegin(bv)); in block_system()
471 PetscCall(VecAssemblyEnd(bv)); in block_system()
474 bv = vecs[1]; in block_system()
475 PetscCall(VecSetValue(bv, 0, 3.0, INSERT_VALUES)); /* xx[1] = 3.0; */ in block_system()
476 PetscCall(VecAssemblyBegin(bv)); in block_system()
477 PetscCall(VecAssemblyEnd(bv)); in block_system()
|
| /petsc/src/mat/impls/aij/mpi/mkl_cpardiso/ |
| H A D | mkl_cpardiso.c | 148 const PetscScalar *av, *bv; in MatConvertToTriples_mpiaij_mpiaij_MKL_CPARDISO() local
162 bv = bb->a; in MatConvertToTriples_mpiaij_mpiaij_MKL_CPARDISO()
194 val[nz++] = *bv++; in MatConvertToTriples_mpiaij_mpiaij_MKL_CPARDISO()
207 val[nz++] = *bv++; in MatConvertToTriples_mpiaij_mpiaij_MKL_CPARDISO()
219 const PetscScalar *av, *bv; in MatConvertToTriples_mpibaij_mpibaij_MKL_CPARDISO() local
233 bv = bb->a; in MatConvertToTriples_mpibaij_mpibaij_MKL_CPARDISO()
267 PetscCall(PetscArraycpy(val, bv, jB * bs2)); in MatConvertToTriples_mpibaij_mpibaij_MKL_CPARDISO()
269 bv += jB * bs2; in MatConvertToTriples_mpibaij_mpibaij_MKL_CPARDISO()
279 PetscCall(PetscArraycpy(val, bv, (countB - jB) * bs2)); in MatConvertToTriples_mpibaij_mpibaij_MKL_CPARDISO()
281 bv += (countB - jB) * bs2; in MatConvertToTriples_mpibaij_mpibaij_MKL_CPARDISO()
[all …]
|
| /petsc/src/mat/impls/dense/mpi/ |
| H A D | mpidense.c | 291 PetscScalar *bv; in MatCreateSubMatrix_MPIDense() local
330 PetscCall(MatDenseGetArray(newmatd->A, &bv)); in MatCreateSubMatrix_MPIDense()
335 for (j = 0; j < nrows; j++) *bv++ = av[irow[j] - rstart]; in MatCreateSubMatrix_MPIDense()
338 PetscCall(MatDenseRestoreArray(newmatd->A, &bv)); in MatCreateSubMatrix_MPIDense()
2272 const PetscScalar *av, *bv; in MatMatTransposeMultNumeric_MPIDense_MPIDense_Cyclic() local
2285 PetscCall(MatDenseGetArrayRead(b->A, &bv)); in MatMatTransposeMultNumeric_MPIDense_MPIDense_Cyclic()
2296 sendbuf = (PetscScalar *)bv; in MatMatTransposeMultNumeric_MPIDense_MPIDense_Cyclic()
2300 for (j = 0; j < bn; j++, k++) sendbuf[k] = bv[i * blda + j]; in MatMatTransposeMultNumeric_MPIDense_MPIDense_Cyclic()
2339 PetscCall(MatDenseRestoreArrayRead(b->A, &bv)); in MatMatTransposeMultNumeric_MPIDense_MPIDense_Cyclic()
2354 const PetscScalar *av, *bv; in MatMatTransposeMultNumeric_MPIDense_MPIDense_Allgatherv() local
[all …]
|
| /petsc/src/mat/impls/dense/seq/ |
| H A D | dense.c | 2557 PetscScalar *av, *bv, *v = mat->v; in MatCreateSubMatrix_SeqDense() local
2584 PetscCall(MatDenseGetArray(newmat, &bv)); in MatCreateSubMatrix_SeqDense()
2588 for (j = 0; j < nrows; j++) bv[j] = av[irow[j]]; in MatCreateSubMatrix_SeqDense()
2589 bv += ldb; in MatCreateSubMatrix_SeqDense()
2591 PetscCall(MatDenseRestoreArray(newmat, &bv)); in MatCreateSubMatrix_SeqDense()
2726 const PetscScalar *av, *bv; in MatMatMultNumeric_SeqDense_SeqDense() local
2736 PetscCall(MatDenseGetArrayRead(B, &bv)); in MatMatMultNumeric_SeqDense_SeqDense()
2738 …PetscCallBLAS("BLASgemm", BLASgemm_("N", "N", &m, &n, &k, &_DOne, av, &a->lda, bv, &b->lda, &_DZer… in MatMatMultNumeric_SeqDense_SeqDense()
2741 PetscCall(MatDenseRestoreArrayRead(B, &bv)); in MatMatMultNumeric_SeqDense_SeqDense()
2774 const PetscScalar *av, *bv; in MatMatTransposeMultNumeric_SeqDense_SeqDense() local
[all …]
|
| /petsc/src/mat/impls/nest/ |
| H A D | matnest.c | 742 Vec bv; in MatGetDiagonal_Nest() local
743 PetscCall(VecGetSubVector(v, bA->isglobal.row[i], &bv)); in MatGetDiagonal_Nest()
745 PetscCall(MatGetDiagonal(bA->m[i][i], bv)); in MatGetDiagonal_Nest()
747 PetscCall(VecSet(bv, 0.0)); in MatGetDiagonal_Nest()
749 PetscCall(VecRestoreSubVector(v, bA->isglobal.row[i], &bv)); in MatGetDiagonal_Nest()
822 Vec bv; in MatDiagonalSet_Nest() local
823 PetscCall(VecGetSubVector(D, bA->isglobal.row[i], &bv)); in MatDiagonalSet_Nest()
825 PetscCall(MatDiagonalSet(bA->m[i][i], bv, is)); in MatDiagonalSet_Nest()
828 PetscCall(VecRestoreSubVector(D, bA->isglobal.row[i], &bv)); in MatDiagonalSet_Nest()
|
| /petsc/src/mat/impls/aij/mpi/mumps/ |
| H A D | mumps.c | 1071 const PetscScalar *av, *bv, *v1, *v2; in MatConvertToTriples_mpisbaij_mpisbaij() local
1093 bv = bb->a; in MatConvertToTriples_mpisbaij_mpisbaij()
1117 v2 = bv + bi[i] * bs2; in MatConvertToTriples_mpisbaij_mpisbaij()
1177 const PetscScalar *av, *bv, *v1, *v2; in MatConvertToTriples_mpiaij_mpiaij() local
1186 PetscCall(MatSeqAIJGetArrayRead(Ao, &bv)); in MatConvertToTriples_mpiaij_mpiaij()
1218 v2 = bv + bi[i]; in MatConvertToTriples_mpiaij_mpiaij()
1240 PetscCall(MatSeqAIJRestoreArrayRead(Ao, &bv)); in MatConvertToTriples_mpiaij_mpiaij()
1255 const PetscScalar *av = aa->a, *bv = bb->a, *v1, *v2; in MatConvertToTriples_mpibaij_mpiaij() local
1280 v2 = bv + bs2 * bi[i]; in MatConvertToTriples_mpibaij_mpiaij()
1319 const PetscScalar *av, *bv, *v1, *v2; in MatConvertToTriples_mpiaij_mpisbaij() local
[all …]
|
| /petsc/src/ksp/pc/impls/hypre/ |
| H A D | hypre.c | 275 HYPRE_ParVector bv, xv; in PCSetUp_HYPRE() local
554 PetscCallHYPRE(HYPRE_IJVectorGetObject(hjac->b->ij, (void **)&bv)); in PCSetUp_HYPRE()
557 PetscCallHYPRE((*jac->setup)(jac->hsolver, hmat, bv, xv)); in PCSetUp_HYPRE()
|
| /petsc/src/mat/impls/aij/mpi/ |
| H A D | mpiaij.c | 1891 const MatScalar *pbv, *bv; in MatTranspose_MPIAIJ() local
1953 PetscCall(MatSeqAIJGetArrayRead(a->B, &bv)); in MatTranspose_MPIAIJ()
1954 pbv = bv; in MatTranspose_MPIAIJ()
1966 PetscCall(MatSeqAIJRestoreArrayRead(a->B, &bv)); in MatTranspose_MPIAIJ()
|
| /petsc/share/petsc/datafiles/meshes/ |
| H A D | testcase3D.cas | 4980 (electrolysis/bv-rate #t)
5006 (lithium/linearized-bv-rate? #f)
5110 (potential/bv-rate-yi-min 9.999999999999999e-21)
5114 (potential/fully-implicit-treatment-for-bv-eq? #t)
6147 (udf/bv-rate-fcn "none")
6205 (udf/battery/newman-bv-rate-fcn "none")
|