| /petsc/src/ksp/ksp/tutorials/ |
| H A D | ex45.c | 78 PetscScalar Hx, Hy, Hz, HxHydHz, HyHzdHx, HxHzdHy; in ComputeRHS() local
87 Hz = 1.0 / (PetscReal)(mz - 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
130 Hz = 1.0 / (PetscReal)(mz - 1); in ComputeMatrix()
131 HxHydHz = Hx * Hy / Hz; in ComputeMatrix()
132 HxHzdHy = Hx * Hz / Hy; in ComputeMatrix()
[all …]
|
| H A D | ex34.c | 32 PetscScalar Hx, Hy, Hz; in main() local
66 Hz = 1.0 / (PetscReal)mz; in main()
73 …TSC_PI * (((PetscReal)j + 0.5) * Hy)) * PetscCosScalar(2 * PETSC_PI * (((PetscReal)k + 0.5) * Hz)); in main()
98 PetscScalar Hx, Hy, Hz; in ComputeRHS() local
108 Hz = 1.0 / (PetscReal)mz; in ComputeRHS()
115 …scReal)j + 0.5) * Hy)) * PetscCosScalar(2 * PETSC_PI * (((PetscReal)k + 0.5) * Hz)) * Hx * Hy * Hz; in ComputeRHS()
136 PetscScalar v[7], Hx, Hy, Hz, HyHzdHx, HxHzdHy, HxHydHz; in ComputeMatrix() local
147 Hz = 1.0 / (PetscReal)mz; 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
56 Hz = 1.0/real(mz - 1)
57 HxHydHz = Hx*Hy/Hz
58 HxHzdHy = Hx*Hz/Hy
59 HyHzdHx = Hy*Hz/Hx
|
| /petsc/src/tao/constrained/tutorials/ |
| H A D | tomographyADMM.c | 20 Mat A, ATA, H, Hx, D, Hz, DTD, HF; member
238 PetscCall(MatCreate(PETSC_COMM_WORLD, &user->Hz)); in InitializeUserData()
239 PetscCall(MatSetSizes(user->Hz, PETSC_DECIDE, PETSC_DECIDE, user->N, user->N)); in InitializeUserData()
240 PetscCall(MatSetFromOptions(user->Hz)); in InitializeUserData()
241 PetscCall(MatSetUp(user->Hz)); in InitializeUserData()
242 PetscCall(MatAssemblyBegin(user->Hz, MAT_FINAL_ASSEMBLY)); in InitializeUserData()
243 PetscCall(MatAssemblyEnd(user->Hz, MAT_FINAL_ASSEMBLY)); in InitializeUserData()
299 PetscCall(MatDestroy(&user->Hz)); in DestroyContext()
349 … PetscCall(TaoADMMSetRegularizerHessianRoutine(tao, user->Hz, user->Hz, HessianReg, (void *)user)); in main()
353 PetscCall(MatShift(user->Hz, 1)); in main()
[all …]
|
| /petsc/src/ksp/ksp/tests/ |
| H A D | ex32.c | 128 PetscScalar *v, *v_neighbor, Hx, Hy, Hz, HxHydHz, HyHzdHx, HxHzdHy; in ComputeMatrix() local
138 Hz = 1.0 / (PetscReal)(mz - 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
202 Hz = 1.0 / (PetscReal)(mz - 1); in ComputeMatrix()
203 HxHydHz = Hx * Hy / Hz; in ComputeMatrix()
204 HxHzdHy = Hx * Hz / Hy; in ComputeMatrix()
205 HyHzdHx = Hy * Hz / Hx; in ComputeMatrix()
|
| /petsc/src/tao/constrained/impls/admm/ |
| H A D | admm.h | 21 Mat Hx, Hxpre, Hz, Hzpre, ATA, BTB, JA, JApre, JB, JBpre; member
|
| H A D | admm.c | 377 …if (am->Hz && am->ops->reghess) PetscCall(TaoSetHessian(am->subsolverZ, am->Hz, am->Hzpre, RegHess… in TaoSolve_ADMM()
646 if (am->Hz) { in TaoDestroy_ADMM()
647 PetscCall(MatDestroy(&am->Hz)); in TaoDestroy_ADMM()
1213 PetscCall(MatDestroy(&am->Hz)); in TaoADMMSetRegularizerHessianRoutine()
1214 am->Hz = H; in TaoADMMSetRegularizerHessianRoutine()
|