| /petsc/src/vec/vec/utils/ |
| H A D | vecstash.c | 61 stash->svalues = NULL; in VecStashCreate_Private()
123 PetscCall(PetscFree2(stash->svalues, stash->sindices)); in VecStashScatterEnd_Private()
225 PetscScalar *rvalues, *svalues; in VecStashScatterBegin_Private() local
272 PetscCall(PetscMalloc2(stash->n * bs, &svalues, stash->n, &sindices)); in VecStashScatterBegin_Private()
281 if (bs == 1) svalues[start[j]] = stash->array[i]; in VecStashScatterBegin_Private()
282 else PetscCall(PetscArraycpy(svalues + bs * start[j], stash->array + bs * i, bs)); in VecStashScatterBegin_Private()
291 …PetscCallMPI(MPIU_Isend(svalues + bs * start[i], bs * nprocs[2 * i], MPIU_SCALAR, i, tag1, comm, s… in VecStashScatterBegin_Private()
301 stash->svalues = svalues; in VecStashScatterBegin_Private()
|
| /petsc/src/mat/impls/adj/mpi/ |
| H A D | mpiadj.c | 14 PetscInt *ncols_recv_offsets, loc, rnclos, *sadjncy, *sxadj, *svalues; in MatCreateSubMatrix_MPIAdj_data() local
103 if (a->useedgeweights) PetscCall(PetscCalloc1(rnclos, &svalues)); in MatCreateSubMatrix_MPIAdj_data()
110 if (a->useedgeweights) svalues[rnclos] = values_recv[j]; in MatCreateSubMatrix_MPIAdj_data()
122 if (a->useedgeweights) *sadj_values = svalues; in MatCreateSubMatrix_MPIAdj_data()
125 if (a->useedgeweights) PetscCall(PetscFree(svalues)); in MatCreateSubMatrix_MPIAdj_data()
135 PetscInt i, irow_n, icol_n, *sxadj, *sadjncy, *svalues; in MatCreateSubMatrices_MPIAdj_Private() local
169 svalues = NULL; in MatCreateSubMatrices_MPIAdj_Private()
170 PetscCall(MatCreateSubMatrix_MPIAdj_data(mat, irow[i], icol[i], &sxadj, &sadjncy, &svalues)); in MatCreateSubMatrices_MPIAdj_Private()
190 PetscCall(MatCreateMPIAdj(scomm_row, irow_n, icol_n, sxadj, sadjncy, svalues, submat[i])); in MatCreateSubMatrices_MPIAdj_Private()
199 if (svalues) PetscCall(PetscArraycpy(sa->values, svalues, sxadj[irow_n])); in MatCreateSubMatrices_MPIAdj_Private()
[all …]
|
| /petsc/src/mat/impls/sell/mpi/ |
| H A D | mpisell.h | 16 PetscScalar *svalues, *rvalues; /* sending and receiving data */ member
|
| /petsc/src/mat/utils/ |
| H A D | matstash.c | 72 stash->svalues = NULL; in MatStashCreate_Private()
163 PetscCall(PetscFree2(stash->svalues, stash->sindices)); in MatStashScatterEnd_Ref()
449 PetscScalar **rvalues, *svalues; in MatStashScatterBegin_Ref() local
522 PetscCall(PetscMalloc2(bs2 * stash->n, &svalues, 2 * (stash->n + 1), &sindices)); in MatStashScatterBegin_Ref()
543 svalues[startv[j]] = sp_val[l]; in MatStashScatterBegin_Ref()
547 buf1 = svalues + bs2 * startv[j]; in MatStashScatterBegin_Ref()
565 …PetscCallMPI(MPIU_Isend(svalues + bs2 * startv[i], bs2 * nlengths[i], MPIU_SCALAR, i, tag2, comm, … in MatStashScatterBegin_Ref()
591 stash->svalues = svalues; in MatStashScatterBegin_Ref()
|
| /petsc/src/ksp/pc/impls/redistribute/ |
| H A D | redistribute.c | 82 PetscInt *rvalues, *svalues, recvtotal; in PCSetUp_Redistribute() local
201 PetscCall(PetscMalloc3(cnt, &svalues, nsends, &send_waits, size, &starts)); in PCSetUp_Redistribute()
204 for (PetscInt i = 0; i < cnt; i++) svalues[starts[owner[i]]++] = rows[i]; in PCSetUp_Redistribute()
214 …if (sizes[i]) PetscCallMPI(MPIU_Isend(svalues + starts[i], sizes[i], MPIU_INT, i, tag, comm, send_… in PCSetUp_Redistribute()
240 PetscCall(PetscFree3(svalues, send_waits, starts)); in PCSetUp_Redistribute()
|
| /petsc/src/mat/impls/scalapack/ |
| H A D | matscalapack.c | 1519 PetscScalar **rvalues, *svalues; in MatStashScatterBegin_ScaLAPACK() local
1590 PetscCall(PetscMalloc2(bs2 * stash->n, &svalues, 2 * (stash->n + 1), &sindices)); in MatStashScatterBegin_ScaLAPACK()
1611 svalues[startv[j]] = sp_val[l]; in MatStashScatterBegin_ScaLAPACK()
1615 buf1 = svalues + bs2 * startv[j]; in MatStashScatterBegin_ScaLAPACK()
1633 …PetscCallMPI(MPIU_Isend(svalues + bs2 * startv[i], bs2 * nlengths[i], MPIU_SCALAR, i, tag2, comm, … in MatStashScatterBegin_ScaLAPACK()
1659 stash->svalues = svalues; in MatStashScatterBegin_ScaLAPACK()
|
| /petsc/src/mat/impls/aij/mpi/ |
| H A D | mpiaij.h | 50 MatScalar *svalues, *rvalues; /* sending and receiving data */ \
|
| H A D | mpiaij.c | 5769 …ncols = 0, aBn = a->B->cmap->n, row, *b_othi, *b_othj, *rvalues = NULL, *svalues = NULL, *cols, sb… in MatGetBrowsOfAoCols_MPIAIJ() local
5821 PetscCall(PetscMalloc1(sbs * (sstarts[nsends] - sstarts[0]), &svalues)); in MatGetBrowsOfAoCols_MPIAIJ()
5824 rowlen = svalues + (sstarts[i] - sstarts[0]) * sbs; in MatGetBrowsOfAoCols_MPIAIJ()
5844 PetscCall(PetscFree(svalues)); in MatGetBrowsOfAoCols_MPIAIJ()
|
| /petsc/include/petsc/private/ |
| H A D | vecimpl.h | 143 PetscScalar *svalues, *rvalues; /* sending and receiving data */ member
|
| H A D | matimpl.h | 357 PetscScalar *svalues; /* sending data */ member
741 PetscScalar *svalues, *rvalues; /* sending and receiving data */ member
|
| /petsc/src/mat/impls/sbaij/mpi/ |
| H A D | mpisbaij.c | 2512 PetscReal *work, *svalues, *rvalues; in MatGetRowMaxAbs_MPISBAIJ() local
2566 svalues = work + rowners_bs[dest]; in MatGetRowMaxAbs_MPISBAIJ()
2568 … PetscCallMPI(MPIU_Send(svalues, count, MPIU_REAL, dest, rank, PetscObjectComm((PetscObject)A))); in MatGetRowMaxAbs_MPISBAIJ()
|