Dfactir.hh File Reference

This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Functions
template<class Matrix , unsigned int n, unsigned int idim>
bool	Dfactir (Matrix &rhs, typename Matrix::value_type &det, unsigned int *ir)

Function Documentation

Dfactir()

template<class Matrix , unsigned int n, unsigned int idim>

bool Dfactir	(	Matrix &	rhs,
		typename Matrix::value_type &	det,
		unsigned int *	ir
	)

Dfactir. Function to compute the determinant from a square matrix ($\det(A)$) of dimension $idim$ and order $n$. A working area $ir$ is returned which is needed by the Dfinv routine.

Author

T. Glebe

{
 
#ifdef XXX
  if (idim < n || n <= 0) {
    return false;
  }
#endif
 
 
  /* Initialized data */
  typename Matrix::value_type* a = rhs.Array();
 
  /* Local variables */
  static unsigned int nxch, i, j, k, l;
  static typename Matrix::value_type p, q, tf;
  
  /* Parameter adjustments */
  a -= idim + 1;
  --ir;
 
  /* Function Body */
  
  // fact.inc
  nxch = 0;
  det = 1.;
  for (j = 1; j <= n; ++j) {
    const unsigned int ji = j * idim;
    const unsigned int jj = j + ji;
 
    k = j;
    p = fabs(a[jj]);
 
    if (j != n) {
      for (i = j + 1; i <= n; ++i) {
    q = fabs(a[i + ji]);
    if (q > p) {
      k = i;
      p = q;
    }
      } // for i
 
      if (k != j) {
    for (l = 1; l <= n; ++l) {
      const unsigned int li = l*idim;
      const unsigned int jli = j + li;
      const unsigned int kli = k + li;
      tf = a[jli];
      a[jli] = a[kli];
      a[kli] = tf;
    } // for l
    ++nxch;
    ir[nxch] = (j << 12) + k;
      } // if k != j
    } // if j!=n
 
    if (p <= 0.) {
      det = 0;
      return false;
    }
 
    det *= a[jj];
#ifdef XXX
    t = fabs(det);
    if (t < 1e-19 || t > 1e19) {
      det = 0;
      return false;
    }
#endif
 
    a[jj] = 1. / a[jj];
    if (j == n) {
      continue;
    }
 
    const unsigned int jm1 = j - 1;
    const unsigned int jpi = (j + 1) * idim;
    const unsigned int jjpi = j + jpi;
 
    for (k = j + 1; k <= n; ++k) {
      const unsigned int ki  = k * idim;
      const unsigned int jki = j + ki;
      const unsigned int kji = k + jpi;
      if (j != 1) {
    for (i = 1; i <= jm1; ++i) {
      const unsigned int ii = i * idim;
      a[jki] -= a[i + ki] * a[j + ii];
      a[kji] -= a[i + jpi] * a[k + ii];
    } // for i
      }
      a[jki] *= a[jj];
      a[kji] -= a[jjpi] * a[k + ji];
    } // for k
  } // for j
 
  if (nxch % 2 != 0) {
    det = -(det);
  }
  ir[n] = nxch;
  return true;
} // end of Dfact