Searched refs:shp (Results 1 – 2 of 2) sorted by relevance
| /petsc/src/ksp/ksp/tutorials/ |
| H A D | ex54f.F90 | 35 PetscReal::shp(3, 9), sg(3, 9)
122 call shp2dquad(sg(1, ll), sg(2, ll), coord, shp, xsj, f2)
124 call thfx2d(ev, coord, shp, dd, f2, f2, f4, ex54_psi)
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
134 ss(i1, j1) = ss(i1, j1) + a1*shp(1, ki) + a2*shp(2, ki)
259 subroutine thfx2d(ev, xl, shp, dd, ndm, ndf, nel, dir) argument
262 PetscReal ev(2), xl(ndm, nel), shp(3, *), dir
268 xx = xx + shp(3, i)*xl(1, i)
269 yy = yy + shp(3, i)*xl(2, i)
[all …]
|
| /petsc/src/ksp/pc/impls/gamg/ |
| H A D | geo.c | 383 PetscScalar shp = alpha[idx]; in triangulateAndFormProl() local
384 if (PetscAbs(PetscRealPart(shp)) > 1.e-6) { in triangulateAndFormProl()
387 …0; tt < bs; tt++, ii++, jj++) PetscCall(MatSetValues(a_Prol, 1, &ii, 1, &jj, &shp, INSERT_VALUES)); in triangulateAndFormProl()
|