Lines Matching refs:shp
19 subroutine shape8humass(xi,et,ze,xl,xsj,shp,iflag) argument
37 real*8 shp(4,23),xs(3,3),xsi(3,3),xl(3,23),sh(3),xsi0(3,3) local
47 shp(1,1)=-1.0d0/8.d0
48 shp(1,2)=1.0d0/8.d0
49 shp(1,3)=1.0d0/8.d0
50 shp(1,4)=-1.0d0/8.d0
51 shp(1,5)=-1.0d0/8.d0
52 shp(1,6)=1.0d0/8.d0
53 shp(1,7)=1.0d0/8.d0
54 shp(1,8)=-1.0d0/8.d0
58 shp(2,1)=-1.0d0/8.d0
59 shp(2,2)=-1.0d0/8.d0
60 shp(2,3)=1.0d0/8.d0
61 shp(2,4)=1.0d0/8.d0
62 shp(2,5)=-1.0d0/8.d0
63 shp(2,6)=-1.0d0/8.d0
64 shp(2,7)=1.0d0/8.d0
65 shp(2,8)=1.0d0/8.d0
69 shp(3,1)=-1.0d0/8.d0
70 shp(3,2)=-1.0d0/8.d0
71 shp(3,3)=-1.0d0/8.d0
72 shp(3,4)=-1.0d0/8.d0
73 shp(3,5)=1.0d0/8.d0
74 shp(3,6)=1.0d0/8.d0
75 shp(3,7)=1.0d0/8.d0
76 shp(3,8)=1.0d0/8.d0
85 xs(i,j)=xs(i,j)+xl(i,k)*shp(j,k)
122 shp(4, 1)=omg*omh*omr/8.d0
123 shp(4, 2)=opg*omh*omr/8.d0
124 shp(4, 3)=opg*oph*omr/8.d0
125 shp(4, 4)=omg*oph*omr/8.d0
126 shp(4, 5)=omg*omh*opr/8.d0
127 shp(4, 6)=opg*omh*opr/8.d0
128 shp(4, 7)=opg*oph*opr/8.d0
129 shp(4, 8)=omg*oph*opr/8.d0
138 shp(4, 9)=1.0d0-xi*xi
139 shp(4,10)=1.0d0-et*et
140 shp(4,11)=1.0d0-ze*ze
146 shp(1, 1)=-omh*omr/8.d0
147 shp(1, 2)=omh*omr/8.d0
148 shp(1, 3)=oph*omr/8.d0
149 shp(1, 4)=-oph*omr/8.d0
150 shp(1, 5)=-omh*opr/8.d0
151 shp(1, 6)=omh*opr/8.d0
152 shp(1, 7)=oph*opr/8.d0
153 shp(1, 8)=-oph*opr/8.d0
154 shp(1, 9)=-2.d0*xi
155 shp(1,10)=0.d0
156 shp(1,11)=0.d0
160 shp(2, 1)=-omg*omr/8.d0
161 shp(2, 2)=-opg*omr/8.d0
162 shp(2, 3)=opg*omr/8.d0
163 shp(2, 4)=omg*omr/8.d0
164 shp(2, 5)=-omg*opr/8.d0
165 shp(2, 6)=-opg*opr/8.d0
166 shp(2, 7)=opg*opr/8.d0
167 shp(2, 8)=omg*opr/8.d0
168 shp(2, 9)=0.d0
169 shp(2,10)=-2.d0*et
170 shp(2,11)=0.d0
174 shp(3, 1)=-omg*omh/8.d0
175 shp(3, 2)=-opg*omh/8.d0
176 shp(3, 3)=-opg*oph/8.d0
177 shp(3, 4)=-omg*oph/8.d0
178 shp(3, 5)=omg*omh/8.d0
179 shp(3, 6)=opg*omh/8.d0
180 shp(3, 7)=opg*oph/8.d0
181 shp(3, 8)=omg*oph/8.d0
182 shp(3, 9)=0.d0
183 shp(3,10)=0.d0
184 shp(3,11)=-2.d0*ze
193 xs(i,j)=xs(i,j)+xl(i,k)*shp(j,k)
223 sh(j)=shp(1,k)*xsi(1,j)+shp(2,k)*xsi(2,j)+shp(3,k)*xsi(3,j)
226 shp(j,k)=sh(j)
231 sh(j)=shp(1,k)*xsi0(1,j)+shp(2,k)*xsi0(2,j)+shp(3,k)*xsi0(3,j)
234 shp(j,k)=sh(j)