ascend4/solver/linutils.h

/*
 *  lin_utils: Ascend Linear Algebra Utilities
 *  by Kirk Andre' Abbott
 *  Created: 12 March 1995
 *  Version: $Revision: 1.3 $
 *  Version control file: $RCSfile: linutils.h,v $
 *  Date last modified: $Date: 1997/07/18 12:14:34 $
 *  Last modified by: $Author: mthomas $
 *
 *  This file is part of the SLV solver.
 *
 *  Copyright (C) 1995 Kirk Andre' Abbott
 *
 *  The SLV solver is free software; you can redistribute
 *  it and/or modify it under the terms of the GNU General Public License as
 *  published by the Free Software Foundation; either version 2 of the
 *  License, or (at your option) any later version.
 *
 *  The SLV solver is distributed in hope that it will be
 *  useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 *  General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License along with
 *  the program; if not, write to the Free Software Foundation, Inc., 675
 *  Mass Ave, Cambridge, MA 02139 USA.  Check the file named COPYING.
 *  COPYING is found in ../compiler.
 */
#ifndef linutils_already_included
#define linutils_already_included
/* requires #include "mtx.h" */
/* requires #include "linsol.h" */
/* requires #include "linsolqr.h" */

extern double linutils_A_1_norm(mtx_matrix_t mtx, mtx_region_t *reg);

extern double linutils_A_infinity_norm(mtx_matrix_t mtx, mtx_region_t *reg);

extern double linutils_A_Frobenius_norm(mtx_matrix_t mtx, mtx_region_t *reg);

extern double linutils_A_condqr_kaa(linsolqr_system_t lin_sys,
                    mtx_matrix_t mtx,
                    mtx_region_t *reg);

extern double linutils_A_cond_kaa(linsol_system_t lin_sys,
                  mtx_matrix_t mtx,
                  mtx_region_t *reg);


#endif /* linutils_already_included */
1	/*
2	* lin_utils: Ascend Linear Algebra Utilities
3	* by Kirk Andre' Abbott
4	* Created: 12 March 1995
5	* Version: $Revision: 1.3 $
6	* Version control file: $RCSfile: linutils.h,v $
7	* Date last modified: $Date: 1997/07/18 12:14:34 $
8	* Last modified by: $Author: mthomas $
9	*
10	* This file is part of the SLV solver.
11	*
12	* Copyright (C) 1995 Kirk Andre' Abbott
13	*
14	* The SLV solver is free software; you can redistribute
15	* it and/or modify it under the terms of the GNU General Public License as
16	* published by the Free Software Foundation; either version 2 of the
17	* License, or (at your option) any later version.
18	*
19	* The SLV solver is distributed in hope that it will be
20	* useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
21	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
22	* General Public License for more details.
23	*
24	* You should have received a copy of the GNU General Public License along with
25	* the program; if not, write to the Free Software Foundation, Inc., 675
26	* Mass Ave, Cambridge, MA 02139 USA. Check the file named COPYING.
27	* COPYING is found in ../compiler.
28	*/
29	#ifndef linutils_already_included
30	#define linutils_already_included
31	/* requires #include "mtx.h" */
32	/* requires #include "linsol.h" */
33	/* requires #include "linsolqr.h" */
34
35	extern double linutils_A_1_norm(mtx_matrix_t mtx, mtx_region_t *reg);
36
37	extern double linutils_A_infinity_norm(mtx_matrix_t mtx, mtx_region_t *reg);
38
39	extern double linutils_A_Frobenius_norm(mtx_matrix_t mtx, mtx_region_t *reg);
40
41	extern double linutils_A_condqr_kaa(linsolqr_system_t lin_sys,
42	mtx_matrix_t mtx,
43	mtx_region_t *reg);
44
45	extern double linutils_A_cond_kaa(linsol_system_t lin_sys,
46	mtx_matrix_t mtx,
47	mtx_region_t *reg);
48
49
50	#endif /* linutils_already_included */