| /petsc/src/sys/fileio/ |
| H A D | fretrieve.c | 336 PetscErrorCode PetscFileRetrieve(MPI_Comm comm, const char url[], char localname[], size_t llen, Pe… in PetscFileRetrieve() argument
362 PetscCall(PetscStrncpy(localname, url, llen)); in PetscFileRetrieve()
374 PetscCall(PetscStrncpy(localname, url, llen)); in PetscFileRetrieve()
383 PetscCall(PetscStrncpy(localname, tlocalname, llen)); in PetscFileRetrieve()
393 PetscCall(PetscStrncpy(localname, tlocalname, llen)); in PetscFileRetrieve()
425 PetscCall(PetscStrncpy(localname, url, llen)); in PetscFileRetrieve()
443 PetscCall(PetscStrncpy(localname, name, llen)); in PetscFileRetrieve()
449 PetscCallMPI(MPI_Bcast(localname, (PetscMPIInt)llen, MPI_CHAR, 0, comm)); in PetscFileRetrieve()
|
| /petsc/src/vec/is/is/utils/ |
| H A D | isdiff.c | 621 PetscInt *inds, *colors, llen, ilen, lstart, lend, lcount, l; in ISPairToList() local
636 PetscCall(ISGetLocalSize(coloris, &llen)); in ISPairToList()
638 …PetscCheck(llen == ilen, comm, PETSC_ERR_ARG_SIZ, "Incompatible IS sizes: %" PetscInt_FMT " and %"… in ISPairToList()
641 PetscCall(PetscMalloc2(ilen, &inds, llen, &colors)); in ISPairToList()
643 PetscCall(PetscArraycpy(colors, ccolors, llen)); in ISPairToList()
644 PetscCall(PetscSortIntWithArray(llen, colors, inds)); in ISPairToList()
650 while (lstart < llen) { in ISPairToList()
652 while (lend < llen && colors[lend] == colors[lstart]) ++lend; in ISPairToList()
678 if (lstart < llen) { in ISPairToList()
682 while (lend < llen && colors[lend] == colors[lstart]) ++lend; in ISPairToList()
|
| /petsc/src/vec/vec/impls/shared/ |
| H A D | shvec.c | 104 PetscErrorCode PetscSharedMalloc(MPI_Comm comm, PetscInt llen, PetscInt len, void **result) in PetscSharedMalloc() argument
114 PetscCallMPI(MPI_Scan(&llen, &shift, 1, MPI_INT, MPI_SUM, comm)); in PetscSharedMalloc()
115 shift -= llen; in PetscSharedMalloc()
|
| /petsc/src/sys/utils/ |
| H A D | sortso.c | 212 const PetscInt llen = mid - left; in PetscTimSortMergeLo_Private() local
215 Petsc_memcpy(tarr, arr + (left * size), llen * size); in PetscTimSortMergeLo_Private()
216 while ((i < llen) && (j <= right)) { in PetscTimSortMergeLo_Private()
221 if (++i < llen && ++gallopleft >= MIN_GALLOP_GLOBAL) { in PetscTimSortMergeLo_Private()
226 …PetscCall(PetscGallopSearchLeft_Private(tarr, size, cmp, ctx, i, llen - 1, arr + (j * size), &l1)); in PetscTimSortMergeLo_Private()
237 if (i >= llen || j > right) break; in PetscTimSortMergeLo_Private()
256 …PetscCall(PetscGallopSearchLeft_Private(tarr, size, cmp, ctx, i, llen - 1, arr + (j * size), &l1)); in PetscTimSortMergeLo_Private()
261 if (i >= llen || j > right) break; in PetscTimSortMergeLo_Private()
267 if (i < llen) Petsc_memcpy(arr + (k * size), tarr + (i * size), (llen - i) * size); in PetscTimSortMergeLo_Private()
274 const PetscInt llen = mid - left; in PetscTimSortMergeLoWithArray_Private() local
[all …]
|
| /petsc/src/sys/dll/ |
| H A D | dl.c | 52 …DLLibraryRetrieve(MPI_Comm comm, const char libname[], char lname[], size_t llen, PetscBool *found) in PetscDLLibraryRetrieve() argument
79 PetscCall(PetscFileRetrieve(comm, par2, lname, llen, found)); in PetscDLLibraryRetrieve()
92 PetscCall(PetscFileRetrieve(comm, par2, lname, llen, found)); in PetscDLLibraryRetrieve()
|
| /petsc/src/mat/impls/aij/seq/kokkos/ |
| H A D | aijkok.kokkos.cxx | 1961 PetscInt llen = Bi[i + 1] - Bi[i]; // exclusive of the diagonal entry in MatLUFactorNumeric_SeqAIJKokkos() local
1964 …PetscCall(PetscArraycpy(Lj + Li[i], Bj + Bi[i], llen)); // entries of L on the left of the diagonal in MatLUFactorNumeric_SeqAIJKokkos()
1965 Lj[Li[i] + llen] = i; // diagonal entry of L in MatLUFactorNumeric_SeqAIJKokkos()
1970 Li[i + 1] = Li[i] + llen + 1; in MatLUFactorNumeric_SeqAIJKokkos()
2022 PetscInt llen = Bi[i + 1] - Bi[i]; in MatLUFactorNumeric_SeqAIJKokkos() local
2030 PetscCall(PetscArraycpy(La + Li[i], Ba + Bi[i], llen)); // entries of L in MatLUFactorNumeric_SeqAIJKokkos()
2031 La[Li[i] + llen] = 1.0; // diagonal entry in MatLUFactorNumeric_SeqAIJKokkos()
|
| /petsc/src/mat/impls/aij/seq/seqcusparse/ |
| H A D | aijcusparse.cu | 221 PetscInt llen = Ai[i + 1] - Ai[i]; in MatSeqAIJCUSPARSEBuildFactoredMatrix_LU() local
223 … PetscCall(PetscArraycpy(Mj + Mi[i], Aj + Ai[i], llen)); // entries of L in MatSeqAIJCUSPARSEBuildFactoredMatrix_LU()
224 …Mj[Mi[i] + llen] = i; // diagonal entry in MatSeqAIJCUSPARSEBuildFactoredMatrix_LU()
225 …PetscCall(PetscArraycpy(Mj + Mi[i] + llen + 1, Aj + adiag[i + 1] + 1, ulen - 1)); // entries of U … in MatSeqAIJCUSPARSEBuildFactoredMatrix_LU()
226 Mi[i + 1] = Mi[i] + llen + ulen; in MatSeqAIJCUSPARSEBuildFactoredMatrix_LU()
279 PetscInt llen = Ai[i + 1] - Ai[i]; in MatSeqAIJCUSPARSEBuildFactoredMatrix_LU() local
281 … PetscCall(PetscArraycpy(Ma + Mi[i], Aa + Ai[i], llen)); // entries of L in MatSeqAIJCUSPARSEBuildFactoredMatrix_LU()
282 …Ma[Mi[i] + llen] = (MatScalar)1.0 / Aa[adiag[i]]; // recover the d… in MatSeqAIJCUSPARSEBuildFactoredMatrix_LU()
283 …PetscCall(PetscArraycpy(Ma + Mi[i] + llen + 1, Aa + adiag[i + 1] + 1, ulen - 1)); // entries of U … in MatSeqAIJCUSPARSEBuildFactoredMatrix_LU()
|