| /petsc/src/vec/is/ao/impls/mapping/ |
| H A D | aomapping.c | 54 PetscInt idex; in AOPetscToApplication_Mapping() local
64 idex = ia[i]; in AOPetscToApplication_Mapping()
65 if (idex < 0) continue; in AOPetscToApplication_Mapping()
71 if (idex == petsc[mid]) break; in AOPetscToApplication_Mapping()
72 else if (idex < petsc[mid]) high = mid - 1; in AOPetscToApplication_Mapping()
89 PetscInt idex; in AOApplicationToPetsc_Mapping() local
99 idex = ia[i]; in AOApplicationToPetsc_Mapping()
100 if (idex < 0) continue; in AOApplicationToPetsc_Mapping()
106 if (idex == app[mid]) break; in AOApplicationToPetsc_Mapping()
107 else if (idex < app[mid]) high = mid - 1; in AOApplicationToPetsc_Mapping()
[all …]
|
| /petsc/src/mat/graphops/color/impls/minpack/ |
| H A D | numsrt.c | 5 …srt(PetscInt *n, PetscInt *nmax, PetscInt *num, PetscInt *mode, PetscInt *idex, PetscInt *last, Pe… in MINPACKnumsrt() argument
59 --idex; in MINPACKnumsrt()
91 idex[i] = k; in MINPACKnumsrt()
|
| /petsc/src/mat/impls/dense/mpi/ |
| H A D | mmdense.c | 55 PetscMPIInt rank, size, tag0, tag1, idex, end, i, proc, nrqs, *rtable, *pa, nrqr; in MatCreateSubMatrices_MPIDense_Local() local
240 PetscCallMPI(MPI_Waitany(nrqr, r_waits1, &idex, r_status1 + i)); in MatCreateSubMatrices_MPIDense_Local()
242 rbuf1_i = rbuf1[idex]; /* Actual message from s_proc */ in MatCreateSubMatrices_MPIDense_Local()
248 PetscCall(PetscMalloc1((end - start) * N, &sbuf2[idex])); in MatCreateSubMatrices_MPIDense_Local()
249 sbuf2_i = sbuf2[idex]; in MatCreateSubMatrices_MPIDense_Local()
261 …PetscCallMPI(MPIU_Isend(sbuf2[idex], (end - start) * N, MPIU_SCALAR, s_proc, tag1, comm, s_waits2 … in MatCreateSubMatrices_MPIDense_Local()
|
| /petsc/src/vec/vec/utils/ |
| H A D | vinv.c | 181 PetscErrorCode VecStrideMax(Vec v, PetscInt start, PetscInt *idex, PetscReal *nrm) in VecStrideMax() argument
205 if (idex) *idex = id; in VecStrideMax()
207 if (!idex) { in VecStrideMax()
221 *idex = out.i; in VecStrideMax()
256 PetscErrorCode VecStrideMin(Vec v, PetscInt start, PetscInt *idex, PetscReal *nrm) in VecStrideMin() argument
280 if (idex) *idex = id; in VecStrideMin()
282 if (!idex) { in VecStrideMin()
296 *idex = out.i; in VecStrideMin()
495 PetscErrorCode VecStrideMaxAll(Vec v, PetscInt idex[], PetscReal nrm[]) in VecStrideMaxAll() argument
506 …PetscCheck(!idex, PETSC_COMM_SELF, PETSC_ERR_SUP, "No support yet for returning index; send mail t… in VecStrideMaxAll()
[all …]
|
| /petsc/src/ksp/pc/impls/tfs/ |
| H A D | xxt.c | 168 PetscInt i, j, k, idex; in xxt_generate() local
270 idex = PCTFS_ivec_linear_search(col, a_local2global, a_n); in xxt_generate()
271 PetscCheck(idex != -1, PETSC_COMM_SELF, PETSC_ERR_PLIB, "NOT FOUND!"); in xxt_generate()
272 v[idex] = 1.0; in xxt_generate()
275 idex = PCTFS_ivec_linear_search(col, a_local2global, a_m); in xxt_generate()
276 if (idex != -1) v[idex] = 1.0; in xxt_generate()
|
| /petsc/src/ksp/pc/impls/is/ |
| H A D | pcis.c | 550 const PetscInt *idex; in PCISScatterArrayNToVecB() local
556 PetscCall(ISGetIndices(pcis->is_B_local, &idex)); in PCISScatterArrayNToVecB()
560 for (i = 0; i < pcis->n_B; i++) array_B[i] = array_N[idex[i]]; in PCISScatterArrayNToVecB()
562 for (i = 0; i < pcis->n_B; i++) array_B[i] += array_N[idex[i]]; in PCISScatterArrayNToVecB()
566 for (i = 0; i < pcis->n_B; i++) array_N[idex[i]] = array_B[i]; in PCISScatterArrayNToVecB()
568 for (i = 0; i < pcis->n_B; i++) array_N[idex[i]] += array_B[i]; in PCISScatterArrayNToVecB()
571 PetscCall(ISRestoreIndices(pcis->is_B_local, &idex)); in PCISScatterArrayNToVecB()
|
| /petsc/src/mat/impls/aij/mpi/ |
| H A D | mpiov.c | 741 PetscMPIInt idex; in MatIncreaseOverlap_MPIAIJ_Once() local
745 PetscCallMPI(MPI_Waitany(nrqs, r_waits2, &idex, MPI_STATUS_IGNORE)); in MatIncreaseOverlap_MPIAIJ_Once()
747 rbuf2_i = rbuf2[idex]; in MatIncreaseOverlap_MPIAIJ_Once()
749 jmax = rbuf2[idex][0]; in MatIncreaseOverlap_MPIAIJ_Once()
1242 PetscMPIInt *onodes1, *olengths1, idex, end, *row2proc; in MatCreateSubMatrices_MPIAIJ_SingleIS_Local() local
1828 PetscCallMPI(MPI_Waitany(nrqs, r_waits4, &idex, r_status4 + i)); in MatCreateSubMatrices_MPIAIJ_SingleIS_Local()
1829 sbuf1_i = sbuf1[pa[idex]]; in MatCreateSubMatrices_MPIAIJ_SingleIS_Local()
1834 rbuf2_i = rbuf2[idex]; /* int** received length of C->j from other processes */ in MatCreateSubMatrices_MPIAIJ_SingleIS_Local()
1835 rbuf3_i = rbuf3[idex]; /* int** received C->j from other processes */ in MatCreateSubMatrices_MPIAIJ_SingleIS_Local()
1836 rbuf4_i = rbuf4[idex]; /* scalar** received C->a from other processes */ in MatCreateSubMatrices_MPIAIJ_SingleIS_Local()
[all …]
|
| /petsc/src/mat/impls/baij/mpi/ |
| H A D | baijov.c | 276 PetscMPIInt idex; in MatIncreaseOverlap_MPIBAIJ_Once() local
281 PetscCallMPI(MPI_Waitany(nrqs, r_waits2, &idex, MPI_STATUS_IGNORE)); in MatIncreaseOverlap_MPIBAIJ_Once()
283 rbuf2_i = rbuf2[idex]; in MatIncreaseOverlap_MPIBAIJ_Once()
285 jmax = rbuf2[idex][0]; in MatIncreaseOverlap_MPIBAIJ_Once()
|