Lines Matching refs:c9
11 real*8 c8,c9,c10,c11 local
67 c9=wn2(2)
73 ck1=c5*c10 - c9*c6
75 ck3=c4*c9 - c8*c5
82 det=c5*c10-c9*c6
85 BC(5)=(c11*c5-c9*c7)/det
86 BC(6)=(c5*c8-c9*c4)/det
91 BC(4)=(c10*c5-c6*c9)/det
93 BC(6)=(c4*c9-c5*c8)/det
96 det=c4*c9-c8*c5
97 BC(3)=(c9*c7-c5*c11)/det
98 BC(4)=(c9*c6-c5*c10)/det
114 c9=wn1(2)
118 ck1=c5*c10 - c9*c6
120 ck3=c4*c9 - c8*c5
125 det=c5*c10-c9*c6
128 BC(5)=(c11*c5-c9*c7)/det
129 BC(6)=(c5*c8-c9*c4)/det
134 BC(4)=(c10*c5-c6*c9)/det
136 BC(6)=(c4*c9-c5*c8)/det
139 det=c4*c9-c8*c5
140 BC(3)=(c9*c7-c5*c11)/det
141 BC(4)=(c9*c6-c5*c10)/det
162 c9=wn1(2)
169 tmp=det3x3(c4,c5,c6,c8,c9,c10,c12,c13,c14)
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
182 c9=BCtmpg(9)
193 tmp=det3x3(c4,c5,c6,c8,c9,c10,c12,c13,c14)
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
238 c9=wn2(2)
242 ck1=c5*c10 - c9*c6 ! ck is the cross product of wn1 and wn2
244 ck3=c4*c9 - c8*c5
248 det=c5*c10-c9*c6
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
256 det=c4*c9-c8*c5
257 BC(3)=(c9*c7-c5*c11)/det-(c9*c6-c5*c10)/det*w ! u is determined by w