Lines Matching refs:shp
19 subroutine shape8q(xi,et,xl,xsj,xs,shp,iflag) argument
44 real*8 shp(7,8),xs(3,7),xsi(2,3),xl(3,8),sh(3),xsj(3),xi,et, local
63 shp(4,1)=xim*etm*(-xipet-1.d0)/4.d0
64 shp(4,2)=xip*etm*(ximet-1.d0)/4.d0
65 shp(4,3)=xip*etp*(xipet-1.d0)/4.d0
66 shp(4,4)=xim*etp*(-ximet-1.d0)/4.d0
67 shp(4,5)=xim2*etm/2.d0
68 shp(4,6)=xip*etm2/2.d0
69 shp(4,7)=xim2*etp/2.d0
70 shp(4,8)=xim*etm2/2.d0
76 shp(1,1)=etm*(xi+xipet)/4.d0
77 shp(1,2)=etm*(xi+ximet)/4.d0
78 shp(1,3)=etp*(xi+xipet)/4.d0
79 shp(1,4)=etp*(xi+ximet)/4.d0
80 shp(1,5)=-xi*etm
81 shp(1,6)=etm2/2.d0
82 shp(1,7)=-xi*etp
83 shp(1,8)=-etm2/2.d0
87 shp(2,1)=xim*(et+xipet)/4.d0
88 shp(2,2)=xip*(et-ximet)/4.d0
89 shp(2,3)=xip*(et+xipet)/4.d0
90 shp(2,4)=xim*(et-ximet)/4.d0
91 shp(2,5)=-xim2/2.d0
92 shp(2,6)=-et*xip
93 shp(2,7)=xim2/2.d0
94 shp(2,8)=-et*xim
105 xs(i,j)=xs(i,j)+xl(i,k)*shp(j,k)
161 sh(j)=shp(1,k)*xsi(1,j)+shp(2,k)*xsi(2,j)
164 shp(j,k)=sh(j)
172 shp(5,1)=etm/2.d0
173 shp(5,2)=etm/2.d0
174 shp(5,3)=etp/2.d0
175 shp(5,4)=etp/2.d0
176 shp(5,5)=-etm
177 shp(5,6)=0.d0
178 shp(5,7)=-etp
179 shp(5,8)=0.d0
183 shp(6,1)=(1.d0-2.d0*xipet)/4.d0
184 shp(6,2)=(-1.d0-2.d0*ximet)/4.d0
185 shp(6,3)=(1.d0+2.d0*xipet)/4.d0
186 shp(6,4)=(-1.d0+2.d0*ximet)/4.d0
187 shp(6,5)=xi
188 shp(6,6)=-et
189 shp(6,7)=-xi
190 shp(6,8)=et
194 shp(7,1)=xim/2.d0
195 shp(7,2)=xip/2.d0
196 shp(7,3)=xip/2.d0
197 shp(7,4)=xim/2.d0
198 shp(7,5)=0.d0
199 shp(7,6)=-xip
200 shp(7,7)=0.d0
201 shp(7,8)=-xim
210 xs(i,j)=xs(i,j)+xl(i,k)*shp(j,k)