Lines Matching refs:det3x3
14 real*8 det,det3x3,tmp,u,v,w local
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
172 BC(5)=det3x3(c4,c5,c7,c8,c9,c11,c12,c13,c15)/tmp
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
196 BC(5)=det3x3(c4,c5,c7,c8,c9,c11,c12,c13,c15)/tmp
295 real*8 function det3x3(a1,a2,a3,a4,a5,a6,a7,a8,a9) function
297 det3x3=a1*a5*a9+a4*a8*a3+a7*a6*a2-a7*a5*a3-a8*a6*a1-a9*a4*a2