| /petsc/src/ksp/ksp/tutorials/ |
| H A D | ex45.c | 78 PetscScalar Hx, Hy, Hz, HxHydHz, HyHzdHx, HxHzdHy; in ComputeRHS() local
86 Hy = 1.0 / (PetscReal)(my - 1); in ComputeRHS()
88 HxHydHz = Hx * Hy / Hz; in ComputeRHS()
89 HxHzdHy = Hx * Hz / Hy; in ComputeRHS()
90 HyHzdHx = Hy * Hz / Hx; in ComputeRHS()
100 barray[k][j][i] = Hx * Hy * Hz; in ComputeRHS()
121 PetscScalar v[7], Hx, Hy, Hz, HxHydHz, HyHzdHx, HxHzdHy; in ComputeMatrix() local
129 Hy = 1.0 / (PetscReal)(my - 1); in ComputeMatrix()
131 HxHydHz = Hx * Hy / Hz; in ComputeMatrix()
132 HxHzdHy = Hx * Hz / Hy; in ComputeMatrix()
[all …]
|
| H A D | ex66.c | 67 PetscScalar Hx, Hy, pi, uu, tt; in ComputeRHS() local
79 Hy = 1.0 / (PetscReal)N; in ComputeRHS()
84 … * pi * ((PetscReal)i + 0.5) * Hx) * PetscCosScalar(tt * pi * ((PetscReal)j + 0.5) * Hy) * Hx * Hy; in ComputeRHS()
101 PetscScalar v[5], Hx, Hy, HydHx, HxdHy; in ComputeJacobian() local
110 Hy = 1.0 / (PetscReal)N; in ComputeJacobian()
111 HxdHy = Hx / Hy; in ComputeJacobian()
112 HydHx = Hy / Hx; in ComputeJacobian()
|
| H A D | ex29.c | 104 PetscScalar Hx, Hy, HydHx, HxdHy; in ComputeRHS() local
112 Hy = 1.0 / (PetscReal)(my - 1); in ComputeRHS()
113 HxdHy = Hx / Hy; in ComputeRHS()
114 HydHx = Hy / Hx; in ComputeRHS()
120 …PetscReal)i * Hx) / user->nu) * PetscExpScalar(-((PetscReal)j * Hy) * ((PetscReal)j * Hy) / user->… in ComputeRHS()
122 … * Hx) / user->nu) * PetscExpScalar(-((PetscReal)j * Hy) * ((PetscReal)j * Hy) / user->nu) * Hx * … in ComputeRHS()
159 PetscReal Hx, Hy, HydHx, HxdHy, rho; in ComputeMatrix() local
169 Hy = 1.0 / (PetscReal)(my - 1); in ComputeMatrix()
170 HxdHy = Hx / Hy; in ComputeMatrix()
171 HydHx = Hy / Hx; in ComputeMatrix()
|
| H A D | ex32.c | 87 PetscScalar Hx, Hy; in ComputeRHS() local
95 Hy = 1.0 / (PetscReal)my; in ComputeRHS()
99 …r->nu) * PetscExpScalar(-(((PetscReal)j + 0.5) * Hy) * (((PetscReal)j + 0.5) * Hy) / user->nu) * H… in ComputeRHS()
121 PetscScalar v[5], Hx, Hy, HydHx, HxdHy; in ComputeMatrix() local
129 Hy = 1.0 / (PetscReal)my; in ComputeMatrix()
130 HxdHy = Hx / Hy; in ComputeMatrix()
131 HydHx = Hy / Hx; in ComputeMatrix()
|
| H A D | ex50.c | 71 PetscScalar Hx, Hy, pi, uu, tt; in ComputeRHS() local
83 Hy = 1.0 / (PetscReal)N; in ComputeRHS()
88 … * pi * ((PetscReal)i + 0.5) * Hx) * PetscCosScalar(tt * pi * ((PetscReal)j + 0.5) * Hy) * Hx * Hy; in ComputeRHS()
105 PetscScalar v[5], Hx, Hy, HydHx, HxdHy; in ComputeJacobian() local
114 Hy = 1.0 / (PetscReal)N; in ComputeJacobian()
115 HxdHy = Hx / Hy; in ComputeJacobian()
116 HydHx = Hy / Hx; in ComputeJacobian()
|
| H A D | ex45f.F90 | 29 PetscScalar h, Hx, Hy
37 Hy = 1.0/real(my - 1)
38 h = Hx*Hy
51 PetscScalar v(5), Hx, Hy
61 Hy = 1.0/real(my - 1)
62 HxdHy = Hx/Hy
63 HydHx = Hy/Hx
|
| H A D | ex34.c | 32 PetscScalar Hx, Hy, Hz; in main() local
65 Hy = 1.0 / (PetscReal)my; in main()
73 …al)i + 0.5) * Hx)) * PetscCosScalar(2 * PETSC_PI * (((PetscReal)j + 0.5) * Hy)) * PetscCosScalar(2… in main()
98 PetscScalar Hx, Hy, Hz; in ComputeRHS() local
107 Hy = 1.0 / (PetscReal)my; in ComputeRHS()
115 …2 * PETSC_PI * (((PetscReal)j + 0.5) * Hy)) * PetscCosScalar(2 * PETSC_PI * (((PetscReal)k + 0.5) … in ComputeRHS()
136 PetscScalar v[7], Hx, Hy, Hz, HyHzdHx, HxHzdHy, HxHydHz; in ComputeMatrix() local
146 Hy = 1.0 / (PetscReal)my; in ComputeMatrix()
148 HyHzdHx = Hy * Hz / Hx; in ComputeMatrix()
149 HxHzdHy = Hx * Hz / Hy; in ComputeMatrix()
[all …]
|
| H A D | ex22f.F90 | 44 PetscScalar v(7), Hx, Hy, Hz
55 Hy = 1.0/real(my - 1)
57 HxHydHz = Hx*Hy/Hz
58 HxHzdHy = Hx*Hz/Hy
59 HyHzdHx = Hy*Hz/Hx
|
| H A D | ex73.c | 943 PetscScalar Hx, Hy; in ComputeRHS_DMDA() local
952 Hy = 1.0 / (PetscReal)(my - 1); in ComputeRHS_DMDA()
956 … * Hx) / user->nu) * PetscExpScalar(-((PetscReal)j * Hy) * ((PetscReal)j * Hy) / user->nu) * Hx * … in ComputeRHS_DMDA()
991 PetscReal Hx, Hy, HydHx, HxdHy, rho; in ComputeMatrix_DMDA() local
1002 Hy = 1.0 / (PetscReal)(my - 1); in ComputeMatrix_DMDA()
1003 HxdHy = Hx / Hy; in ComputeMatrix_DMDA()
1004 HydHx = Hy / Hx; in ComputeMatrix_DMDA()
|
| /petsc/src/ksp/ksp/tests/ |
| H A D | ex32.c | 128 PetscScalar *v, *v_neighbor, Hx, Hy, Hz, HxHydHz, HyHzdHx, HxHzdHy; in ComputeMatrix() local
137 Hy = 1.0 / (PetscReal)(my - 1); in ComputeMatrix()
139 HxHydHz = Hx * Hy / Hz; in ComputeMatrix()
140 HxHzdHy = Hx * Hz / Hy; in ComputeMatrix()
141 HyHzdHx = Hy * Hz / Hx; in ComputeMatrix()
|
| /petsc/src/mat/tests/ |
| H A D | ex129.c | 186 PetscScalar *v, *v_neighbor, Hx, Hy, Hz, HxHydHz, HyHzdHx, HxHzdHy, r1, r2; in ComputeMatrix() local
201 Hy = 1.0 / (PetscReal)(my - 1); in ComputeMatrix()
203 HxHydHz = Hx * Hy / Hz; in ComputeMatrix()
204 HxHzdHy = Hx * Hz / Hy; in ComputeMatrix()
205 HyHzdHx = Hy * Hz / Hx; in ComputeMatrix()
|