home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / elem-c.zip / M_DETERM.C < prev    next >
C/C++ Source or Header  |  1985-05-18  |  4KB  |  20 lines
  1. static char *sccsid = "@(#)m_determinant.c    4/5/82 (U of Maryland, FLB)";
  2.  
  3. #include "mat.h"
  4.  
  5. double
  6. m_determinant(mat)
  7. register struct matrix *mat;
  8. {
  9. register int col;
  10. double det = 0.0;
  11.  
  12. if (mat->m_rows == 1)
  13.     return(m_v(mat, 0, 0));
  14.  
  15. for (col = 0; col < mat->m_cols; col++)
  16.     det +=     m_v(mat, 0, col) * m_cofactor(mat, 0, col);
  17.  
  18. return(det);
  19. }