Lines Matching refs:shp
2 subroutine shp3d(ss,xsj,shp,xl,ndm) argument
32 real*8 ss(3),shp(4,8),xl(ndm,8),xs(3,3),ad(3,3) local
50 shp(1,1) = -c2
51 shp(1,2) = c2
52 shp(2,1) = -c3
53 shp(2,4) = c3
54 shp(3,1) = -c1
55 shp(3,5) = c1
56 shp(4,1) = c1*am3
57 shp(4,5) = c1*ap3
64 shp(1,8) = -c2
65 shp(1,7) = c2
66 shp(2,6) = -c3
67 shp(2,7) = c3
68 shp(3,3) = -c1
69 shp(3,7) = c1
70 shp(4,3) = c1*am3
71 shp(4,7) = c1*ap3
78 shp(1,5) = -c2
79 shp(1,6) = c2
80 shp(2,5) = -c3
81 shp(2,8) = c3
82 shp(3,4) = -c1
83 shp(3,8) = c1
84 shp(4,4) = c1*am3
85 shp(4,8) = c1*ap3
92 shp(1,4) = -c2
93 shp(1,3) = c2
94 shp(2,2) = -c3
95 shp(2,3) = c3
96 shp(3,2) = -c1
97 shp(3,6) = c1
98 shp(4,2) = c1*am3
99 shp(4,6) = c1*ap3
105 xs(j,1) = (xl(j,2) - xl(j,1))*shp(1,2)
106 & + (xl(j,3) - xl(j,4))*shp(1,3)
107 & + (xl(j,6) - xl(j,5))*shp(1,6)
108 & + (xl(j,7) - xl(j,8))*shp(1,7)
110 xs(j,2) = (xl(j,3) - xl(j,2))*shp(2,3)
111 & + (xl(j,4) - xl(j,1))*shp(2,4)
112 & + (xl(j,7) - xl(j,6))*shp(2,7)
113 & + (xl(j,8) - xl(j,5))*shp(2,8)
115 xs(j,3) = (xl(j,5) - xl(j,1))*shp(3,5)
116 & + (xl(j,6) - xl(j,2))*shp(3,6)
117 & + (xl(j,7) - xl(j,3))*shp(3,7)
118 & + (xl(j,8) - xl(j,4))*shp(3,8)
152 c1 = shp(1,k)*xs(1,1) + shp(2,k)*xs(2,1) + shp(3,k)*xs(3,1)
153 c2 = shp(1,k)*xs(1,2) + shp(2,k)*xs(2,2) + shp(3,k)*xs(3,2)
154 c3 = shp(1,k)*xs(1,3) + shp(2,k)*xs(2,3) + shp(3,k)*xs(3,3)
156 shp(1,k) = c1
157 shp(2,k) = c2
158 shp(3,k) = c3