| /petsc/src/dm/impls/stag/tests/ |
| H A D | ex30.c | 103 const PetscScalar valA = 1.0; in CreateMat() local 109 PetscCall(DMStagMatSetValuesStencil(dmSol, A, 1, &row, 1, &row, &valA, INSERT_VALUES)); in CreateMat() 114 const PetscScalar valA = 1.0; in CreateMat() local 120 PetscCall(DMStagMatSetValuesStencil(dmSol, A, 1, &row, 1, &row, &valA, INSERT_VALUES)); in CreateMat() 125 const PetscScalar valA = 1.0; in CreateMat() local 131 PetscCall(DMStagMatSetValuesStencil(dmSol, A, 1, &row, 1, &row, &valA, INSERT_VALUES)); in CreateMat() 138 const PetscScalar valA = 1.0; in CreateMat() local 144 PetscCall(DMStagMatSetValuesStencil(dmSol, A, 1, &row, 1, &row, &valA, INSERT_VALUES)); in CreateMat() 148 PetscScalar valA[9]; in CreateMat() local 164 valA[0] = -2.0 / (hx * hx) + -1.0 / (hy * hy) - 1.0 / (hz * hz); in CreateMat() [all …]
|
| H A D | ex15.c | 264 const PetscScalar valA = 1.0; in CreateSystem2d() local 269 PetscCall(DMStagMatSetValuesStencil(dm, *A, 1, &row, 1, &row, &valA, INSERT_VALUES)); in CreateSystem2d() 277 const PetscScalar valA = 1.0; in CreateSystem2d() local 282 PetscCall(DMStagMatSetValuesStencil(dm, *A, 1, &row, 1, &row, &valA, INSERT_VALUES)); in CreateSystem2d() 291 const PetscScalar valA = 1.0; in CreateSystem2d() local 296 PetscCall(DMStagMatSetValuesStencil(dm, *A, 1, &row, 1, &row, &valA, INSERT_VALUES)); in CreateSystem2d() 302 PetscScalar valA[7], valRhs; in CreateSystem2d() local 315 valA[0] = -dv * 1.0 / (hx * hx) - dv * 2.0 / (hy * hy); in CreateSystem2d() 320 valA[1] = dv * 1.0 / (hy * hy); in CreateSystem2d() 325 valA[2] = dv * 1.0 / (hy * hy); in CreateSystem2d() [all …]
|
| H A D | ex18.c | 298 const PetscScalar valA = bogusScale * 1.0; in CreateSystem() local 303 PetscCall(DMStagMatSetValuesStencil(dm, A, 1, &row, 1, &row, &valA, INSERT_VALUES)); in CreateSystem() 313 const PetscScalar valA = 1.0; in CreateSystem() local 318 PetscCall(DMStagMatSetValuesStencil(dm, A, 1, &row, 1, &row, &valA, INSERT_VALUES)); in CreateSystem() 329 const PetscScalar valA = 1.0; in CreateSystem() local 334 PetscCall(DMStagMatSetValuesStencil(dm, A, 1, &row, 1, &row, &valA, INSERT_VALUES)); in CreateSystem() 342 PetscScalar valA[7], valRhs; in CreateSystem() local 355 valA[0] = -dv * 1.0 / (hx * hx) - dv * 2.0 / (hy * hy); in CreateSystem() 360 valA[1] = dv * 1.0 / (hy * hy); in CreateSystem() 365 valA[2] = dv * 1.0 / (hy * hy); in CreateSystem() [all …]
|
| /petsc/src/dm/impls/stag/tutorials/ |
| H A D | ex3.c | 210 const PetscScalar valA = 1.0; in CreateSystem() local 216 PetscCall(DMStagMatSetValuesStencil(dmSol, A, 1, &row, 1, &row, &valA, INSERT_VALUES)); in CreateSystem() 224 const PetscScalar valA = 1.0; in CreateSystem() local 230 PetscCall(DMStagMatSetValuesStencil(dmSol, A, 1, &row, 1, &row, &valA, INSERT_VALUES)); in CreateSystem() 238 const PetscScalar valA = 1.0; in CreateSystem() local 244 PetscCall(DMStagMatSetValuesStencil(dmSol, A, 1, &row, 1, &row, &valA, INSERT_VALUES)); in CreateSystem() 254 const PetscScalar valA = 1.0; in CreateSystem() local 260 PetscCall(DMStagMatSetValuesStencil(dmSol, A, 1, &row, 1, &row, &valA, INSERT_VALUES)); in CreateSystem() 266 PetscScalar valA[9], valRhs; in CreateSystem() local 282 valA[0] = -2.0 / (hx * hx) + -1.0 / (hy * hy) - 1.0 / (hz * hz); in CreateSystem() [all …]
|
| H A D | ex2.c | 186 const PetscScalar valA = 1.0; in CreateSystem() local 191 PetscCall(DMStagMatSetValuesStencil(dmSol, A, 1, &row, 1, &row, &valA, INSERT_VALUES)); in CreateSystem() 199 const PetscScalar valA = 1.0; in CreateSystem() local 204 PetscCall(DMStagMatSetValuesStencil(dmSol, A, 1, &row, 1, &row, &valA, INSERT_VALUES)); in CreateSystem() 213 const PetscScalar valA = 1.0; in CreateSystem() local 218 PetscCall(DMStagMatSetValuesStencil(dmSol, A, 1, &row, 1, &row, &valA, INSERT_VALUES)); in CreateSystem() 224 PetscScalar valA[7], valRhs; in CreateSystem() local 237 valA[0] = -1.0 / (hx * hx) - 2.0 / (hy * hy); in CreateSystem() 242 valA[1] = 1.0 / (hy * hy); in CreateSystem() 247 valA[2] = 1.0 / (hy * hy); in CreateSystem() [all …]
|
| /petsc/src/dm/impls/plex/ |
| H A D | plexsubmesh.c | 2039 PetscInt supportSize, valA, valB; in CheckFaultEdge_Private() local 2044 PetscCall(DMLabelGetValue(label, support[0], &valA)); in CheckFaultEdge_Private() 2046 if ((valA == -1) || (valB == -1)) continue; in CheckFaultEdge_Private() 2047 if (valA * valB > 0) continue; in CheckFaultEdge_Private() 2064 …tscInt_FMT ", %" PetscInt_FMT ":%" PetscInt_FMT ")\n", point, support[0], valA, support[1], valB)); in CheckFaultEdge_Private() 2067 PetscCall(DMLabelGetValue(label, point, &valA)); in CheckFaultEdge_Private() 2068 PetscCall(DMLabelClearValue(label, point, valA)); in CheckFaultEdge_Private() 2079 PetscCall(DMLabelGetValue(label, closure[cl], &valA)); in CheckFaultEdge_Private() 2080 if (valA == -1) { /* Mark as unsplit */ in CheckFaultEdge_Private() 2083 } else if ((valA >= shift && valA < shift2) || (valA <= -shift && valA > -shift2)) { in CheckFaultEdge_Private() [all …]
|