| /petsc/src/dm/tests/ |
| H A D | ex47.c | 14 const PetscScalar Lx = 1.0, Ly = 1.0, Lz = 1.0; in test_3d() local
26 PetscCall(DMDASetUniformCoordinates(da, 0.0, Lx, 0.0, Ly, 0.0, Lz)); in test_3d()
34 PetscScalar y = (Ly * j) / N; in test_3d()
36 …va[k][j][i] = PetscPowScalarInt(x - 0.5 * Lx, 2) + PetscPowScalarInt(y - 0.5 * Ly, 2) + PetscPow… in test_3d()
57 const PetscScalar Lx = 1.0, Ly = 1.0, Lz = 1.0; in test_2d() local
68 PetscCall(DMDASetUniformCoordinates(da, 0.0, Lx, 0.0, Ly, 0.0, Lz)); in test_2d()
75 PetscScalar y = (Ly * j) / N; in test_2d()
76 va[j][i] = PetscPowScalarInt(x - 0.5 * Lx, 2) + PetscPowScalarInt(y - 0.5 * Ly, 2); in test_2d()
96 const PetscScalar Lx = 1.0, Ly = 1.0; in test_2d_nocoord() local
113 PetscScalar y = (Ly * j) / N; in test_2d_nocoord()
[all …]
|
| H A D | ex42.c | 16 const PetscScalar Lx = 1.0, Ly = 1.0, Lz = 1.0; in test_3d() local
28 PetscCall(DMDASetUniformCoordinates(da, 0.0, Lx, 0.0, Ly, 0.0, Lz)); in test_3d()
36 PetscScalar y = (Ly * j) / N; in test_3d()
38 …va[k][j][i] = PetscPowScalarInt(x - 0.5 * Lx, 2) + PetscPowScalarInt(y - 0.5 * Ly, 2) + PetscPow… in test_3d()
59 const PetscScalar Lx = 1.0, Ly = 1.0, Lz = 1.0; in test_2d() local
70 PetscCall(DMDASetUniformCoordinates(da, 0.0, Lx, 0.0, Ly, 0.0, Lz)); in test_2d()
77 PetscScalar y = (Ly * j) / N; in test_2d()
78 va[j][i] = PetscPowScalarInt(x - 0.5 * Lx, 2) + PetscPowScalarInt(y - 0.5 * Ly, 2); in test_2d()
98 const PetscScalar Lx = 1.0, Ly = 1.0; in test_2d_nocoord() local
115 PetscScalar y = (Ly * j) / N; in test_2d_nocoord()
[all …]
|
| H A D | ex48.c | 28 const PetscScalar Lx = 1.0, Ly = 1.0, Lz = 1.0; in test_3d() local
41 PetscCall(DMDASetUniformCoordinates(da, 0.0, Lx, 0.0, Ly, 0.0, Lz)); in test_3d()
49 const PetscScalar y = (Ly * j) / N; in test_3d()
51 …][i][c] = PetscPowScalarInt(x - 0.5 * Lx, 2) + PetscPowScalarInt(y - 0.5 * Ly, 2) + PetscPowScalar… in test_3d()
71 const PetscScalar Lx = 1.0, Ly = 1.0, Lz = 1.0; in test_2d() local
83 PetscCall(DMDASetUniformCoordinates(da, 0.0, Lx, 0.0, Ly, 0.0, Lz)); in test_2d()
90 const PetscScalar y = (Ly * j) / N; in test_2d()
91 …) va[j][i][c] = PetscPowScalarInt(x - 0.5 * Lx, 2) + PetscPowScalarInt(y - 0.5 * Ly, 2) + 10.0 * c; in test_2d()
110 const PetscScalar Lx = 1.0, Ly = 1.0, Lz = 1.0; in test_3d_compat() local
123 PetscCall(DMDASetUniformCoordinates(da, 0.0, Lx, 0.0, Ly, 0.0, Lz)); in test_3d_compat()
[all …]
|
| /petsc/src/snes/tutorials/ |
| H A D | ex48.c | 255 PetscReal Lx, Ly, Lz; /* Model domain */ member
304 …units->meter * PetscSinReal(x * 2 * PETSC_PI / thi->Lx) * PetscSinReal(y * 2 * PETSC_PI / thi->Ly); in THIInitialize_HOM_A()
317 …SinReal(x * 2 * PETSC_PI / thi->Lx) * PetscSinReal(y * 2 * PETSC_PI / thi->Ly)) * units->Pascal * … in THIInitialize_HOM_C()
326 …PetscReal x = xx * 2 * PETSC_PI / thi->Lx - PETSC_PI, y = yy * 2 * PETSC_PI / thi->Ly - PETSC_PI; … in THIInitialize_HOM_X()
337 …PetscReal x = xx * 2 * PETSC_PI / thi->Lx - PETSC_PI, y = yy * 2 * PETSC_PI / thi->Ly - PETSC_PI; … in THIInitialize_HOM_Y()
350 …PetscReal x = xx * 2 * PETSC_PI / thi->Lx - PETSC_PI, y = yy * 2 * PETSC_PI / thi->Ly - PETSC_PI; … in THIInitialize_HOM_Z()
461 thi->Ly = 10.e3; in THICreate()
475 if (flg) thi->Lx = thi->Ly = L; in THICreate()
477 PetscCall(PetscOptionsReal("-thi_Ly", "Y Domain size (m)", "", thi->Ly, &thi->Ly, NULL)); in THICreate()
543 thi->Ly *= units->meter; in THICreate()
[all …]
|
| H A D | ex5.c | 227 const PetscReal Lx = 1., Ly = 1.; in MMSSolution4() local
231 …u[0] = (PetscPowReal(x, 4) - PetscSqr(Lx) * PetscSqr(x)) * (PetscPowReal(y, 4) - PetscSqr(Ly) * Pe… in MMSSolution4()
237 const PetscReal Lx = 1., Ly = 1.; in MMSForcing4() local
241 …Ly) - 6 * PetscSqr(y)) + 2 * PetscSqr(y) * (PetscSqr(Lx) - 6 * PetscSqr(x)) * (PetscSqr(y) - Petsc… in MMSForcing4()
|
| H A D | ex55.c | 174 const PetscReal Lx = 1., Ly = 1.; in MMSSolution4() local
176 …u[0] = (PetscPowReal(x, 4) - PetscSqr(Lx) * PetscSqr(x)) * (PetscPowReal(y, 4) - PetscSqr(Ly) * Pe… in MMSSolution4()
182 const PetscReal Lx = 1., Ly = 1.; in MMSForcing4() local
184 …Ly) - 6 * PetscSqr(y)) + 2 * PetscSqr(y) * (PetscSqr(Lx) - 6 * PetscSqr(x)) * (PetscSqr(y) - Petsc… in MMSForcing4()
|
| /petsc/src/ts/tutorials/ |
| H A D | ex14.c | 241 PetscReal Lx, Ly, Lz; /* Model domain */ member
343 …units->meter * PetscSinReal(x * 2 * PETSC_PI / thi->Lx) * PetscSinReal(y * 2 * PETSC_PI / thi->Ly); in THIInitialize_HOM_A()
356 …SinReal(x * 2 * PETSC_PI / thi->Lx) * PetscSinReal(y * 2 * PETSC_PI / thi->Ly)) * units->Pascal * … in THIInitialize_HOM_C()
378 …PetscReal x = xx * 2 * PETSC_PI / thi->Lx - PETSC_PI, y = yy * 2 * PETSC_PI / thi->Ly - PETSC_PI; … in THIInitialize_HOM_X()
389 …PetscReal x = xx * 2 * PETSC_PI / thi->Lx - PETSC_PI, y = yy * 2 * PETSC_PI / thi->Ly - PETSC_PI; … in THIInitialize_HOM_Y()
401 …PetscReal x = xx * 2 * PETSC_PI / thi->Lx - PETSC_PI, y = yy * 2 * PETSC_PI / thi->Ly - PETSC_PI; … in THIInitialize_HOM_Z()
525 thi->Ly = 10.e3; in THICreate()
545 if (flg) thi->Lx = thi->Ly = L; in THICreate()
547 PetscCall(PetscOptionsReal("-thi_Ly", "Y Domain size (m)", "", thi->Ly, &thi->Ly, NULL)); in THICreate()
622 thi->Ly *= units->meter; in THICreate()
[all …]
|