Lines Matching refs:c10
11 real*8 c8,c9,c10,c11 local
68 c10=wn2(3)
73 ck1=c5*c10 - c9*c6
74 ck2=c6*c8 - c4*c10
82 det=c5*c10-c9*c6
83 BC(3)=(c10*c7-c6*c11)/det
84 BC(4)=(c10*c4-c6*c8)/det
89 det=c4*c10-c8*c6
90 BC(3)=(c10*c7-c6*c11)/det
91 BC(4)=(c10*c5-c6*c9)/det
98 BC(4)=(c9*c6-c5*c10)/det
100 BC(6)=(c4*c10-c8*c6)/det
115 c10=wn1(3)
118 ck1=c5*c10 - c9*c6
119 ck2=c6*c8 - c4*c10
125 det=c5*c10-c9*c6
126 BC(3)=(c10*c7-c6*c11)/det
127 BC(4)=(c10*c4-c6*c8)/det
132 det=c4*c10-c8*c6
133 BC(3)=(c10*c7-c6*c11)/det
134 BC(4)=(c10*c5-c6*c9)/det
141 BC(4)=(c9*c6-c5*c10)/det
143 BC(6)=(c4*c10-c8*c6)/det
163 c10=wn1(3)
169 tmp=det3x3(c4,c5,c6,c8,c9,c10,c12,c13,c14)
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
183 c10=BCtmpg(10)
193 tmp=det3x3(c4,c5,c6,c8,c9,c10,c12,c13,c14)
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
239 c10=wn2(3)
242 ck1=c5*c10 - c9*c6 ! ck is the cross product of wn1 and wn2
243 ck2=c6*c8 - c4*c10
248 det=c5*c10-c9*c6
249 BC(4)=(c10*c7-c6*c11)/det-(c10*c4-c6*c8)/det*u ! v is determined by u
252 det=c4*c10-c8*c6
253 BC(3)=(c10*c7-c6*c11)/det-(c10*c5-c6*c9)/det*v ! u 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