| /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()
172 xrb = user->bottom[i + 2]; in FormConstraints()
179 xrb = user->right[j]; in FormConstraints()
192 if (j > 0 && i + 1 < mx) xrb = x[row + 1 - mx]; in FormConstraints()
198 d5 = (xr - xrb); in FormConstraints()
199 d6 = (xrb - xb); 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()
297 xrb = user->bottom[i + 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()
190 xrb = ctx->bottom[i + 2]; in FormGradient()
195 xrb = ctx->right[j]; in FormGradient()
204 if (j > 0 && i + 1 < mx) xrb = x[j - 1][i + 1]; /* right bottom */ in FormGradient()
210 d5 = (xr - xrb); in FormGradient()
211 d6 = (xrb - xb); 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()
323 xrb = ctx->bottom[i + 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()
239 xrb = user->bottom[i + 2]; in FormFunctionLocal()
244 xrb = user->right[j]; in FormFunctionLocal()
253 if (j > 0 && i + 1 < mx) xrb = x[j - 1][i + 1]; /* right bottom */ in FormFunctionLocal()
259 d5 = (xr - xrb); in FormFunctionLocal()
260 d6 = (xrb - xb); 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()
334 xrb = user->bottom[i + 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()
158 xrb = user->bottom[i + 2]; in FormFunctionGradient()
165 xrb = user->right[j]; in FormFunctionGradient()
178 if (j > 0 && i + 1 < mx) xrb = x[row + 1 - mx]; in FormFunctionGradient()
184 d5 = (xr - xrb); in FormFunctionGradient()
185 d6 = (xrb - xb); 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()
343 xrb = user->bottom[i + 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()
338 xrb = user->bottom[i - xs + 2]; in FormFunctionGradient()
345 xrb = user->right[j - ys]; in FormFunctionGradient()
358 if (j > gys && i + 1 < gxs + gxm) xrb = x[j - 1][i + 1]; in FormFunctionGradient()
364 d5 = (xr - xrb); in FormFunctionGradient()
365 d6 = (xrb - xb); 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()
552 xrb = user->bottom[i - xs + 2]; in QuadraticH()
[all …]
|
| /petsc/src/tao/bound/tutorials/ |
| H A D | plate2f.F90 | 76 PetscReal xc, xl, xr, xt, xb, xlt, xrb
120 xrb = xc
132 xrb = bottom_v(1 + i - xs + 2)
139 xrb = right_v(1 + j - ys)
156 xrb = x_v(1 + row + 1 - gxm)
163 d5 = xr - xrb
164 d6 = xrb - xb
308 PetscReal xc, xl, xr, xt, xb, xlt, xrb
359 xrb = xc
371 xrb = bottom_v(1 + i - xs + 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()
249 xrb = bottom[i - xs + 2]; in FormFunctionGradient()
256 xrb = right[j - ys]; in FormFunctionGradient()
269 if (j > gys && i + 1 < gxs + gxm) xrb = x[row + 1 - gxm]; in FormFunctionGradient()
275 d5 = (xr - xrb); in FormFunctionGradient()
276 d6 = (xrb - xb); 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()
472 xrb = bottom[i - xs + 2]; in FormHessian()
[all …]
|