Searched refs:a7 (Results 1 – 1 of 1) sorted by relevance
295 real*8 function det3x3(a1,a2,a3,a4,a5,a6,a7,a8,a9)296 real*8 a1,a2,a3,a4,a5,a6,a7,a8,a9 local297 det3x3=a1*a5*a9+a4*a8*a3+a7*a6*a2-a7*a5*a3-a8*a6*a1-a9*a4*a2