| /petsc/src/tao/complementarity/tutorials/ |
| H A D | minsurf1.c | 142 PetscReal f1, f2, f3, f4, f5, f6, d1, d2, d3, d4, d5, d6, d7, d8, xc, xl, xr, xt, xb, xlt, xrb; in FormConstraints() local
161 xlt = xrb = xl = xr = xb = xt = xc; in FormConstraints()
165 xlt = user->left[j + 2]; in FormConstraints()
186 xlt = user->top[i]; in FormConstraints()
191 if (i > 0 && j + 1 < my) xlt = x[row - 1 + mx]; in FormConstraints()
200 d7 = (xlt - xl); in FormConstraints()
201 d8 = (xt - xlt); in FormConstraints()
264 …Real f1, f2, f3, f4, f5, f6, d1, d2, d3, d4, d5, d6, d7, d8, xc, xl, xr, xt, xb, xlt, xrb; in FormJacobian() local
285 xlt = xrb = xl = xr = xb = xt = xc; in FormJacobian()
290 xlt = user->left[j + 2]; in FormJacobian()
[all …]
|
| /petsc/src/snes/tutorials/ |
| H A D | ex58.c | 149 …PetscScalar f1, f2, f3, f4, f5, f6, d1, d2, d3, d4, d5, d6, d7, d8, xc, xl, xr, xt, xb, xlt, xrb; in FormGradient() local
181 xlt = xrb = xl = xr = xb = xt = xc; in FormGradient()
185 xlt = ctx->left[j + 2]; in FormGradient()
200 xlt = ctx->top[i]; in FormGradient()
203 if (i > 0 && j + 1 < my) xlt = x[j + 1][i - 1]; /* left top side */ in FormGradient()
212 d7 = (xlt - xl); in FormGradient()
213 d8 = (xt - xlt); in FormGradient()
277 …PetscScalar f1, f2, f3, f4, f5, f6, d1, d2, d3, d4, d5, d6, d7, d8, xc, xl, xr, xt, xb, xlt, xrb; in FormJacobian() local
312 xlt = xrb = xl = xr = xb = xt = xc; in FormJacobian()
317 xlt = ctx->left[j + 2]; in FormJacobian()
[all …]
|
| H A D | ex4.c | 217 PetscScalar f1, f2, f3, f4, f5, f6, d1, d2, d3, d4, d5, d6, d7, d8, xc, xl, xr, xt, xb, xlt, xrb; in FormFunctionLocal() local
230 xlt = xrb = xl = xr = xb = xt = xc; in FormFunctionLocal()
234 xlt = user->left[j + 2]; in FormFunctionLocal()
249 xlt = user->top[i]; in FormFunctionLocal()
252 if (i > 0 && j + 1 < my) xlt = x[j + 1][i - 1]; /* left top side */ in FormFunctionLocal()
261 d7 = (xlt - xl); in FormFunctionLocal()
262 d8 = (xt - xlt); in FormFunctionLocal()
309 PetscScalar f1, f2, f3, f4, f5, f6, d1, d2, d3, d4, d5, d6, d7, d8, xc, xl, xr, xt, xb, xlt, xrb; in FormJacobianLocal() local
323 xlt = xrb = xl = xr = xb = xt = xc; in FormJacobianLocal()
328 xlt = user->left[j + 2]; in FormJacobianLocal()
[all …]
|
| /petsc/src/tao/unconstrained/tutorials/ |
| H A D | minsurf1.c | 131 …Real f1, f2, f3, f4, f5, f6, d1, d2, d3, d4, d5, d6, d7, d8, xc, xl, xr, xt, xb, xlt, xrb; in FormFunctionGradient() local
148 xlt = xrb = xl = xr = xb = xt = xc; in FormFunctionGradient()
151 xlt = user->left[j + 2]; in FormFunctionGradient()
172 xlt = user->top[i]; in FormFunctionGradient()
177 if (i > 0 && j + 1 < my) xlt = x[row - 1 + mx]; in FormFunctionGradient()
186 d7 = (xlt - xl); in FormFunctionGradient()
187 d8 = (xt - xlt); in FormFunctionGradient()
310 …Real f1, f2, f3, f4, f5, f6, d1, d2, d3, d4, d5, d6, d7, d8, xc, xl, xr, xt, xb, xlt, xrb; in QuadraticH() local
331 xlt = xrb = xl = xr = xb = xt = xc; in QuadraticH()
336 xlt = user->left[j + 2]; in QuadraticH()
[all …]
|
| H A D | minsurf2.c | 304 PetscReal f1, f2, f3, f4, f5, f6, d1, d2, d3, d4, d5, d6, d7, d8, xc, xl, xr, xt, xb, xlt, xrb; in FormFunctionGradient() local
327 xlt = xrb = xl = xr = xb = xt = xc; in FormFunctionGradient()
331 xlt = user->left[j - ys + 2]; in FormFunctionGradient()
352 xlt = user->top[i - xs]; in FormFunctionGradient()
357 if (i > gxs && j + 1 < gys + gym) xlt = x[j + 1][i - 1]; in FormFunctionGradient()
366 d7 = (xlt - xl); in FormFunctionGradient()
367 d8 = (xt - xlt); in FormFunctionGradient()
508 PetscReal f1, f2, f3, f4, f5, f6, d1, d2, d3, d4, d5, d6, d7, d8, xc, xl, xr, xt, xb, xlt, xrb; in QuadraticH() local
540 xlt = xrb = xl = xr = xb = xt = xc; in QuadraticH()
545 xlt = user->left[j - ys + 2]; in QuadraticH()
[all …]
|
| /petsc/src/tao/bound/tutorials/ |
| H A D | plate2f.F90 | 76 PetscReal xc, xl, xr, xt, xb, xlt, xrb
121 xlt = xc
125 xlt = left_v(1 + j - ys + 2)
146 xlt = top_v(1 + i - xs)
152 xlt = x_v(1 + row - 1 + gxm)
165 d7 = xlt - xl
166 d8 = xt - xlt
308 PetscReal xc, xl, xr, xt, xb, xlt, xrb
360 xlt = xc
364 xlt = left_v(1 + j - ys + 2)
[all …]
|
| H A D | plate2.c | 207 PetscReal f1, f2, f3, f4, f5, f6, d1, d2, d3, d4, d5, d6, d7, d8, xc, xl, xr, xt, xb, xlt, xrb; in FormFunctionGradient() local
238 xlt = xrb = xl = xr = xb = xt = xc; in FormFunctionGradient()
242 xlt = left[j - ys + 2]; in FormFunctionGradient()
263 xlt = top[i - xs]; in FormFunctionGradient()
268 if (i > gxs && j + 1 < gys + gym) xlt = x[row - 1 + gxm]; in FormFunctionGradient()
277 d7 = (xlt - xl); in FormFunctionGradient()
278 d8 = (xt - xlt); in FormFunctionGradient()
423 PetscReal f1, f2, f3, f4, f5, f6, d1, d2, d3, d4, d5, d6, d7, d8, xc, xl, xr, xt, xb, xlt, xrb; in FormHessian() local
460 xlt = xrb = xl = xr = xb = xt = xc; in FormHessian()
465 xlt = left[j - ys + 2]; in FormHessian()
[all …]
|