| /petsc/src/mat/graphops/order/metisnd/ |
| H A D | metisnd.c | 10 PetscInt i, j, iptr, ival, nrow, *xadj, *adjncy, *perm, *iperm; in MatGetOrdering_METISND() local 27 ival = (PetscInt)options[METIS_OPTION_NSEPS]; in MatGetOrdering_METISND() 28 …t_ordering_metisnd_nseps", "number of different separators per level", "None", ival, &ival, NULL)); in MatGetOrdering_METISND() 29 options[METIS_OPTION_NSEPS] = (idx_t)ival; in MatGetOrdering_METISND() 31 ival = (PetscInt)options[METIS_OPTION_NITER]; in MatGetOrdering_METISND() 32 …sInt("-mat_ordering_metisnd_niter", "number of refinement iterations", "None", ival, &ival, NULL)); in MatGetOrdering_METISND() 33 options[METIS_OPTION_NITER] = (idx_t)ival; in MatGetOrdering_METISND() 35 ival = (PetscInt)options[METIS_OPTION_UFACTOR]; in MatGetOrdering_METISND() 36 …tionsInt("-mat_ordering_metisnd_ufactor", "maximum allowed imbalance", "None", ival, &ival, NULL)); in MatGetOrdering_METISND() 37 options[METIS_OPTION_UFACTOR] = (idx_t)ival; in MatGetOrdering_METISND() [all …]
|
| /petsc/src/vec/is/is/utils/ |
| H A D | isblock.c | 25 PetscInt isz, len, i, j, ival, bbs; in ISCompressIndicesGeneral() local 68 ival = idx[j] / bs; /* convert the indices into block indices */ in ISCompressIndicesGeneral() 70 PetscCall(PetscHMapIGetWithDefault(gid1_lid1, ival + 1, 0, &tt)); in ISCompressIndicesGeneral() 72 PetscCall(PetscHMapISet(gid1_lid1, ival + 1, isz + 1)); in ISCompressIndicesGeneral() 76 … PetscCheck(ival <= Nbs, PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE, "index greater than mat-dim"); in ISCompressIndicesGeneral() 77 if (!PetscBTLookupSet(table, ival)) nidx[isz++] = ival; in ISCompressIndicesGeneral()
|
| /petsc/src/ksp/ksp/tutorials/ |
| H A D | ex52f.F90 | 26 PetscInt ival, icntl, infog34 120 ival = 2 121 PetscCallA(MatMumpsSetIcntl(F, icntl, ival, ierr)) 125 ival = 1 126 PetscCallA(MatMumpsSetIcntl(F, icntl, ival, ierr)) 133 ival = 1 134 PetscCallA(MatMumpsSetIcntl(F, icntl, ival, ierr))
|
| H A D | ex52.c | 180 PetscInt ival, icntl; in main() local 193 PetscCall(MatMumpsGetIcntl(F, 24, &ival)); in main() 194 …PetscCheck(ival == 1, PetscObjectComm((PetscObject)F), PETSC_ERR_LIB, "ICNTL(24) = %" PetscInt_FMT… in main() 220 ival = 2; in main() 221 PetscCall(MatMumpsSetIcntl(F, icntl, ival)); in main() 224 PetscCall(MatMumpsGetIcntl(F, 24, &ival)); in main() 225 …PetscCheck(ival == 1, PetscObjectComm((PetscObject)F), PETSC_ERR_LIB, "ICNTL(24) = %" PetscInt_FMT… in main()
|
| H A D | ex57f.F90 | 109 PetscInt icntl, ival 276 icntl = 7; ival = 2 277 PetscCallA(MatMumpsSetIcntl(F, icntl, ival, ierr))
|
| /petsc/src/binding/petsc4py/src/lib-petsc/compat/ |
| H A D | mumps.h | 12 …Icntl(PETSC_UNUSED Mat F,PETSC_UNUSED PetscInt icntl,PETSC_UNUSED PetscInt *ival){PetscMUMPSError;} in MatMumpsGetIcntl() argument 14 …tInfo(PETSC_UNUSED Mat F,PETSC_UNUSED PetscInt icntl,PETSC_UNUSED PetscInt *ival){PetscMUMPSError;} in MatMumpsGetInfo() argument 15 …Infog(PETSC_UNUSED Mat F,PETSC_UNUSED PetscInt icntl,PETSC_UNUSED PetscInt *ival){PetscMUMPSError;} in MatMumpsGetInfog() argument
|
| /petsc/src/sys/tests/ |
| H A D | ex80f.F90 | 14 PetscInt :: ival = 42 29 PetscCallA(PetscViewerHDF5WriteAttribute(viewer, "vec", "int_attribute", ival, ierr))
|
| /petsc/src/dm/partitioner/impls/chaco/ |
| H A D | partchaco.c | 80 int ival, isum; in PetscPartitionerPartition_Chaco() local 83 ival = (numVertices > 0); in PetscPartitionerPartition_Chaco() 84 PetscCallMPI(MPIU_Allreduce(&ival, &isum, 1, MPI_INT, MPI_SUM, comm)); in PetscPartitionerPartition_Chaco()
|
| /petsc/src/binding/petsc4py/src/petsc4py/PETSc/ |
| H A D | DMDA.pyx | 694 cdef PetscInt ival = asInt(field) 697 CHKERR(DMDASetFieldName(self.dm, ival, cval)) 716 cdef PetscInt ival = asInt(field) 718 CHKERR(DMDAGetFieldName(self.dm, ival, &cval)) 805 cdef PetscInt ival = asInt(index) 808 CHKERR(DMDASetCoordinateName(self.dm, ival, cval)) 825 cdef PetscInt ival = asInt(index) 827 CHKERR(DMDAGetCoordinateName(self.dm, ival, &cval)) 1017 cdef PetscDMDAInterpolationType ival = dainterpolationtype(interp_type) 1018 CHKERR(DMDASetInterpolationType(self.dm, ival)) [all …]
|
| H A D | SNES.pyx | 1363 cdef PetscInt ival = asInt(its) 1368 CHKERR(SNESConvergenceTestCall(self.snes, ival, 1393 cdef PetscInt ival = asInt(its) 1397 CHKERR(SNESConverged(self.snes, ival, rval1, rval2, rval3)) 1444 cdef PetscInt ival = asInt(linear_its) 1445 CHKERR(SNESLogConvergenceHistory(self.snes, rval, ival)) 1539 cdef PetscInt ival = asInt(its) 1541 CHKERR(SNESMonitor(self.snes, ival, rval)) 1557 cdef PetscInt ival = asInt(max_funcs) 1558 CHKERR(SNESSetTolerances(self.snes, r, r, r, i, ival)) [all …]
|
| H A D | Vec.pyx | 2212 cdef PetscInt ival = 0 2214 CHKERR(VecMin(self.vec, &ival, &rval)) 2215 return (toInt(ival), toReal(rval)) 2235 cdef PetscInt ival = 0 2237 CHKERR(VecMax(self.vec, &ival, &rval)) 2238 return (toInt(ival), toReal(rval)) 2751 cdef PetscInt ival = asInt(index) 2753 CHKERR(VecGetValues(self.vec, 1, &ival, &sval)) 2817 cdef PetscInt ival = asInt(index) 2820 CHKERR(VecSetValues(self.vec, 1, &ival, &sval, caddv)) [all …]
|
| H A D | TS.pyx | 1810 cdef PetscInt ival = asInt(step_number) 1811 CHKERR(TSSetStepNumber(self.ts, ival)) 1823 cdef PetscInt ival = 0 1824 CHKERR(TSGetStepNumber(self.ts, &ival)) 1825 return toInt(ival) 1882 cdef PetscInt ival = asInt(max_steps) 1883 CHKERR(TSSetMaxSteps(self.ts, ival)) 1895 cdef PetscInt ival = 0 1896 CHKERR(TSGetMaxSteps(self.ts, &ival)) 1897 return toInt(ival) [all …]
|
| H A D | KSP.pyx | 1152 cdef PetscInt ival = asInt(its) 1155 CHKERR(KSPConvergenceTestCall(self.ksp, ival, rval, &reason)) 1323 cdef PetscInt ival = asInt(its) 1325 CHKERR(KSPMonitor(self.ksp, ival, rval)) 1865 cdef PetscInt ival = asInt(its) 1866 CHKERR(KSPSetIterationNumber(self.ksp, ival)) 1870 cdef PetscInt ival = 0 1871 CHKERR(KSPGetIterationNumber(self.ksp, &ival)) 1872 return toInt(ival) 2163 cdef PetscInt ival = asInt(restart) [all …]
|
| H A D | DMPlex.pyx | 1435 cdef PetscInt ival = PETSC_DETERMINE 1436 if value is not None: ival = asInt(value) 1443 CHKERR(DMPlexMarkBoundaryFaces(self.dm, ival, clbl)) 2661 cdef PetscInt ival = asInt(verbosity) 2662 CHKERR(DMPlexMetricSetVerbosity(self.dm, ival)) 2700 cdef PetscInt ival = asInt(numIter) 2701 CHKERR(DMPlexMetricSetNumIterations(self.dm, ival)) 2972 cdef PetscInt ival = asInt(field) 2974 CHKERR(DMPlexMetricCreate(self.dm, ival, &metric.vec)) 2995 cdef PetscInt ival = asInt(field) [all …]
|
| H A D | PC.pyx | 897 cdef PetscInt ival = asInt(overlap) 898 CHKERR(PCASMSetOverlap(self.pc, ival)) 1054 cdef PetscInt ival = asInt(overlap) 1055 CHKERR(PCGASMSetOverlap(self.pc, ival)) 1093 cdef PetscInt ival = asInt(levels) 1094 CHKERR(PCGAMGSetNlevels(self.pc, ival)) 1111 cdef PetscInt ival = asInt(smooths) 1112 CHKERR(PCGAMGSetNSmooths(self.pc, ival)) 1471 cdef PetscInt ival = asInt(levels) 1472 CHKERR(PCFactorSetLevels(self.pc, ival))
|
| H A D | Mat.pyx | 3607 cdef PetscInt ival = asInt(column) 3612 CHKERR(MatGetColumnVector(self.mat, result.vec, ival)) 4011 cdef PetscInt ival = asInt(overlap) 4012 CHKERR(MatIncreaseOverlap(self.mat, 1, &iset.iset, ival)) 5292 def setMumpsIcntl(self, icntl: int, ival: int) -> None: 5293 """Set a MUMPS parameter, ``ICNTL[icntl] = ival``. 5301 ival 5310 cdef PetscInt _ival = asInt(ival) 5324 cdef PetscInt ival = 0 5325 CHKERR(MatMumpsGetIcntl(self.mat, _icntl, &ival)) [all …]
|
| H A D | TAO.pyx | 1593 cdef PetscInt ival = asInt(its) 1594 CHKERR(TaoSetIterationNumber(self.tao, ival))
|
| /petsc/src/mat/impls/aij/mpi/mkl_cpardiso/ |
| H A D | mkl_cpardiso.c | 764 static PetscErrorCode MatMkl_CPardisoSetCntl_MKL_CPARDISO(Mat F, PetscInt icntl, PetscInt ival) in MatMkl_CPardisoSetCntl_MKL_CPARDISO() argument 770 mat_mkl_cpardiso->iparm[icntl - 1] = ival; in MatMkl_CPardisoSetCntl_MKL_CPARDISO() 772 if (icntl == 65) mkl_set_num_threads((int)ival); in MatMkl_CPardisoSetCntl_MKL_CPARDISO() 773 else if (icntl == 66) mat_mkl_cpardiso->maxfct = ival; in MatMkl_CPardisoSetCntl_MKL_CPARDISO() 774 else if (icntl == 67) mat_mkl_cpardiso->mnum = ival; in MatMkl_CPardisoSetCntl_MKL_CPARDISO() 775 else if (icntl == 68) mat_mkl_cpardiso->msglvl = ival; in MatMkl_CPardisoSetCntl_MKL_CPARDISO() 776 else if (icntl == 69) mat_mkl_cpardiso->mtype = ival; in MatMkl_CPardisoSetCntl_MKL_CPARDISO() 803 PetscErrorCode MatMkl_CPardisoSetCntl(Mat F, PetscInt icntl, PetscInt ival) in MatMkl_CPardisoSetCntl() argument 806 PetscTryMethod(F, "MatMkl_CPardisoSetCntl_C", (Mat, PetscInt, PetscInt), (F, icntl, ival)); in MatMkl_CPardisoSetCntl()
|
| /petsc/src/dm/impls/moab/tests/ |
| H A D | ex1.cxx | 95 int *ival = reinterpret_cast<int *>(dval); // "stretch" them into doubles, from the end in CreateMesh() local 96 for (int i = tag_vals.size() - 1; i >= 0; i--) dval[i] = ival[i]; in CreateMesh()
|
| /petsc/src/mat/impls/aij/seq/mkl_pardiso/ |
| H A D | mkl_pardiso.c | 888 static PetscErrorCode MatMkl_PardisoSetCntl_MKL_PARDISO(Mat F, PetscInt icntl, PetscInt ival) in MatMkl_PardisoSetCntl_MKL_PARDISO() argument 895 mat_mkl_pardiso->iparm[icntl - 1] = ival; in MatMkl_PardisoSetCntl_MKL_PARDISO() 897 if (icntl == 65) PetscSetMKL_PARDISOThreads((int)ival); in MatMkl_PardisoSetCntl_MKL_PARDISO() 898 else if (icntl == 66) mat_mkl_pardiso->maxfct = ival; in MatMkl_PardisoSetCntl_MKL_PARDISO() 899 else if (icntl == 67) mat_mkl_pardiso->mnum = ival; in MatMkl_PardisoSetCntl_MKL_PARDISO() 900 else if (icntl == 68) mat_mkl_pardiso->msglvl = ival; in MatMkl_PardisoSetCntl_MKL_PARDISO() 905 mat_mkl_pardiso->mtype = ival; in MatMkl_PardisoSetCntl_MKL_PARDISO() 914 } else if (icntl == 70) mat_mkl_pardiso->solve_interior = (PetscBool)!!ival; in MatMkl_PardisoSetCntl_MKL_PARDISO() 936 PetscErrorCode MatMkl_PardisoSetCntl(Mat F, PetscInt icntl, PetscInt ival) in MatMkl_PardisoSetCntl() argument 939 PetscTryMethod(F, "MatMkl_PardisoSetCntl_C", (Mat, PetscInt, PetscInt), (F, icntl, ival)); in MatMkl_PardisoSetCntl()
|
| /petsc/src/mat/impls/aij/mpi/mumps/ |
| H A D | mumps.c | 3324 static PetscErrorCode MatMumpsSetIcntl_MUMPS(Mat F, PetscInt icntl, PetscInt ival) in MatMumpsSetIcntl_MUMPS() argument 3339 PetscCall(PetscMUMPSIntCast(ival, mumps->ICNTL_pre + 2 + 2 * i)); in MatMumpsSetIcntl_MUMPS() 3340 } else PetscCall(PetscMUMPSIntCast(ival, &mumps->id.ICNTL(icntl))); in MatMumpsSetIcntl_MUMPS() 3344 static PetscErrorCode MatMumpsGetIcntl_MUMPS(Mat F, PetscInt icntl, PetscInt *ival) in MatMumpsGetIcntl_MUMPS() argument 3351 *ival = 0; in MatMumpsGetIcntl_MUMPS() 3353 if (mumps->ICNTL_pre[1 + 2 * i] == icntl) *ival = mumps->ICNTL_pre[2 + 2 * i]; in MatMumpsGetIcntl_MUMPS() 3355 } else *ival = mumps->id.ICNTL(icntl); in MatMumpsGetIcntl_MUMPS() 3379 PetscErrorCode MatMumpsSetIcntl(Mat F, PetscInt icntl, PetscInt ival) in MatMumpsSetIcntl() argument 3385 PetscValidLogicalCollectiveInt(F, ival, 3); in MatMumpsSetIcntl() 3387 PetscTryMethod(F, "MatMumpsSetIcntl_C", (Mat, PetscInt, PetscInt), (F, icntl, ival)); in MatMumpsSetIcntl() [all …]
|
| /petsc/src/mat/impls/baij/seq/ |
| H A D | baij2.c | 16 PetscInt row, i, j, k, l, m, n, *nidx, isz, val, ival; in MatIncreaseOverlap_SeqBAIJ() local 43 ival = idx[j] / bs; /* convert the indices into block indices */ in MatIncreaseOverlap_SeqBAIJ() 44 PetscCheck(ival < m, PETSC_COMM_SELF, PETSC_ERR_ARG_OUTOFRANGE, "index greater than mat-dim"); in MatIncreaseOverlap_SeqBAIJ() 45 if (!PetscBTLookupSet(table, ival)) nidx[isz++] = ival; in MatIncreaseOverlap_SeqBAIJ()
|
| /petsc/include/ |
| H A D | petscmat.h | 2374 …rCode MatMumpsSetIcntl(PETSC_UNUSED Mat F, PETSC_UNUSED PetscInt icntl, PETSC_UNUSED PetscInt ival) in MatMumpsSetIcntl() argument
|
| /petsc/doc/manual/ |
| H A D | ksp.md | 2602 icntl=7; ival = 3; 2603 MatMumpsSetIcntl(F, icntl, ival);
|