Home
last modified time | relevance | path

Searched refs:flag (Results 1 – 25 of 253) sorted by relevance

1234567891011

/petsc/src/vec/is/is/tests/
H A Dex1f.F9015 PetscBool flag, compute, permanent
46 PetscCallA(ISPermutation(is, flag, ierr))
47 PetscCheckA(.not. flag, PETSC_COMM_SELF, PETSC_ERR_PLIB, 'Error checking permutation')
48 PetscCallA(ISGetInfo(is, IS_PERMUTATION, IS_LOCAL, compute, flag, ierr))
49 PetscCallA(ISIdentity(is, flag, ierr))
50 PetscCheckA((rank /= 0) .or. flag, PETSC_COMM_SELF, PETSC_ERR_PLIB, 'Error checking identity')
51 …PetscCheckA((rank == 0) .or. (.not. flag), PETSC_COMM_SELF, PETSC_ERR_PLIB, 'Error checking identi…
54 PetscCallA(ISGetInfo(is, IS_PERMUTATION, IS_LOCAL, compute, flag, ierr))
55 PetscCheckA(flag, PETSC_COMM_SELF, PETSC_ERR_PLIB, 'Error checking permutation second time')
56 PetscCallA(ISGetInfo(is, IS_IDENTITY, IS_LOCAL, compute, flag, ierr))
[all …]
H A Dex2f.F9013 PetscBool flag
30 PetscCallA(PetscObjectTypeCompare(is, ISSTRIDE, flag, ierr))
31 PetscCheckA(flag, PETSC_COMM_SELF, PETSC_ERR_PLIB, 'Wrong result from PetscObjectTypeCompare')
/petsc/src/sys/utils/
H A Dpdisplay.c32 …rCode PetscOptionsGetenv(MPI_Comm comm, const char name[], char env[], size_t len, PetscBool *flag) in PetscOptionsGetenv() argument
52 if (flag) *flag = PETSC_TRUE; in PetscOptionsGetenv()
64 if (flag) *flag = flg; in PetscOptionsGetenv()
67 PetscCall(PetscOptionsHasName(NULL, NULL, work, flag)); in PetscOptionsGetenv()
83 PetscBool flag; in PetscWorldIsSingleHost() local
89 PetscCall(PetscStrcmp(hostname, roothostname, &flag)); in PetscWorldIsSingleHost()
91 localmatch = (PetscMPIInt)flag; in PetscWorldIsSingleHost()
102 PetscBool flag, singlehost = PETSC_FALSE; in PetscSetDisplay() local
107 …PetscCall(PetscOptionsGetString(NULL, NULL, "-display", PetscDisplay, sizeof(PetscDisplay), &flag)… in PetscSetDisplay()
108 if (flag) PetscFunctionReturn(PETSC_SUCCESS); in PetscSetDisplay()
[all …]
/petsc/lib/petsc/bin/maint/petsclinter/petsclinter/classes/
H A D_diag.py141 def _expand_flag(flag: Union[Iterable[str], str]) -> str:
161 if not isinstance(flag, str):
163 flag = '-'.join(flag)
165 raise ValueError(type(flag)) from ex
166 return flag
190 def check_flag(cls, flag: str) -> str:
208 flag = cls._expand_flag(flag)
209 if flag not in cls._registered:
211 return flag
286 def disable(self, flag: str) -> None:
[all …]
/petsc/src/sys/error/
H A Dfp.c184 PetscErrorCode PetscSetFPTrap(PetscFPTrap flag) in PetscSetFPTrap() argument
191 if (flag == PETSC_FP_TRAP_ON) { in PetscSetFPTrap()
199 _trapmode = flag; in PetscSetFPTrap()
258 PetscErrorCode PetscSetFPTrap(PetscFPTrap flag) in PetscSetFPTrap() argument
265 if (flag == PETSC_FP_TRAP_ON) { in PetscSetFPTrap()
270 _trapmode = flag; in PetscSetFPTrap()
309 PetscErrorCode PetscSetFPTrap(PetscFPTrap flag)
312 …if (flag == PETSC_FP_TRAP_ON) handle_sigfpes(_ON, , _EN_UNDERFL | _EN_OVERFL | _EN_DIVZERO | _EN_I…
314 _trapmode = flag;
376 PetscErrorCode PetscSetFPTrap(PetscFPTrap flag)
[all …]
/petsc/src/binding/petsc4py/src/petsc4py/PETSc/
H A Dpetscopt.pxi69 cdef PetscBool flag = PETSC_FALSE
70 CHKERR(PetscOptionsGetBool(opt, pre, name, &value, &flag))
71 if flag==PETSC_TRUE: return toBool(value)
78 cdef PetscBool flag = PETSC_FALSE
86 CHKERR(PetscOptionsGetBoolArray(opt, pre, name, ivalue, &nmax, &flag))
87 if flag==PETSC_TRUE: return array_b(nmax, ivalue).astype('bool')
93 cdef PetscBool flag = PETSC_FALSE
94 CHKERR(PetscOptionsGetInt(opt, pre, name, &value, &flag))
95 if flag==PETSC_TRUE: return toInt(value)
102 cdef PetscBool flag = PETSC_FALSE
[all …]
H A DLog.pyx266 cdef PetscBool flag = PETSC_FALSE
267 CHKERR(PetscLogIsActive(&flag))
268 return toBool(flag)
375 cdef PetscBool flag = PETSC_FALSE
376 CHKERR(PetscLogStageGetActive(self.id, &flag))
377 return toBool(flag)
379 def setActive(self, flag: bool) -> None:
390 if flag: tval = PETSC_TRUE
413 cdef PetscBool flag = PETSC_FALSE
414 CHKERR(PetscLogStageGetVisible(self.id, &flag))
[all …]
/petsc/src/vec/is/is/utils/
H A Discomp.c39 PetscBool flag; in ISEqual() local
66 if (sz1 != sz2) flag = PETSC_FALSE; in ISEqual()
79 PetscCall(PetscArraycmp(a1, a2, sz1, &flag)); in ISEqual()
88 PetscCallMPI(MPIU_Allreduce(&flag, flg, 1, MPI_C_BOOL, MPI_LAND, comm)); in ISEqual()
121 PetscBool flag; in ISEqualUnsorted() local
148 if (sz1 != sz2) flag = PETSC_FALSE; in ISEqualUnsorted()
153 PetscCall(PetscArraycmp(ptr1, ptr2, sz1, &flag)); in ISEqualUnsorted()
159 PetscCallMPI(MPIU_Allreduce(&flag, flg, 1, MPI_C_BOOL, MPI_LAND, comm)); in ISEqualUnsorted()
/petsc/src/ksp/ksp/interface/
H A Ditcl.c340 PetscBool flg, flag, reuse, set; in KSPSetFromOptions() local
378 … initial guess", "KSPSetInitialNonzero", ksp->guess_zero ? PETSC_FALSE : PETSC_TRUE, &flag, &flg)); in KSPSetFromOptions()
379 if (flg) PetscCall(KSPSetInitialGuessNonzero(ksp, flag)); in KSPSetFromOptions()
403 PetscCall(KSPGetDiagonalScale(ksp, &flag)); in KSPSetFromOptions()
404 …"Diagonal scale matrix before building preconditioner", "KSPSetDiagonalScale", flag, &flag, &flg)); in KSPSetFromOptions()
405 if (flg) PetscCall(KSPSetDiagonalScale(ksp, flag)); in KSPSetFromOptions()
406 PetscCall(KSPGetDiagonalScaleFix(ksp, &flag)); in KSPSetFromOptions()
407 …le_fix", "Fix diagonally scaled matrix after solve", "KSPSetDiagonalScaleFix", flag, &flag, &flg)); in KSPSetFromOptions()
408 if (flg) PetscCall(KSPSetDiagonalScaleFix(ksp, flag)); in KSPSetFromOptions()
427 …m for computing relative convergence", "KSPConvergedDefaultSetUIRNorm", PETSC_FALSE, &flag, &set)); in KSPSetFromOptions()
[all …]
/petsc/src/sys/tests/
H A Dex41.c12 PetscBool has, flag; in main() local
43 PetscCall(PetscHSetIQueryAdd(ht, 123, &flag)); in main()
44 PetscTestCheck(flag == PETSC_TRUE); in main()
45 PetscCall(PetscHSetIQueryAdd(ht, 123, &flag)); in main()
46 PetscTestCheck(flag == PETSC_FALSE); in main()
47 PetscCall(PetscHSetIQueryDel(ht, 123, &flag)); in main()
48 PetscTestCheck(flag == PETSC_TRUE); in main()
49 PetscCall(PetscHSetIQueryDel(ht, 123, &flag)); in main()
50 PetscTestCheck(flag == PETSC_FALSE); in main()
H A Dex40.c27 PetscBool has, flag; in PETSC_HASH_MAP() local
62 PetscCall(PetscHMapIQuerySet(ht, 123, 1, &flag)); in PETSC_HASH_MAP()
63 PetscTestCheck(flag == PETSC_TRUE); in PETSC_HASH_MAP()
64 PetscCall(PetscHMapIQuerySet(ht, 123, 1, &flag)); in PETSC_HASH_MAP()
65 PetscTestCheck(flag == PETSC_FALSE); in PETSC_HASH_MAP()
66 PetscCall(PetscHMapIQueryDel(ht, 123, &flag)); in PETSC_HASH_MAP()
67 PetscTestCheck(flag == PETSC_TRUE); in PETSC_HASH_MAP()
68 PetscCall(PetscHMapIQueryDel(ht, 123, &flag)); in PETSC_HASH_MAP()
69 PetscTestCheck(flag == PETSC_FALSE); in PETSC_HASH_MAP()
H A Dex42.c11 PetscBool flag; in main() local
28 PetscCall(PetscHSetIQueryAdd(table, key, &flag)); in main()
39 PetscCall(PetscHSetIHas(table, key, &flag)); in main()
48 PetscCall(PetscHSetIQueryDel(table, key, &flag)); in main()
H A Dex43.c12 PetscBool flag; in main() local
30 PetscCall(PetscHSetIJQueryAdd(table, key, &flag)); in main()
42 PetscCall(PetscHSetIJHas(table, key, &flag)); in main()
52 PetscCall(PetscHSetIJQueryDel(table, key, &flag)); in main()
/petsc/config/BuildSystem/config/
H A DcompilersFortran.py70 for flag in ['', '-cpp', '-xpp=cpp', '-F', '-Cpp', '-fpp', '-fpp:-m']:
75 …self.setCompilers.addCompilerFlag(flag, body = '#define dummy \n dummy\n#ifndef dummy\n …
77 setattr(self.setCompilers, flagsArg, oldFlags+' '+flag)
80 self.logPrint('Fortran uses '+flag+' preprocessor', 3, 'compilers')
96 for flag in ['-D', '-WF,-D']:
97 …if self.setCompilers.checkCompilerFlag(flag+'Testing', body = '#define dummy \n dummy\n#…
99 self.FortranDefineCompilerOption = flag
102 self.logPrint('Fortran uses '+flag+' for defining macro', 3, 'compilers')
392 for flag in ['-I', '-p', '-M']:
393 self.setCompilers.FFLAGS = flag+testdir+' '+self.setCompilers.FFLAGS
[all …]
/petsc/src/mat/impls/sbaij/seq/
H A Drelax.h122 PetscErrorCode MatSOR_SeqSBAIJ_ushort(Mat A, Vec bb, PetscReal omega, MatSORType flag, PetscReal fs… in MatSOR_SeqSBAIJ_ushort() argument
124 PetscErrorCode MatSOR_SeqSBAIJ(Mat A, Vec bb, PetscReal omega, MatSORType flag, PetscReal fshift, P… in MatSOR_SeqSBAIJ_ushort()
143 …PetscCheck(!(flag & SOR_EISENSTAT), PETSC_COMM_SELF, PETSC_ERR_SUP, "No support yet for Eisenstat"… in MatSOR_SeqSBAIJ_ushort()
164 if (flag == SOR_APPLY_UPPER) { in MatSOR_SeqSBAIJ_ushort()
183 if (flag & SOR_ZERO_INITIAL_GUESS) { in MatSOR_SeqSBAIJ_ushort()
184 if (flag & SOR_FORWARD_SWEEP || flag & SOR_LOCAL_FORWARD_SWEEP) { in MatSOR_SeqSBAIJ_ushort()
199 if (flag & SOR_BACKWARD_SWEEP || flag & SOR_LOCAL_BACKWARD_SWEEP) { in MatSOR_SeqSBAIJ_ushort()
201 if (!(flag & SOR_FORWARD_SWEEP || flag & SOR_LOCAL_FORWARD_SWEEP)) { in MatSOR_SeqSBAIJ_ushort()
246 if (flag & SOR_FORWARD_SWEEP || flag & SOR_LOCAL_FORWARD_SWEEP) { in MatSOR_SeqSBAIJ_ushort()
264 if (flag & SOR_BACKWARD_SWEEP || flag & SOR_LOCAL_BACKWARD_SWEEP) { in MatSOR_SeqSBAIJ_ushort()
/petsc/src/binding/petsc4py/src/lib-petsc/
H A Dcustom.h194 PetscErrorCode MatIsPreallocated(Mat A,PetscBool *flag) in MatIsPreallocated() argument
198 PetscAssertPointer(flag,2); in MatIsPreallocated()
199 *flag = A->preallocated; in MatIsPreallocated()
433 PetscErrorCode SNESGetUseMFFD(SNES snes,PetscBool *flag) in SNESGetUseMFFD() argument
440 PetscAssertPointer(flag,2); in SNESGetUseMFFD()
441 *flag = PETSC_FALSE; in SNESGetUseMFFD()
443 if (J) PetscCall(PetscObjectTypeCompare((PetscObject)J,MATMFFD,flag)); in SNESGetUseMFFD()
444 else if (jac == MatMFFDComputeJacobian) *flag = PETSC_TRUE; in SNESGetUseMFFD()
449 PetscErrorCode SNESSetUseMFFD(SNES snes,PetscBool flag) in SNESSetUseMFFD() argument
462 if (flg && flag) PetscFunctionReturn(PETSC_SUCCESS); in SNESSetUseMFFD()
[all …]
/petsc/src/sys/objects/ftn-custom/
H A Dzoptionsf.c130 PetscBool flag; in petscoptionsboolarray_() local
140 … = PetscOptionsBoolArray_Private(PetscOptionsObject, copt, ctext, cman, dvalue, nmax, &flag); in petscoptionsboolarray_()
142 if (!FORTRANNULLBOOL(flg)) *flg = flag; in petscoptionsboolarray_()
151 PetscBool flag; in petscoptionsenumprivate_() local
161 …etscOptionsEnum_Private(PetscOptionsObject, copt, ctext, cman, list, *currentvalue, ivalue, &flag); in petscoptionsenumprivate_()
163 if (!FORTRANNULLBOOL(flg)) *flg = flag; in petscoptionsenumprivate_()
286 PetscBool flag; in petscoptionsstring_() local
299 …OptionsString_Private(PetscOptionsObject, copt, ctext, cman, ccurrent, value, lenvalue - 1, &flag); in petscoptionsstring_()
301 if (!FORTRANNULLBOOL(flg)) *flg = flag; in petscoptionsstring_()
306 FIXRETURNCHAR(flag, value, lenvalue); in petscoptionsstring_()
[all …]
/petsc/src/ksp/pc/impls/sor/
H A Dsor.c30 PetscInt flag = jac->sym | SOR_ZERO_INITIAL_GUESS; in PCApply_SOR() local
33 PetscCall(MatSOR(pc->pmat, x, jac->omega, (MatSORType)flag, jac->fshift, jac->its, jac->lits, y)); in PCApply_SOR()
41 PetscInt flag = jac->sym | SOR_ZERO_INITIAL_GUESS; in PCApplyTranspose_SOR() local
47 PetscCall(MatSOR(pc->pmat, x, jac->omega, (MatSORType)flag, jac->fshift, jac->its, jac->lits, y)); in PCApplyTranspose_SOR()
121 static PetscErrorCode PCSORSetSymmetric_SOR(PC pc, MatSORType flag) in PCSORSetSymmetric_SOR() argument
126 jac->sym = flag; in PCSORSetSymmetric_SOR()
150 static PetscErrorCode PCSORGetSymmetric_SOR(PC pc, MatSORType *flag) in PCSORGetSymmetric_SOR() argument
155 *flag = jac->sym; in PCSORGetSymmetric_SOR()
214 PetscErrorCode PCSORGetSymmetric(PC pc, MatSORType *flag) in PCSORGetSymmetric() argument
218 PetscUseMethod(pc, "PCSORGetSymmetric_C", (PC, MatSORType *), (pc, flag)); in PCSORGetSymmetric()
[all …]
/petsc/src/mat/tests/
H A Dex72.c34 …PetscBool flag, symmetric = PETSC_FALSE, skew = PETSC_FALSE, aijonly = PETSC_FALSE, permute = PE… in main() local
46 …PetscOptionsString("-fin", "Input Matrix Market file", "", filein, filein, sizeof(filein), &flag)); in main()
47 …PetscCheck(flag, PETSC_COMM_SELF, PETSC_ERR_USER_INPUT, "Please use -fin <filename> to specify the… in main()
48 …fout", "Output file in PETSc sparse binary format", "", fileout, fileout, sizeof(fileout), &flag)); in main()
49 …PetscCheck(flag, PETSC_COMM_SELF, PETSC_ERR_USER_INPUT, "Please use -fout <filename> to specify th… in main()
/petsc/include/petsc/private/khash/
H A Dkhash.h169 #define __ac_isempty(flag, i) ((flag[i>>4]>>((i&0xfU)<<1))&2) argument
170 #define __ac_isdel(flag, i) ((flag[i>>4]>>((i&0xfU)<<1))&1) argument
171 #define __ac_iseither(flag, i) ((flag[i>>4]>>((i&0xfU)<<1))&3) argument
172 #define __ac_set_isdel_false(flag, i) (flag[i>>4]&=~(1U<<((i&0xfU)<<1))) argument
173 #define __ac_set_isempty_false(flag, i) (flag[i>>4]&=~(2U<<((i&0xfU)<<1))) argument
174 #define __ac_set_isboth_false(flag, i) (flag[i>>4]&=~(3U<<((i&0xfU)<<1))) argument
175 #define __ac_set_isdel_true(flag, i) (flag[i>>4]|=1U<<((i&0xfU)<<1)) argument
/petsc/src/ksp/ksp/tests/
H A Dex33.c18 PetscBool flag, loadA = PETSC_FALSE, loadB = PETSC_FALSE; in main() local
47 PetscCall(PetscOptionsGetInt(NULL, NULL, "-m", &m, &flag)); in main()
48 if (!flag) m = n; in main()
102 PetscCall(PetscOptionsGetScalar(NULL, NULL, "-sigma", &sigma, &flag)); in main()
103 if (flag) { in main()
111 PetscCall(MatIsSymmetric(A, 0.0, &flag)); in main()
/petsc/src/sys/mpiuni/
H A Dmpitime.c18 static int flag = 1; in MPI_Wtime() local
26 if (flag) { in MPI_Wtime()
36 flag = 0; in MPI_Wtime()
/petsc/src/sys/objects/
H A Dinit.c160 static void Petsc_MPI_AbortOnError(PETSC_UNUSED MPI_Comm *comm, PetscMPIInt *flag, ...) in Petsc_MPI_AbortOnError() argument
163 PetscCallContinue((*PetscErrorPrintf)("MPI error %d\n", *flag)); in Petsc_MPI_AbortOnError()
167 static void Petsc_MPI_DebuggerOnError(MPI_Comm *comm, PetscMPIInt *flag, ...) in Petsc_MPI_DebuggerOnError() argument
170 PetscCallContinue((*PetscErrorPrintf)("MPI error %d\n", *flag)); in Petsc_MPI_DebuggerOnError()
171 if (PetscAttachDebugger()) PETSCABORT(*comm, (PetscErrorCode)*flag); /* hopeless so get out */ in Petsc_MPI_DebuggerOnError()
239 PetscBool flg1 = PETSC_FALSE, flg2 = PETSC_FALSE, flag, hasHelp; in PetscOptionsCheckInitial_Private() local
426 PetscCall(PetscOptionsGetIntArray(NULL, NULL, "-debugger_nodes", ranks, &lsize, &flag)); in PetscOptionsCheckInitial_Private()
427 if (flag) { in PetscOptionsCheckInitial_Private()
449 PetscCall(PetscOptionsGetIntArray(NULL, NULL, "-debugger_ranks", ranks, &lsize, &flag)); in PetscOptionsCheckInitial_Private()
451 if (flag) { in PetscOptionsCheckInitial_Private()
[all …]
/petsc/src/mat/impls/mffd/
H A Dwp.c129 static PetscErrorCode MatMFFDWPSetComputeNormU_P(Mat mat, PetscBool flag) in MatMFFDWPSetComputeNormU_P() argument
135 hctx->computenormU = flag; in MatMFFDWPSetComputeNormU_P()
160 PetscErrorCode MatMFFDWPSetComputeNormU(Mat A, PetscBool flag) in MatMFFDWPSetComputeNormU() argument
164 PetscTryMethod(A, "MatMFFDWPSetComputeNormU_C", (Mat, PetscBool), (A, flag)); in MatMFFDWPSetComputeNormU()
/petsc/src/ksp/ksp/impls/minres/
H A Dminres.c111 PetscInt flag = -2, flag0 = -2, QLPiter = 0; in KSPSolve_MINRES() local
287 flag = 6; in KSPSolve_MINRES()
291 flag = 9; in KSPSolve_MINRES()
298 if ((Acond < minres->TranCond || !minres->qlp) && flag == flag0 && QLPiter == 0) { // MINRES in KSPSolve_MINRES()
311 flag = 6; in KSPSolve_MINRES()
395 if (flag != 9) rnorm = phi; in KSPSolve_MINRES()
402 if (flag == flag0 || flag == 9) { in KSPSolve_MINRES()
404 if (epsx >= beta1) flag = 5; // x is an eigenvector in KSPSolve_MINRES()
408 if (xnorm >= minres->maxxnorm) flag = 6; // xnorm exceeded its limit in KSPSolve_MINRES()
409 if (t2 <= 1) flag = 4; // Accurate LS solution in KSPSolve_MINRES()
[all …]

1234567891011