Searched refs:xsj (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ksp/ksp/tutorials/ |
| H A D | ex54f.F90 | 37 PetscReal::theta, eps, h, x, y, xsj
122 call shp2dquad(sg(1, ll), sg(2, ll), coord, shp, xsj, f2)
123 xsj = xsj*sg(3, ll)*thk
127 a1 = (dd(1, 1)*shp(1, kj) + dd(1, 2)*shp(2, kj))*xsj
128 a2 = (dd(2, 1)*shp(1, kj) + dd(2, 2)*shp(2, kj))*xsj
292 subroutine shp2dquad(s, t, xl, shp, xsj, ndm) argument
311 PetscReal s, t, xsj, xsj1, sh, th, sp, tp, sm
342 xsj = 0.0625*xsj1
|