Lines Matching refs:shp
2 subroutine shap1d( xi, nel, shp ) argument
29 real*8 shp(2,nel) local
37 shp(1,1) = -0.5d0
38 shp(1,2) = 0.5d0
40 shp(2,1) = 0.5d0 - 0.5d0*xi
41 shp(2,2) = 0.5d0 + 0.5d0*xi
49 shp(1,1) = xi - 0.5d0
50 shp(1,2) = xi + 0.5d0
51 shp(1,3) = -xi - xi
53 shp(2,1) = 0.5d0*(xi2 - xi)
54 shp(2,2) = 0.5d0*(xi2 + xi)
55 shp(2,3) = 1.0d0 - xi2