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	aw0a	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 */