| /petsc/src/dm/impls/moab/ |
| H A D | dmmbmat.cxx | 66 PetscInt ibs, jbs, inbsize, iobsize, nfields, nlsiz; in DMMoab_Compute_NNZ_From_Connectivity() local
141 for (ibs = 0; ibs < nfields; ibs++) { in DMMoab_Compute_NNZ_From_Connectivity()
144 … for (jbs = 0, inbsize = 0; jbs < nfields; jbs++) inbsize += dmmoab->dfill[ibs * nfields + jbs]; in DMMoab_Compute_NNZ_From_Connectivity()
146 if (isinterlaced) nnz[ivtx * nfields + ibs] *= inbsize; in DMMoab_Compute_NNZ_From_Connectivity()
147 else nnz[ibs * nloc + ivtx] *= inbsize; in DMMoab_Compute_NNZ_From_Connectivity()
152 … for (jbs = 0, iobsize = 0; jbs < nfields; jbs++) iobsize += dmmoab->dfill[ibs * nfields + jbs]; in DMMoab_Compute_NNZ_From_Connectivity()
154 if (isinterlaced) onz[ivtx * nfields + ibs] *= iobsize; in DMMoab_Compute_NNZ_From_Connectivity()
155 else onz[ibs * nloc + ivtx] *= iobsize; in DMMoab_Compute_NNZ_From_Connectivity()
|
| /petsc/src/vec/vec/utils/ |
| H A D | vinv.c | 420 PetscMPIInt ibs; in VecStrideNormAll() local
432 PetscCall(PetscMPIIntCast(bs, &ibs)); in VecStrideNormAll()
441 PetscCallMPI(MPIU_Allreduce(tnorm, nrm, ibs, MPIU_REAL, MPIU_SUM, comm)); in VecStrideNormAll()
450 PetscCallMPI(MPIU_Allreduce(tnorm, nrm, ibs, MPIU_REAL, MPIU_SUM, comm)); in VecStrideNormAll()
465 PetscCallMPI(MPIU_Allreduce(tnorm, nrm, ibs, MPIU_REAL, MPIU_MAX, comm)); in VecStrideNormAll()
501 PetscMPIInt ibs; in VecStrideMaxAll() local
513 PetscCall(PetscMPIIntCast(bs, &ibs)); in VecStrideMaxAll()
526 PetscCallMPI(MPIU_Allreduce(max, nrm, ibs, MPIU_REAL, MPIU_MAX, comm)); in VecStrideMaxAll()
562 PetscMPIInt ibs; in VecStrideMinAll() local
574 PetscCall(PetscMPIIntCast(bs, &ibs)); in VecStrideMinAll()
[all …]
|
| H A D | vscat.c | 1084 PetscMPIInt ibs; in VecScatterCreate() local
1086 PetscCall(PetscMPIIntCast(sf->vscat.bs, &ibs)); in VecScatterCreate()
1087 PetscCallMPI(MPI_Type_contiguous(ibs, MPIU_SCALAR, &sf->vscat.unit)); in VecScatterCreate()
|
| /petsc/src/ksp/pc/impls/is/ |
| H A D | pcis.c | 252 PetscInt bs, ibs; in PCISSetUp() local
270 PetscCall(ISLocalToGlobalMappingGetBlockSize(pcis->mapping, &ibs)); in PCISSetUp()
281 PetscCall(MatSetBlockSize(pcis->A_II, bs == ibs ? bs : 1)); in PCISSetUp()
282 PetscCall(MatSetBlockSize(pcis->pA_II, bs == ibs ? bs : 1)); in PCISSetUp()
296 PetscCall(MatSetBlockSize(pcis->A_BB, bs == ibs ? bs : 1)); in PCISSetUp()
|
| /petsc/src/vec/is/is/interface/ |
| H A D | index.c | 40 PetscInt N_n, n, i, lbounds[2], gbounds[2], Nl, ibs; in ISRenumber() local
59 PetscCall(ISGetBlockSize(subset, &ibs)); in ISRenumber()
194 if (ibs > 1) in ISRenumber()
195 for (i = 0; i < n_n / ibs; i++) gidxs[i] = gidxs[i * ibs] / ibs; in ISRenumber()
196 …PetscCall(ISCreateBlock(PetscObjectComm((PetscObject)subset), ibs, n_n / ibs, gidxs, PETSC_COPY_VA… in ISRenumber()
|
| /petsc/src/vec/vec/interface/ |
| H A D | rvector.c | 1501 PetscInt n, N, ibs, vbs, bs = 1; in VecGetSubVectorContiguityAndBS_Private() local
1506 PetscCall(ISGetBlockSize(is, &ibs)); in VecGetSubVectorContiguityAndBS_Private()
1511 if (ibs > 1) { in VecGetSubVectorContiguityAndBS_Private()
1513 bs = ibs; in VecGetSubVectorContiguityAndBS_Private()
|
| /petsc/src/mat/impls/is/ |
| H A D | matis.c | 189 PetscInt ibs, N, dc; in MatPtAPSymbolic_IS_XAIJ() local
216 PetscCall(ISLocalToGlobalMappingGetBlockSize(cl2g, &ibs)); in MatPtAPSymbolic_IS_XAIJ()
219 PetscCall(ISCreateBlock(comm, ibs, N / ibs, garray, PETSC_COPY_VALUES, &ptap->ris0)); in MatPtAPSymbolic_IS_XAIJ()
235 PetscCall(ISCreateBlock(comm, ibs, N1 / ibs, garray, PETSC_COPY_VALUES, &ptap->ris1)); in MatPtAPSymbolic_IS_XAIJ()
237 if (ibs1 == ibs && N1 == N) { /* check if the l2gmaps are the same */ in MatPtAPSymbolic_IS_XAIJ()
|
| /petsc/src/ksp/pc/impls/bddc/ |
| H A D | bddcprivate.c | 6072 PetscInt ibs, mbs; in PCBDDCSetUpLocalSolvers() local
6114 PetscCall(ISGetBlockSize(pcbddc->is_R_local, &ibs)); in PCBDDCSetUpLocalSolvers()
6116 if (ibs != mbs) { /* need to convert to SEQAIJ to extract any submatrix with is_R_local */ in PCBDDCSetUpLocalSolvers()
|