<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <html><head><meta name="robots" content="noindex"> <meta http-equiv="Content-Type" content="text/html;charset=iso-8859-1"> <title>cmatrix.h Source File</title> <link href="doxygen.css" rel="stylesheet" type="text/css"> </head><body bgcolor="#ffffff"> <!-- Generated by Doxygen 1.2.5 on Mon Oct 14 14:16:36 2002 --> <center> <a class="qindex" href="index.html">Main Page</a> <a class="qindex" href="hierarchy.html">Class Hierarchy</a> <a class="qindex" href="annotated.html">Compound List</a> <a class="qindex" href="files.html">File List</a> <a class="qindex" href="functions.html">Compound Members</a> <a class="qindex" href="pages.html">Related Pages</a> </center> <hr><h1>cmatrix.h</h1><div class="fragment"><pre>00001 <font class="comment">/*</font> 00002 <font class="comment"> * cmatrix.h</font> 00003 <font class="comment"> *</font> 00004 <font class="comment"> * Copyright (C) 1996 Limit Point Systems, Inc.</font> 00005 <font class="comment"> *</font> 00006 <font class="comment"> * Author: Curtis Janssen <cljanss@ca.sandia.gov></font> 00007 <font class="comment"> * Maintainer: LPS</font> 00008 <font class="comment"> *</font> 00009 <font class="comment"> * This file is part of the SC Toolkit.</font> 00010 <font class="comment"> *</font> 00011 <font class="comment"> * The SC Toolkit is free software; you can redistribute it and/or modify</font> 00012 <font class="comment"> * it under the terms of the GNU Library General Public License as published by</font> 00013 <font class="comment"> * the Free Software Foundation; either version 2, or (at your option)</font> 00014 <font class="comment"> * any later version.</font> 00015 <font class="comment"> *</font> 00016 <font class="comment"> * The SC Toolkit is distributed in the hope that it will be useful,</font> 00017 <font class="comment"> * but WITHOUT ANY WARRANTY; without even the implied warranty of</font> 00018 <font class="comment"> * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the</font> 00019 <font class="comment"> * GNU Library General Public License for more details.</font> 00020 <font class="comment"> *</font> 00021 <font class="comment"> * You should have received a copy of the GNU Library General Public License</font> 00022 <font class="comment"> * along with the SC Toolkit; see the file COPYING.LIB. If not, write to</font> 00023 <font class="comment"> * the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.</font> 00024 <font class="comment"> *</font> 00025 <font class="comment"> * The U.S. Government is granted a limited license as per AL 91-7.</font> 00026 <font class="comment"> */</font> 00027 00028 <font class="preprocessor">#ifndef _math_scmat_cmatrix_h</font> 00029 <font class="preprocessor"></font><font class="preprocessor">#define _math_scmat_cmatrix_h</font> 00030 <font class="preprocessor"></font> 00031 <font class="preprocessor">#ifdef __cplusplus</font> 00032 <font class="preprocessor"></font><font class="keyword">extern</font> <font class="stringliteral">"C"</font> { 00033 <font class="preprocessor">#endif</font> 00034 <font class="preprocessor"></font> 00035 <font class="comment">/* These routines work in terms of simple arrays. No testing is done</font> 00036 <font class="comment"> * on the input.</font> 00037 <font class="comment"> */</font> 00038 <font class="keywordtype">double</font> cmat_determ(<font class="keywordtype">double</font>**matrix,<font class="keywordtype">int</font> sym,<font class="keywordtype">int</font> dim); 00039 <font class="keywordtype">double</font> cmat_invert(<font class="keywordtype">double</font>**matrix,<font class="keywordtype">int</font> sym,<font class="keywordtype">int</font> dim); 00040 <font class="keywordtype">double</font> cmat_solve_lin(<font class="keywordtype">double</font>**,<font class="keywordtype">int</font> sym,<font class="keywordtype">double</font>*,<font class="keywordtype">int</font> dim); 00041 <font class="keywordtype">void</font> cmat_mxm(<font class="keywordtype">double</font>**a,<font class="keywordtype">int</font> transpose_a, 00042 <font class="keywordtype">double</font>**b,<font class="keywordtype">int</font> transpose_b, 00043 <font class="keywordtype">double</font>**c,<font class="keywordtype">int</font> transpose_c, 00044 <font class="keywordtype">int</font> nrow, <font class="keywordtype">int</font> nlink, <font class="keywordtype">int</font> ncol, 00045 <font class="keywordtype">int</font> add); 00046 <font class="keywordtype">void</font> cmat_symmetric_mxm(<font class="keywordtype">double</font>**a,<font class="keywordtype">int</font> na, <font class="comment">/* a is (na,na) */</font> 00047 <font class="keywordtype">double</font>**b,<font class="keywordtype">int</font> nb, <font class="comment">/* b is (na,nb) */</font> 00048 <font class="keywordtype">int</font> add); 00049 <font class="keywordtype">void</font> cmat_transform_symmetric_matrix(<font class="keywordtype">double</font>**a,<font class="keywordtype">int</font> na, <font class="comment">/* a is (na,na) */</font> 00050 <font class="keywordtype">double</font>**b,<font class="keywordtype">int</font> nb, <font class="comment">/* b is (nb,nb) */</font> 00051 <font class="keywordtype">double</font>**c, <font class="comment">/* c is (na,nb) */</font> 00052 <font class="keywordtype">int</font> add); 00053 <font class="keywordtype">void</font> cmat_transform_diagonal_matrix(<font class="keywordtype">double</font>**a,<font class="keywordtype">int</font> na, <font class="comment">/* a is (na,na) */</font> 00054 <font class="keywordtype">double</font>*b,<font class="keywordtype">int</font> nb, <font class="comment">/* b is (nb,nb) */</font> 00055 <font class="keywordtype">double</font>**c, <font class="comment">/* c is (na,nb) */</font> 00056 <font class="keywordtype">int</font> add); 00057 <font class="keywordtype">double</font>** cmat_new_square_matrix(<font class="keywordtype">int</font> n); 00058 <font class="keywordtype">double</font>** cmat_new_rect_matrix(<font class="keywordtype">int</font> n,<font class="keywordtype">int</font> m); 00059 <font class="keywordtype">void</font> cmat_delete_matrix(<font class="keywordtype">double</font>**matrix); 00060 <font class="keywordtype">void</font> cmat_transpose_square_matrix(<font class="keywordtype">double</font>**matrix,<font class="keywordtype">int</font> n); 00061 <font class="keywordtype">void</font> cmat_transpose_matrix(<font class="keywordtype">double</font>**a,<font class="keywordtype">int</font> nrow,<font class="keywordtype">int</font> ncol); 00062 <font class="keywordtype">void</font> cmat_matrix_pointers(<font class="keywordtype">double</font>**ptrs,<font class="keywordtype">double</font>*matrix,<font class="keywordtype">int</font> nrow, <font class="keywordtype">int</font> ncol); 00063 <font class="keywordtype">void</font> cmat_diag(<font class="keywordtype">double</font>**symm_a, <font class="keywordtype">double</font>*evals, <font class="keywordtype">double</font>**evecs, <font class="keywordtype">int</font> n, 00064 <font class="keywordtype">int</font> matz, <font class="keywordtype">double</font> tol); 00065 <font class="keywordtype">void</font> cmat_schmidt(<font class="keywordtype">double</font> **rows, <font class="keywordtype">double</font> *S, <font class="keywordtype">int</font> nrow, <font class="keywordtype">int</font> nc); 00066 <font class="keywordtype">int</font> cmat_schmidt_tol(<font class="keywordtype">double</font> **C, <font class="keywordtype">double</font> *S, <font class="keywordtype">int</font> nrow, <font class="keywordtype">int</font> ncol, 00067 <font class="keywordtype">double</font> tolerance, <font class="keywordtype">double</font> *res); 00068 00069 00070 <font class="preprocessor">#ifdef __cplusplus</font> 00071 <font class="preprocessor"></font>} 00072 <font class="preprocessor">#endif</font> 00073 <font class="preprocessor"></font> 00074 <font class="preprocessor">#endif</font> </font></div></pre><hr> <address> <small> Generated at Mon Oct 14 14:16:36 2002 for <a href="http://aros.ca.sandia.gov/~cljanss/mpqc">MPQC</a> 2.1.2 using the documentation package <a href="http://www.stack.nl/~dimitri/doxygen/index.html">Doxygen</a> 1.2.5. </small> </address> </body> </html>