| /petsc/src/ksp/pc/impls/tfs/ |
| H A D | xxt.c | 189 PetscBLASInt i1 = 1, dlen; in xxt_generate() local
292 PetscCall(PetscBLASIntCast(len, &dlen)); in xxt_generate()
293 PetscCallBLAS("BLASdot", uu[k] = BLASdot_(&dlen, u + off, &i1, x_ptr, &i1)); in xxt_generate()
307 PetscCall(PetscBLASIntCast(len, &dlen)); in xxt_generate()
308 PetscCallBLAS("BLASaxpy", BLASaxpy_(&dlen, &uu[k], x_ptr, &i1, z + off, &i1)); in xxt_generate()
314 PetscCall(PetscBLASIntCast(n, &dlen)); in xxt_generate()
315 PetscCallBLAS("BLASaxpy", BLASaxpy_(&dlen, &dm1, z, &i1, v, &i1)); in xxt_generate()
323 PetscCall(PetscBLASIntCast(n, &dlen)); in xxt_generate()
324 PetscCallBLAS("BLASdot", alpha = BLASdot_(&dlen, u, &i1, v, &i1)); in xxt_generate()
419 PetscBLASInt i1 = 1, dlen; in do_xxt_solve() local
[all …]
|
| H A D | xyt.c | 245 PetscBLASInt i1 = 1, dlen; in xyt_generate() local
361 PetscCall(PetscBLASIntCast(len, &dlen)); in xyt_generate()
362 PetscCallBLAS("BLASdot", uu[k] = BLASdot_(&dlen, u + off, &i1, y_ptr, &i1)); in xyt_generate()
376 PetscCall(PetscBLASIntCast(len, &dlen)); in xyt_generate()
377 PetscCallBLAS("BLASaxpy", BLASaxpy_(&dlen, &uu[k], x_ptr, &i1, z + off, &i1)); in xyt_generate()
383 PetscCall(PetscBLASIntCast(n, &dlen)); in xyt_generate()
384 PetscCallBLAS("BLASaxpy", BLASaxpy_(&dlen, &dm1, z, &i1, v, &i1)); in xyt_generate()
392 PetscCall(PetscBLASIntCast(n, &dlen)); in xyt_generate()
393 PetscCallBLAS("BLASdot", alpha = BLASdot_(&dlen, u, &i1, u, &i1)); in xyt_generate()
530 PetscBLASInt i1 = 1, dlen; in do_xyt_solve() local
[all …]
|
| /petsc/src/ts/tests/ |
| H A D | ex3.c | 342 PetscScalar zquad[num_z][3], dlen[num_z], qdwt[3]; in femBg() local
353 dlen[i] = 0.0; in femBg()
377 dlen[il] = PetscAbsScalar(dl); in femBg()
384 dd = (dlen[il]) * (qdwt[iquad]); in femBg()
422 PetscScalar rquad[num_z][3], dlen[num_z], qdwt[3], add_term; in femA() local
433 dlen[i] = 0.0; in femA()
458 dlen[il] = PetscAbsScalar(dl); in femA()
465 dd = (dlen[il]) * (qdwt[iquad]); in femA()
|
| /petsc/src/mat/impls/baij/mpi/ |
| H A D | mpibaij.c | 1912 PetscInt *ii, *jj, nlocal, *dlens, *olens, dlen, olen, jend, mglobal; in MatCreateSubMatrix_MPIBAIJ_Private() local
1980 dlen = 0; in MatCreateSubMatrix_MPIBAIJ_Private()
1983 else dlen++; in MatCreateSubMatrix_MPIBAIJ_Private()
1987 dlens[i] = dlen; in MatCreateSubMatrix_MPIBAIJ_Private()
2548 PetscInt i, j, dlen, olen, nz, nz_max = 0, *d_nnz = NULL, *o_nnz = NULL; in MatMPIBAIJSetPreallocationCSR_MPIBAIJ() local
2571 dlen = 0; in MatMPIBAIJSetPreallocationCSR_MPIBAIJ()
2576 else dlen++; in MatMPIBAIJSetPreallocationCSR_MPIBAIJ()
2579 d_nnz[i] = dlen; in MatMPIBAIJSetPreallocationCSR_MPIBAIJ()
|
| /petsc/src/mat/impls/aij/mpi/ |
| H A D | mpiaij.c | 3525 PetscInt *ii, *jj, nlocal, *dlens, *olens, dlen, olen, jend, mglobal; in MatCreateSubMatrix_MPIAIJ_SameRowDist() local
3657 dlen = 0; in MatCreateSubMatrix_MPIAIJ_SameRowDist()
3660 else dlen++; in MatCreateSubMatrix_MPIAIJ_SameRowDist()
3664 dlens[i] = dlen; in MatCreateSubMatrix_MPIAIJ_SameRowDist()
3743 PetscInt *ii, *jj, nlocal, *dlens, *olens, dlen, olen, jend, mglobal; in MatCreateSubMatrix_MPIAIJ_nonscalable() local
3807 dlen = 0; in MatCreateSubMatrix_MPIAIJ_nonscalable()
3810 else dlen++; in MatCreateSubMatrix_MPIAIJ_nonscalable()
3814 dlens[i] = dlen; in MatCreateSubMatrix_MPIAIJ_nonscalable()
|