Home
last modified time | relevance | path

Searched refs:htl (Results 1 – 7 of 7) sorted by relevance

/petsc/src/tao/complementarity/tutorials/
H A Dminsurf1.c265 PetscReal hl, hr, ht, hb, hc, htl, hbr; in FormJacobian() local
341 htl = -d1 * d7 / (f1 * f1 * f1) - d3 * d8 / (f3 * f3 * f3); in FormJacobian()
350 htl /= 2.0; in FormJacobian()
383 v[k] = htl; in FormJacobian()
/petsc/src/snes/tutorials/
H A Dex58.c278 PetscScalar hl, hr, ht, hb, hc, htl, hbr; in FormJacobian() local
366 htl = -d1 * d7 / (f1 * f1 * f1) - d3 * d8 / (f3 * f3 * f3); in FormJacobian()
375 htl /= 2.0; in FormJacobian()
421 v[k] = htl; in FormJacobian()
H A Dex4.c310 PetscScalar hl, hr, ht, hb, hc, htl, hbr; in FormJacobianLocal() local
377 htl = -d1 * d7 / (f1 * f1 * f1) - d3 * d8 / (f3 * f3 * f3); in FormJacobianLocal()
386 htl /= 2.0; in FormJacobianLocal()
432 v[k] = htl; in FormJacobianLocal()
/petsc/src/tao/unconstrained/tutorials/
H A Dminsurf1.c311 PetscReal hl, hr, ht, hb, hc, htl, hbr; in QuadraticH() local
387 htl = -d1 * d7 / (f1 * f1 * f1) - d3 * d8 / (f3 * f3 * f3); in QuadraticH()
396 htl *= 0.5; in QuadraticH()
429 v[k] = htl; in QuadraticH()
H A Dminsurf2.c509 PetscReal hl, hr, ht, hb, hc, htl, hbr; in QuadraticH() local
596 htl = -d1 * d7 / (f1 * f1 * f1) - d3 * d8 / (f3 * f3 * f3); in QuadraticH()
605 htl /= 2.0; in QuadraticH()
645 v[k] = htl; in QuadraticH()
/petsc/src/tao/bound/tutorials/
H A Dplate2f.F90309 PetscReal hl, hr, ht, hb, hc, htl, hbr
423 htl = -d1*d7/(f1*f1*f1) - d3*d8/(f3*f3*f3)
434 htl = htl*0.5
468 v(k) = htl
H A Dplate2.c424 PetscReal hl, hr, ht, hb, hc, htl, hbr; in FormHessian() local
516 htl = -d1 * d7 / (f1 * f1 * f1) - d3 * d8 / (f3 * f3 * f3); in FormHessian()
525 htl *= 0.5; in FormHessian()
558 v[k] = htl; in FormHessian()