| /petsc/src/mat/graphops/partition/impls/pmetis/ |
| H A D | pmetis.c | 42 Mat mat = part->adj, amat, pmat; in MatPartitioningApply_Parmetis_Private() local
51 amat = mat; in MatPartitioningApply_Parmetis_Private()
52 PetscCall(PetscObjectReference((PetscObject)amat)); in MatPartitioningApply_Parmetis_Private()
56 PetscCall(MatConvert(mat, MATMPIADJ, MAT_INITIAL_MATRIX, &amat)); in MatPartitioningApply_Parmetis_Private()
57 if (amat->rmap->n > 0) bs = mat->rmap->n / amat->rmap->n; in MatPartitioningApply_Parmetis_Private()
59 PetscCall(MatMPIAdjCreateNonemptySubcommMat(amat, &pmat)); in MatPartitioningApply_Parmetis_Private()
208 PetscCall(MatDestroy(&amat)); in MatPartitioningApply_Parmetis_Private()
|
| /petsc/src/ts/tutorials/power_grid/ |
| H A D | ex5.c | 220 PetscScalar *amat; in main() local
303 PetscCall(MatDenseGetArray(B, &amat)); in main()
304 PetscCall(PetscArraycpy(amat, rmat, user.stepnum * 3)); in main()
305 PetscCall(MatDenseRestoreArray(B, &amat)); in main()
|
| /petsc/src/mat/impls/blockmat/seq/ |
| H A D | blockmat.c | 292 Mat_BlockMat *amat; in MatLoad_BlockMat() local
342 amat = (Mat_BlockMat *)newmat->data; in MatLoad_BlockMat()
372 …PetscCheck(cnt < amat->maxnz, PETSC_COMM_SELF, PETSC_ERR_PLIB, "Number of blocks found greater tha… in MatLoad_BlockMat()
374 amat->j[cnt] = currentcol; in MatLoad_BlockMat()
375 PetscCall(MatCreateSeqAIJ(PETSC_COMM_SELF, bs, bs, 0, llens, amat->a + cnt++)); in MatLoad_BlockMat()
381 amat->ilen[i] = lens[i]; in MatLoad_BlockMat()
|
| /petsc/src/ksp/pc/impls/is/ |
| H A D | pcis.c | 251 PetscBool amat = (PetscBool)(pc->mat != pc->pmat && pc->useAmat); in PCISSetUp() local
273 if (amat) { in PCISSetUp()
|
| /petsc/src/ts/tutorials/power_grid/stability_9bus/ |
| H A D | ex9bus.c | 1064 PetscScalar *x, *mat, *amat; in main() local
1263 PetscCall(MatDenseGetArray(A, &amat)); in main()
1264 PetscCall(PetscArraycpy(amat, rmat, user.stepnum * (user.neqs_pgrid + 1))); in main()
1265 PetscCall(MatDenseRestoreArray(A, &amat)); in main()
|
| /petsc/src/mat/impls/baij/mpi/ |
| H A D | mpibaij.c | 692 Mat_SeqBAIJ *amat = (Mat_SeqBAIJ *)baij->A->data, *bmat = (Mat_SeqBAIJ *)baij->B->data; in MatNorm_MPIBAIJ() local
702 v = amat->a; in MatNorm_MPIBAIJ()
703 nz = amat->nz * bs2; in MatNorm_MPIBAIJ()
724 v = amat->a; in MatNorm_MPIBAIJ()
725 jj = amat->j; in MatNorm_MPIBAIJ()
726 for (i = 0; i < amat->nz; i++) { in MatNorm_MPIBAIJ()
759 for (j = 0; j < amat->mbs; j++) { in MatNorm_MPIBAIJ()
761 v = amat->a + bs2 * amat->i[j]; in MatNorm_MPIBAIJ()
762 nz = amat->i[j + 1] - amat->i[j]; in MatNorm_MPIBAIJ()
|
| /petsc/src/mat/impls/aij/mpi/ |
| H A D | mpiov.c | 287 Mat amat, bmat; in MatIncreaseOverlap_MPIAIJ_Send_Scalable() local
295 PetscCall(MatMPIAIJGetSeqAIJ(mat, &amat, &bmat, &gcols)); in MatIncreaseOverlap_MPIAIJ_Send_Scalable()
297 PetscCall(MatGetRowIJ(amat, 0, PETSC_FALSE, PETSC_FALSE, &an, &ai, &aj, &done)); in MatIncreaseOverlap_MPIAIJ_Send_Scalable()
397 PetscCall(MatRestoreRowIJ(amat, 0, PETSC_FALSE, PETSC_FALSE, &an, &ai, &aj, &done)); in MatIncreaseOverlap_MPIAIJ_Send_Scalable()
408 Mat amat, bmat; in MatIncreaseOverlap_MPIAIJ_Local_Scalable() local
416 PetscCall(MatMPIAIJGetSeqAIJ(mat, &amat, &bmat, &gcols)); in MatIncreaseOverlap_MPIAIJ_Local_Scalable()
417 PetscCall(MatGetRowIJ(amat, 0, PETSC_FALSE, PETSC_FALSE, &an, &ai, &aj, &done)); in MatIncreaseOverlap_MPIAIJ_Local_Scalable()
464 PetscCall(MatRestoreRowIJ(amat, 0, PETSC_FALSE, PETSC_FALSE, &an, &ai, &aj, &done)); in MatIncreaseOverlap_MPIAIJ_Local_Scalable()
|
| H A D | mpiaij.c | 1809 Mat_SeqAIJ *amat = (Mat_SeqAIJ *)aij->A->data, *bmat = (Mat_SeqAIJ *)aij->B->data; in MatNorm_MPIAIJ() local
1822 for (i = 0; i < amat->nz; i++) { in MatNorm_MPIAIJ()
1833 PetscCall(PetscLogFlops(2.0 * amat->nz + 2.0 * bmat->nz)); in MatNorm_MPIAIJ()
1843 jj = amat->j; in MatNorm_MPIAIJ()
1844 for (j = 0; j < amat->nz; j++) array[*jj++] += PetscAbsScalar(*v++); in MatNorm_MPIAIJ()
1862 v = PetscSafePointerPlusOffset(amata, amat->i[j]); in MatNorm_MPIAIJ()
1864 for (i = 0; i < amat->i[j + 1] - amat->i[j]; i++) { in MatNorm_MPIAIJ()
1876 PetscCall(PetscLogFlops(PetscMax(amat->nz + bmat->nz - 1, 0))); in MatNorm_MPIAIJ()
|
| /petsc/src/mat/impls/sbaij/mpi/ |
| H A D | mpisbaij.c | 708 Mat_SeqSBAIJ *amat = (Mat_SeqSBAIJ *)baij->A->data; in MatNorm_MPISBAIJ() local
712 PetscInt brow, bcol, col, bs = baij->A->rmap->bs, row, grow, gcol, mbs = amat->mbs; in MatNorm_MPISBAIJ()
717 v = amat->a; in MatNorm_MPISBAIJ()
718 jj = amat->j; in MatNorm_MPISBAIJ()
721 nz = amat->i[brow + 1] - amat->i[brow]; in MatNorm_MPISBAIJ()
|
| /petsc/src/dm/dt/dualspace/interface/ |
| H A D | dualspace.c | 1266 Mat amat; in PetscDualSpaceGetAllData() local
1268 PetscUseTypeMethod(sp, createalldata, &qpoints, &amat); in PetscDualSpaceGetAllData()
1272 sp->allMat = amat; in PetscDualSpaceGetAllData()
|
| /petsc/src/binding/petsc4py/src/petsc4py/PETSc/ |
| H A D | KSP.pyx | 858 cdef PetscMat amat=NULL
859 if A is not None: amat = A.mat
860 cdef PetscMat pmat=amat
862 CHKERR(KSPSetOperators(self.ksp, amat, pmat))
|
| H A D | PC.pyx | 414 cdef PetscMat amat=NULL
415 if A is not None: amat = A.mat
416 cdef PetscMat pmat=amat
418 CHKERR(PCSetOperators(self.pc, amat, pmat))
|