Searched refs:ysm (Results 1 – 3 of 3) sorted by relevance
| /petsc/src/tao/unconstrained/tutorials/ |
| H A D | eptorsion2.c | 200 PetscInt xe, ye, xsm, ysm, xep, yep; in FormFunctionGradient() local
236 if (ys == 0) ysm = ys - 1; in FormFunctionGradient()
237 else ysm = ys; in FormFunctionGradient()
244 for (j = ysm; j < ye; j++) { /* for (j=-1; j<my; j++) */ in FormFunctionGradient()
322 PetscCall(PetscLogFlops((ye - ysm) * (xe - xsm) * 20 + (xep - xs) * (yep - ys) * 16)); in FormFunctionGradient()
|
| H A D | eptorsion2f.F90 | 121 PetscInt xe, ye, xsm, ysm
160 ysm = ys - 1
162 ysm = ys
177 do j = ysm, ye - 1
255 PetscCall(PetscLogFlops(20.0d0*(ye - ysm)*(xe - xsm) + 16.0d0*(xep - xs)*(yep - ys), ierr))
|
| /petsc/src/ksp/ksp/tutorials/ |
| H A D | ex54f.F90 | 310 PetscReal xtp, ysm, ysp, ytm, ytp
359 ysm = ys*sm
369 shp(1, 1) = -ytm + ysm
372 shp(1, 4) = -ytp - ysm
|