| /petsc/src/ksp/pc/impls/mpi/ |
| H A D | pcmpi.c | 93 PC_MPI *km = pc ? (PC_MPI *)pc->data : NULL; in PCMPICreate() local
114 if (km) mincntperrank = km->mincntperrank; in PCMPICreate()
127 PetscCallMPI(MPI_Gather(&ksp, 1, MPI_AINT, pc ? km->ksps : NULL, 1, MPI_AINT, 0, comm)); in PCMPICreate()
158 PC_MPI *km = pc ? (PC_MPI *)pc->data : NULL; in PCMPISetMat() local
174 PetscCallMPI(MPI_Scatter(pc ? km->ksps : NULL, 1, MPI_AINT, &ksp, 1, MPI_AINT, 0, comm)); in PCMPISetMat()
227 NZ = km->NZ; in PCMPISetMat()
228 NZdispl = km->NZdispl; in PCMPISetMat()
302 km->sendcount[i] = range[i + 1] - range[i]; in PCMPISetMat()
303 km->displ[i] = range[i]; in PCMPISetMat()
315 PC_MPI *km = pc ? (PC_MPI *)pc->data : NULL; in PCMPIUpdateMatValues() local
[all …]
|
| /petsc/src/mat/tests/ |
| H A D | ex209f.F90 | 11 PetscScalar, pointer :: km(:, :)
27 allocate (km(three, three))
30 km(i, j) = i + j
34 …PetscCallA(MatSetValuesBlocked(A, one, idxm, one, idxm, reshape(km, [three*three]), ADD_VALUES, ie…
44 deallocate (km)
|
| H A D | ex262f.F90 | 8 PetscScalar, pointer :: km(:, :)
26 allocate (km(three, three))
29 km(1, 1) = i + j
32 … PetscCallA(MatSetValues(B, one, idxm, one, idxmj, reshape(km, [three*three]), ADD_VALUES, ierr))
43 deallocate (km)
|
| /petsc/src/snes/tutorials/ |
| H A D | ex75.c | 54 PetscErrorCode SolKxSolution(PetscReal x, PetscReal z, PetscReal kn, PetscReal km, PetscReal B, Pet… in SolKxSolution() argument
85 a = B * B + km * km; in SolKxSolution()
86 b = 2.0 * km * B; in SolKxSolution()
97 t4 = km * km; in SolKxSolution()
101 t12 = 0.8e1 * t7 * kn * km; in SolKxSolution()
111 t7 = km * km; in SolKxSolution()
115 t16 = 0.8e1 * t4 * kn * km; in SolKxSolution()
360 *vx = -km * (_C1 * t2 + _C2 * t4 + _C3 * t2 + _C4 * t4 + t10 * AA * t13 + t10 * BB * t16); in SolKxSolution()
374 t8 = km * km; in SolKxSolution()
397 … AA - 0.4e1 * AA * t73 * B - 0.4e1 * t79 * BB * kn + 0.3e1 * t8 * BB * kn + BB * t74) * t106) / km; in SolKxSolution()
[all …]
|
| H A D | ex69.c | 200 PetscReal kn, km, x, z; in SolKxSolution() local
227 km = m * PETSC_PI; /* solution valid for km not zero -- should get trivial solution if km=0 */ in SolKxSolution()
231 a = B * B + km * km; in SolKxSolution()
232 b = 2.0 * km * B; in SolKxSolution()
252 t4 = km * km; in SolKxSolution()
255 t8 = pow(km + kn, 0.2e1); in SolKxSolution()
257 t16 = pow(km - kn, 0.2e1); in SolKxSolution()
260 t2 = km * km; in SolKxSolution()
263 t6 = km - kn; in SolKxSolution()
264 t7 = km + kn; in SolKxSolution()
[all …]
|
| H A D | ex75.h | 3 PetscErrorCode SolKxData5(PetscReal x[], PetscReal z[], PetscReal *kn, PetscReal *km, PetscReal *B,… in SolKxData5() argument
8 *km = 100 * M_PI; in SolKxData5()
|
| /petsc/src/snes/tutorials/output/ |
| H A D | ex30_1.out | 3 Width = 320. km, Depth = 320. km
5 Lid depth = 20.00 km, Fault depth = 20.00 km
8 [ni,nj] = 18, 18 [dx,dz] = 20., 20. km
|
| /petsc/doc/community/meetings/2023/ |
| H A D | index.md | 727 electrons. Earth's ionosphere extends from roughly 85 km during the day
|