Lines Matching refs:c4
10 real*8 c4,c5,c6,c7 local
62 c4=wn1(1)
74 ck2=c6*c8 - c4*c10
75 ck3=c4*c9 - c8*c5
84 BC(4)=(c10*c4-c6*c8)/det
86 BC(6)=(c5*c8-c9*c4)/det
89 det=c4*c10-c8*c6
92 BC(5)=(c11*c4-c8*c7)/det
93 BC(6)=(c4*c9-c5*c8)/det
96 det=c4*c9-c8*c5
99 BC(5)=(c4*c11-c8*c7)/det
100 BC(6)=(c4*c10-c8*c6)/det
109 c4=BCtmpg(4)
119 ck2=c6*c8 - c4*c10
120 ck3=c4*c9 - c8*c5
127 BC(4)=(c10*c4-c6*c8)/det
129 BC(6)=(c5*c8-c9*c4)/det
132 det=c4*c10-c8*c6
135 BC(5)=(c11*c4-c8*c7)/det
136 BC(6)=(c4*c9-c5*c8)/det
139 det=c4*c9-c8*c5
142 BC(5)=(c4*c11-c8*c7)/det
143 BC(6)=(c4*c10-c8*c6)/det
149 c4=BCtmpg(4)
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
172 BC(5)=det3x3(c4,c5,c7,c8,c9,c11,c12,c13,c15)/tmp
177 c4=BCtmpg(4)
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
196 BC(5)=det3x3(c4,c5,c7,c8,c9,c11,c12,c13,c15)/tmp
233 c4=wn1(1)
243 ck2=c6*c8 - c4*c10
244 ck3=c4*c9 - c8*c5
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
252 det=c4*c10-c8*c6
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
258 BC(4)=(c4*c11-c8*c7)/det-(c4*c10-c8*c6)/det*w ! v is determined by w