Lines Matching refs:BC
1 subroutine slpwBC(nslpw,ihis,iBCg,BCg,BCtmpg,iBC,BC,wlnorm) argument
8 real*8 BC(ndofBC) local
37 BC(3)= 0
38 BC(4)= wn1(2)/wn1(1)
39 BC(5)= wn1(3)/wn1(1)
42 BC(3)=0
43 BC(4)=wn1(1)/wn1(2)
44 BC(5)=wn1(3)/wn1(2)
47 BC(3)=0
48 BC(4)=wn1(1)/wn1(3)
49 BC(5)=wn1(2)/wn1(3)
83 BC(3)=(c10*c7-c6*c11)/det
84 BC(4)=(c10*c4-c6*c8)/det
85 BC(5)=(c11*c5-c9*c7)/det
86 BC(6)=(c5*c8-c9*c4)/det
90 BC(3)=(c10*c7-c6*c11)/det
91 BC(4)=(c10*c5-c6*c9)/det
92 BC(5)=(c11*c4-c8*c7)/det
93 BC(6)=(c4*c9-c5*c8)/det
97 BC(3)=(c9*c7-c5*c11)/det
98 BC(4)=(c9*c6-c5*c10)/det
99 BC(5)=(c4*c11-c8*c7)/det
100 BC(6)=(c4*c10-c8*c6)/det
126 BC(3)=(c10*c7-c6*c11)/det
127 BC(4)=(c10*c4-c6*c8)/det
128 BC(5)=(c11*c5-c9*c7)/det
129 BC(6)=(c5*c8-c9*c4)/det
133 BC(3)=(c10*c7-c6*c11)/det
134 BC(4)=(c10*c5-c6*c9)/det
135 BC(5)=(c11*c4-c8*c7)/det
136 BC(6)=(c4*c9-c5*c8)/det
140 BC(3)=(c9*c7-c5*c11)/det
141 BC(4)=(c9*c6-c5*c10)/det
142 BC(5)=(c4*c11-c8*c7)/det
143 BC(6)=(c4*c10-c8*c6)/det
170 BC(4)=det3x3(c4,c7,c6,c8,c11,c10,c12,c15,c14)/tmp
171 BC(3)=det3x3(c7,c5,c6,c11,c9,c10,c15,c13,c14)/tmp
172 BC(5)=det3x3(c4,c5,c7,c8,c9,c11,c12,c13,c15)/tmp
194 BC(4)=det3x3(c4,c7,c6,c8,c11,c10,c12,c15,c14)/tmp
195 BC(3)=det3x3(c7,c5,c6,c11,c9,c10,c15,c13,c14)/tmp
196 BC(5)=det3x3(c4,c5,c7,c8,c9,c11,c12,c13,c15)/tmp
203 u=BC(3)
204 v=BC(4)
205 w=BC(5)
212 BC(3)=-wn1(2)/wn1(1)*v-wn1(3)/wn1(1)*w ! u is determined by v and w
214 BC(4)=-wn1(1)/wn1(2)*u-wn1(3)/wn1(2)*w ! v is determined by u and w
216 BC(5)=-wn1(1)/wn1(3)*u-wn1(2)/wn1(3)*v ! w is determined by u and v
222 u=BC(3)
223 v=BC(4)
224 w=BC(5)
249 BC(4)=(c10*c7-c6*c11)/det-(c10*c4-c6*c8)/det*u ! v is determined by u
250 BC(5)=(c11*c5-c9*c7)/det-(c5*c8-c9*c4)/det*u ! w is determined by u
253 BC(3)=(c10*c7-c6*c11)/det-(c10*c5-c6*c9)/det*v ! u is determined by v
254 BC(5)=(c11*c4-c8*c7)/det-(c4*c9-c5*c8)/det*v ! w is determined by v
257 BC(3)=(c9*c7-c5*c11)/det-(c9*c6-c5*c10)/det*w ! u is determined by w
258 BC(4)=(c4*c11-c8*c7)/det-(c4*c10-c8*c6)/det*w ! v is determined by w
264 BC(3:5)=0