| /petsc/src/ksp/ksp/impls/bicg/ |
| H A D | bicg.c | 14 PetscScalar dpi, a = 1.0, beta, betaold = 1.0, b, ma; in KSPSolve_BiCG() local
83 ma = -a; in KSPSolve_BiCG()
84 PetscCall(VecAXPY(Rr, ma, Zr)); in KSPSolve_BiCG()
85 ma = PetscConj(ma); in KSPSolve_BiCG()
86 PetscCall(VecAXPY(Rl, ma, Zl)); in KSPSolve_BiCG()
|
| /petsc/src/mat/tests/ |
| H A D | ex124.c | 15 PetscInt ma, na, mb, nb; in main() local
36 PetscCall(MatGetSize(A, &ma, &na)); in main()
48 PetscCheck(ma == mb && na == nb, PETSC_COMM_SELF, PETSC_ERR_ARG_SIZ, "nonconforming matrix size"); in main()
|
| /petsc/src/mat/impls/aij/mpi/mumps/ |
| H A D | mumps.c | 275 …l convert, PetscCount n, const PetscScalar *pa, PetscPrecision precision, PetscCount *m, void **ma) in MatMumpsMakeMumpsScalarArray() argument
285 PetscCall(PetscFree(*ma)); in MatMumpsMakeMumpsScalarArray()
286 PetscCall(PetscMalloc1(n, (CMUMPS_COMPLEX **)ma)); in MatMumpsMakeMumpsScalarArray()
290 CMUMPS_COMPLEX *b = *(CMUMPS_COMPLEX **)ma; in MatMumpsMakeMumpsScalarArray()
298 PetscCall(PetscFree(*ma)); in MatMumpsMakeMumpsScalarArray()
299 PetscCall(PetscMalloc1(n, (ZMUMPS_COMPLEX **)ma)); in MatMumpsMakeMumpsScalarArray()
303 ZMUMPS_COMPLEX *b = *(ZMUMPS_COMPLEX **)ma; in MatMumpsMakeMumpsScalarArray()
315 PetscCall(PetscFree(*ma)); in MatMumpsMakeMumpsScalarArray()
316 PetscCall(PetscMalloc1(n, (SMUMPS_REAL **)ma)); in MatMumpsMakeMumpsScalarArray()
320 SMUMPS_REAL *b = *(SMUMPS_REAL **)ma; in MatMumpsMakeMumpsScalarArray()
[all …]
|
| /petsc/src/mat/impls/aij/seq/ |
| H A D | aij.c | 2251 PetscInt ma, na, mb, nb, i; in MatIsTranspose_SeqAIJ() local
2254 PetscCall(MatGetSize(A, &ma, &na)); in MatIsTranspose_SeqAIJ()
2256 if (ma != nb || na != mb) { in MatIsTranspose_SeqAIJ()
2266 PetscCall(PetscMalloc1(ma, &aptr)); in MatIsTranspose_SeqAIJ()
2268 for (i = 0; i < ma; i++) aptr[i] = aii[i]; in MatIsTranspose_SeqAIJ()
2272 for (i = 0; i < ma; i++) { in MatIsTranspose_SeqAIJ()
2303 PetscInt ma, na, mb, nb, i; in MatIsHermitianTranspose_SeqAIJ() local
2306 PetscCall(MatGetSize(A, &ma, &na)); in MatIsHermitianTranspose_SeqAIJ()
2308 if (ma != nb || na != mb) { in MatIsHermitianTranspose_SeqAIJ()
2318 PetscCall(PetscMalloc1(ma, &aptr)); in MatIsHermitianTranspose_SeqAIJ()
[all …]
|
| /petsc/src/mat/impls/dense/seq/cupm/ |
| H A D | matseqdensecupm.hpp | 1389 const auto ma = m->rmap->n; in ZeroEntries() local
1392 if (lda > ma) { in ZeroEntries()
1393 PetscCall(PetscCUPMMemset2DAsync(va.data(), lda, 0, ma, na, stream)); in ZeroEntries()
1395 PetscCall(PetscCUPMMemsetAsync(va.data(), 0, ma * na, stream)); in ZeroEntries()
|
| /petsc/src/mat/impls/aij/mpi/ |
| H A D | mpiaij.c | 1888 …PetscInt M = A->rmap->N, N = A->cmap->N, ma, na, mb, nb, row, *cols, *cols_tmp, *B_diag_il… in MatTranspose_MPIAIJ() local
1895 ma = A->rmap->n; in MatTranspose_MPIAIJ()
1911 for (i = 0; i < ai[ma]; i++) d_nnz[aj[i]]++; in MatTranspose_MPIAIJ()
1914 for (i = 0; i < bi[ma]; i++) g_nnz[bj[i]]++; in MatTranspose_MPIAIJ()
|
| /petsc/doc/ |
| H A D | petsc.bib | 7218 url = {http://www.ma.ic.ac.uk/\~{ }mdixion/papers/MScThesis.pdf.gz},
|