Searched refs:allm (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/mat/impls/adj/mpi/ |
| H A D | mpiadj.c | 799 PetscMPIInt mnz, mm, *allnz, *allm, size, *dispnz, *dispm; in MatMPIAdjToSeq_MPIAdj() local
827 PetscCall(PetscMalloc2(size, &allm, size, &dispm)); in MatMPIAdjToSeq_MPIAdj()
828 PetscCallMPI(MPI_Allgather(&mm, 1, MPI_INT, allm, 1, MPI_INT, PetscObjectComm((PetscObject)A))); in MatMPIAdjToSeq_MPIAdj()
830 for (i = 1; i < size; i++) dispm[i] = dispm[i - 1] + allm[i - 1]; in MatMPIAdjToSeq_MPIAdj()
831 …PetscCallMPI(MPI_Allgatherv(adj->i, mm, MPIU_INT, II, allm, dispm, MPIU_INT, PetscObjectComm((Pets… in MatMPIAdjToSeq_MPIAdj()
832 PetscCall(PetscFree2(allm, dispm)); in MatMPIAdjToSeq_MPIAdj()
845 PetscMPIInt mnz, mm, *allnz = NULL, *allm, size, *dispnz, *dispm, rank; in MatMPIAdjToSeqRankZero_MPIAdj() local
880 PetscCall(PetscMalloc2(size, &allm, size, &dispm)); in MatMPIAdjToSeqRankZero_MPIAdj()
881 PetscCallMPI(MPI_Gather(&mm, 1, MPI_INT, allm, 1, MPI_INT, 0, PetscObjectComm((PetscObject)A))); in MatMPIAdjToSeqRankZero_MPIAdj()
883 for (i = 1; i < size; i++) dispm[i] = dispm[i - 1] + allm[i - 1]; in MatMPIAdjToSeqRankZero_MPIAdj()
[all …]
|