| /petsc/src/snes/tutorials/ |
| H A D | ex75.c | 54 PetscErrorCode SolKxSolution(PetscReal x, PetscReal z, PetscReal kn, PetscReal km, PetscReal B, Pet… in SolKxSolution() argument
96 t1 = kn * kn; in SolKxSolution()
101 t12 = 0.8e1 * t7 * kn * km; in SolKxSolution()
107 t2 = kn * kn; in SolKxSolution()
115 t16 = 0.8e1 * t4 * kn * km; in SolKxSolution()
116 …_bb = sigma * kn * (t3 - t6 + t9 + t10 + t12) / (t10 + t9 + t16 + t6 + t12 + t3) / (t10 + t9 - t16… in SolKxSolution()
126 t13 = kn * kn; in SolKxSolution()
133 t32 = 0.8e1 * t15 * BB * kn * Rp; in SolKxSolution()
140 t67 = 0.2e1 * B * kn; in SolKxSolution()
147 t80 = Rm - kn; in SolKxSolution()
[all …]
|
| H A D | ex69.c | 200 PetscReal kn, km, x, z; in SolKxSolution() local
228 kn = (PetscReal)n * PETSC_PI; in SolKxSolution()
251 t1 = kn * kn; in SolKxSolution()
255 t8 = pow(km + kn, 0.2e1); in SolKxSolution()
257 t16 = pow(km - kn, 0.2e1); in SolKxSolution()
261 t3 = kn * kn; in SolKxSolution()
263 t6 = km - kn; in SolKxSolution()
264 t7 = km + kn; in SolKxSolution()
268 …_bb = sigma * kn * (t5 + 0.4e1 * t6 * t7 * t9) / (t5 + 0.4e1 * t13 * t9) / (t5 + 0.4e1 * t19 * t9); in SolKxSolution()
286 t22 = kn * kn; in SolKxSolution()
[all …]
|
| H A D | ex75.h | 3 PetscErrorCode SolKxData5(PetscReal x[], PetscReal z[], PetscReal *kn, PetscReal *km, PetscReal *B,… in SolKxData5() argument
7 *kn = 100 * M_PI; in SolKxData5()
|
| /petsc/src/mat/impls/baij/seq/ |
| H A D | dgedi.c | 19 PetscInt i__2, kb, kp1, nm1, i, j, k, l, ll, kn, knp1, jn1; in PetscLINPACKgedi() local
31 kn = k * n; in PetscLINPACKgedi()
32 knp1 = kn + k; in PetscLINPACKgedi()
36 aa = &a[1 + kn]; in PetscLINPACKgedi()
56 kn = k * n; in PetscLINPACKgedi()
58 aa = a + kn; in PetscLINPACKgedi()
66 ay = &a[kn + 1]; in PetscLINPACKgedi()
71 ax = &a[kn + 1]; in PetscLINPACKgedi()
|
| H A D | dgefa.c | 17 PetscInt i__2, i__3, kp1, nm1, j, k, l, ll, kn, knp1, jn1; in PetscLINPACKgefa() local
32 kn = k * n; in PetscLINPACKgefa()
51 if (a[l + kn] == 0.0) { in PetscLINPACKgefa()
59 t = a[l + kn]; in PetscLINPACKgefa()
60 a[l + kn] = a[knp1]; in PetscLINPACKgefa()
|
| /petsc/src/dm/tests/ |
| H A D | ex25.c | 8 …= 5, P = 4, m = PETSC_DECIDE, n = PETSC_DECIDE, p = PETSC_DECIDE, i, j, k, is, js, ks, in, jen, kn; in main() local
22 PetscCall(DMDAGetCorners(da, &is, &js, &ks, &in, &jen, &kn)); in main()
26 for (k = ks; k < ks + kn; k++) { in main()
|
| /petsc/src/sys/objects/ |
| H A D | optionsyaml.c | 101 yaml_node_t *kn = yaml_document_get_node(doc, kvn->key); in PetscParseLayerYAML() local
104 PetscCheck(kn, comm, PETSC_ERR_LIB, "Corrupt YAML document"); in PetscParseLayerYAML()
106 …PetscCheck(kn->type == YAML_SCALAR_NODE, comm, PETSC_ERR_SUP, "Unsupported YAML node type: expecte… in PetscParseLayerYAML()
108 PetscCall(PetscStrcmp(STR(kn), "<<", &isMergeKey)); in PetscParseLayerYAML()
111 PetscCall(PetscStrbeginswith(STR(kn), "$$", &isDummyKey)); in PetscParseLayerYAML()
113 itemstr = STR(kn); in PetscParseLayerYAML()
|