Lines Matching refs:c7
10 real*8 c4,c5,c6,c7 local
65 c7=0
83 BC(3)=(c10*c7-c6*c11)/det
85 BC(5)=(c11*c5-c9*c7)/det
90 BC(3)=(c10*c7-c6*c11)/det
92 BC(5)=(c11*c4-c8*c7)/det
97 BC(3)=(c9*c7-c5*c11)/det
99 BC(5)=(c4*c11-c8*c7)/det
112 c7=BCtmpg(7)
126 BC(3)=(c10*c7-c6*c11)/det
128 BC(5)=(c11*c5-c9*c7)/det
133 BC(3)=(c10*c7-c6*c11)/det
135 BC(5)=(c11*c4-c8*c7)/det
140 BC(3)=(c9*c7-c5*c11)/det
142 BC(5)=(c4*c11-c8*c7)/det
152 c7=BCtmpg(7)
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
180 c7=BCtmpg(7)
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
236 c7=0
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