10 static PetscErrorCode MatCreateSubMatrix_MPIAdj_data(Mat adj, IS irows, IS icols, PetscInt **sadj_x…  in MatCreateSubMatrix_MPIAdj_data()  argument
17   Mat_MPIAdj     *a = (Mat_MPIAdj *)adj->data;  in MatCreateSubMatrix_MPIAdj_data()
25   PetscCall(PetscObjectGetComm((PetscObject)adj, &comm));  in MatCreateSubMatrix_MPIAdj_data()
26   PetscCall(MatGetLayouts(adj, &rmap, NULL));  in MatCreateSubMatrix_MPIAdj_data()
39   PetscCall(MatGetRowIJ(adj, 0, PETSC_FALSE, PETSC_FALSE, &nlrows_mat, &xadj, &adjncy, &done));  in MatCreateSubMatrix_MPIAdj_data()
85   PetscCall(MatRestoreRowIJ(adj, 0, PETSC_FALSE, PETSC_FALSE, &nlrows_mat, &xadj, &adjncy, &done));  in MatCreateSubMatrix_MPIAdj_data()
454   Mat_MPIAdj *adj = (Mat_MPIAdj *)A->data;  in MatSetValues_MPIAdj()  local
458 …PetscCheck(!adj->i, PETSC_COMM_SELF, PETSC_ERR_ARG_WRONGSTATE, "Matrix is already assembled, canno…  in MatSetValues_MPIAdj()
461   if (!adj->ht) {  in MatSetValues_MPIAdj()
462     PetscCall(PetscHSetIJCreate(&adj->ht));  in MatSetValues_MPIAdj()
478         PetscCall(PetscHSetIJAdd(adj->ht, key));  in MatSetValues_MPIAdj()
488   Mat_MPIAdj *adj = (Mat_MPIAdj *)A->data;  in MatAssemblyBegin_MPIAdj()  local
491   if (!adj->ht) {  in MatAssemblyBegin_MPIAdj()
492     PetscCall(PetscHSetIJCreate(&adj->ht));  in MatAssemblyBegin_MPIAdj()
508   Mat_MPIAdj    *adj = (Mat_MPIAdj *)A->data;  in MatAssemblyEnd_MPIAdj()  local
511   PetscHSetIJ    ht = adj->ht;  in MatAssemblyEnd_MPIAdj()
558   adj->i       = rowstarts;  in MatAssemblyEnd_MPIAdj()
559   adj->j       = col;  in MatAssemblyEnd_MPIAdj()
560   adj->nz      = rowstarts[m];  in MatAssemblyEnd_MPIAdj()
561   adj->freeaij = PETSC_TRUE;  in MatAssemblyEnd_MPIAdj()
798   Mat_MPIAdj *adj    = (Mat_MPIAdj *)A->data;  in MatMPIAdjToSeq_MPIAdj()  local
805   nz = adj->nz;  in MatMPIAdjToSeq_MPIAdj()
806 …PetscCheck(adj->i[m] == nz, PETSC_COMM_SELF, PETSC_ERR_PLIB, "nz %" PetscInt_FMT " not correct i[m…  in MatMPIAdjToSeq_MPIAdj()
814   if (adj->values) {  in MatMPIAdjToSeq_MPIAdj()
816 …PetscCallMPI(MPI_Allgatherv(adj->values, mnz, MPIU_INT, Values, allnz, dispnz, MPIU_INT, PetscObje…  in MatMPIAdjToSeq_MPIAdj()
819 …PetscCallMPI(MPI_Allgatherv(adj->j, mnz, MPIU_INT, J, allnz, dispnz, MPIU_INT, PetscObjectComm((Pe…  in MatMPIAdjToSeq_MPIAdj()
824   for (i = 0; i < m; i++) adj->i[i] += nzstart;  in MatMPIAdjToSeq_MPIAdj()
831 …PetscCallMPI(MPI_Allgatherv(adj->i, mm, MPIU_INT, II, allm, dispm, MPIU_INT, PetscObjectComm((Pets…  in MatMPIAdjToSeq_MPIAdj()
835   for (i = 0; i < m; i++) adj->i[i] -= nzstart;  in MatMPIAdjToSeq_MPIAdj()
844   Mat_MPIAdj *adj    = (Mat_MPIAdj *)A->data;  in MatMPIAdjToSeqRankZero_MPIAdj()  local
852   nz = adj->nz;  in MatMPIAdjToSeqRankZero_MPIAdj()
853 …PetscCheck(adj->i[m] == nz, PETSC_COMM_SELF, PETSC_ERR_PLIB, "nz %" PetscInt_FMT " not correct i[m…  in MatMPIAdjToSeqRankZero_MPIAdj()
862     if (adj->values) {  in MatMPIAdjToSeqRankZero_MPIAdj()
864 …PetscCallMPI(MPI_Gatherv(adj->values, mnz, MPIU_INT, Values, allnz, dispnz, MPIU_INT, 0, PetscObje…  in MatMPIAdjToSeqRankZero_MPIAdj()
867 …PetscCallMPI(MPI_Gatherv(adj->j, mnz, MPIU_INT, J, allnz, dispnz, MPIU_INT, 0, PetscObjectComm((Pe…  in MatMPIAdjToSeqRankZero_MPIAdj()
870 …if (adj->values) PetscCallMPI(MPI_Gatherv(adj->values, mnz, MPIU_INT, NULL, NULL, NULL, MPIU_INT, …  in MatMPIAdjToSeqRankZero_MPIAdj()
871 …PetscCallMPI(MPI_Gatherv(adj->j, mnz, MPIU_INT, NULL, NULL, NULL, MPIU_INT, 0, PetscObjectComm((Pe…  in MatMPIAdjToSeqRankZero_MPIAdj()
876   for (i = 0; i < m; i++) adj->i[i] += nzstart;  in MatMPIAdjToSeqRankZero_MPIAdj()
884 …PetscCallMPI(MPI_Gatherv(adj->i, mm, MPIU_INT, II, allm, dispm, MPIU_INT, 0, PetscObjectComm((Pets…  in MatMPIAdjToSeqRankZero_MPIAdj()
889 …PetscCallMPI(MPI_Gatherv(adj->i, mm, MPIU_INT, NULL, NULL, NULL, MPIU_INT, 0, PetscObjectComm((Pet…  in MatMPIAdjToSeqRankZero_MPIAdj()
892   for (i = 0; i < m; i++) adj->i[i] -= nzstart;  in MatMPIAdjToSeqRankZero_MPIAdj()