Lines Matching refs:det
94 real*8 res(nResDims), reg, det, r0, r1, r2, r3, r4, r5, local
104 det = res(1) * (res(2) * res(3) - res(5) * res(5))
108 if ( det .gt. 1.d-10*reg .and. reg .ne. 0 ) then
128 det = r0 * (r1 * r2 - r4 * r4)
131 det = 1.0/det
133 stsMInv(i,1) = det * (r1 * r2 - r4 * r4)
134 stsMInv(i,2) = det * (r0 * r2 - r5 * r5)
135 stsMInv(i,3) = det * (r0 * r1 - r3 * r3)
136 stsMInv(i,4) = det * (r4 * r5 - r2 * r3)
137 stsMInv(i,5) = det * (r3 * r5 - r0 * r4)
138 stsMInv(i,6) = det * (r3 * r4 - r1 * r5)
168 det = c0 * (c1 * c2 - c4 * c4)
171 det = 1. / det
172 stsCInv(i,1) = det * (c1 * c2 - c4 * c4)
173 stsCInv(i,2) = det * (c0 * c2 - c5 * c5)
174 stsCInv(i,3) = det * (c0 * c1 - c3 * c3)
175 stsCInv(i,4) = det * (c4 * c5 - c2 * c3)
176 stsCInv(i,5) = det * (c3 * c5 - c0 * c4)
177 stsCInv(i,6) = det * (c3 * c4 - c1 * c5)