| /petsc/src/dm/tutorials/ |
| H A D | ex13f90aux.F90 | 21 function dfdt_vdp(t, dt, ib1, ibn, jb1, jbn, kb1, kbn, imax, jmax, kmax, n, f)
27 PetscInt, intent(in) :: ib1, ibn, jb1, jbn, kb1, kbn, imax, jmax, kmax, n
29 PetscReal, dimension(n, imax, jmax, kmax) :: dfdt_vdp
38 …recursive subroutine forw_euler(t, dt, ib1, ibn, jb1, jbn, kb1, kbn, imax, jmax, kmax, neq, y, dfd… argument
40 PetscInt, intent(in) :: ib1, ibn, jb1, jbn, kb1, kbn, imax, jmax, kmax, neq
46 function dfdt(t, dt, ib1, ibn, jb1, jbn, kb1, kbn, imax, jmax, kmax, n, f)
49 PetscInt, intent(in) :: ib1, ibn, jb1, jbn, kb1, kbn, imax, jmax, kmax, n
51 PetscReal, dimension(n, imax, jmax, kmax) :: dfdt
56 …y(:, 1:imax, 1:jmax, 1:kmax) = y(:, 1:imax, 1:jmax, 1:kmax) + dt*dfdt(t, dt, ib1, ibn, jb1, jbn, k…
|
| H A D | ex13f90.F90 | 37 …PetscInt :: i, j, k, igmax, jgmax, kgmax, ib1, ibn, jb1, jbn, kb1, kbn, imax, jmax, kmax, itime, m…
83 PetscCallA(DMDAGetCorners(SolScal, i, j, k, imax, jmax, kmax, ierr))
89 kbn = kmax + stw
104 xmax = grid(1, imax, jmax, kmax)
105 ymax = grid(2, imax, jmax, kmax)
106 zmax = grid(3, imax, jmax, kmax)
140 call forw_euler(t, dt, ib1, ibn, jb1, jbn, kb1, kbn, imax, jmax, kmax, dof, f, dfdt_vdp)
|
| /petsc/src/mat/impls/baij/mpi/ |
| H A D | baijov.c | 412 PetscInt *rbuf_i, kmax, rbuf_0; in MatIncreaseOverlap_MPIBAIJ_Receive() local
452 kmax = rbuf_i[2 * j]; in MatIncreaseOverlap_MPIBAIJ_Receive()
453 for (k = 0; k < kmax; k++, ct1++) { in MatIncreaseOverlap_MPIBAIJ_Receive()
632 PetscInt ctr_j, *sbuf1_j, *sbuf_aj_i, *rbuf1_i, kmax, *lens_i, jcnt; local
950 kmax = rbuf1[i][2 * j];
951 for (PetscInt k = 0; k < kmax; k++, ct1++) {
1254 kmax = rbuf1_i[2 * j];
1255 for (PetscInt k = 0; k < kmax; k++, ct1++) {
|
| /petsc/src/mat/impls/aij/mpi/ |
| H A D | mpiov.c | 967 PetscInt *rbuf_i, kmax, rbuf_0; in MatIncreaseOverlap_MPIAIJ_Receive() local
1007 kmax = rbuf_i[2 * j]; in MatIncreaseOverlap_MPIAIJ_Receive()
1008 for (k = 0; k < kmax; k++, ct1++) { in MatIncreaseOverlap_MPIAIJ_Receive()
1233 PetscInt ctr_j, *sbuf1_j, *sbuf_aj_i, *rbuf1_i, kmax, *sbuf1_i, *rbuf2_i, *rbuf3_i, jcnt; in MatCreateSubMatrices_MPIAIJ_SingleIS_Local() local
1443 kmax = rbuf1[i][2]; in MatCreateSubMatrices_MPIAIJ_SingleIS_Local()
1444 for (PetscInt k = 0; k < kmax; k++, ct1++) { /* for each row */ in MatCreateSubMatrices_MPIAIJ_SingleIS_Local()
1706 kmax = rbuf1_i[2]; in MatCreateSubMatrices_MPIAIJ_SingleIS_Local()
1707 for (PetscInt k = 0; k < kmax; k++, ct1++) { in MatCreateSubMatrices_MPIAIJ_SingleIS_Local()
2053 PetscInt ctr_j, *sbuf1_j, *sbuf_aj_i, *rbuf1_i, kmax, *lens_i; in MatCreateSubMatrices_MPIAIJ_Local() local
2356 kmax = rbuf1[i][2 * j]; in MatCreateSubMatrices_MPIAIJ_Local()
[all …]
|
| /petsc/share/petsc/datafiles/meshes/ |
| H A D | testcase3D.cas | 8148 (synthetic-turb/stg/c-kmax 2.882)
|