MatrixSquareSymmetric.cpp File Reference

#include "geoslib_old_f.h"
#include "Matrix/MatrixSquareSymmetric.hpp"
#include "Matrix/MatrixRectangular.hpp"
#include "Matrix/AMatrixSquare.hpp"
#include "Matrix/MatrixSquareGeneral.hpp"
#include "Basic/VectorHelper.hpp"
#include "Basic/AException.hpp"

Macros
#define	TRI(i)   (((i) * ((i) + 1)) / 2)
#define	SQ(i, j, neq)   ((j) * neq + (i))
#define	AT(i, j)   at[TRI(j)+(i)] /* for j >= i */
#define	AL(i, j)   al[SQ(i,j,neq)-TRI(j)] /* for i >= j */
#define	BS(i, j)   b[SQ(i,j,neq)]
#define	XS(i, j)   x[SQ(i,j,neq)]
#define	AS(i, j)   a[SQ(i,j,neq)]
#define	TL(i, j)   tl[SQ(i,j,neq)-TRI(j)] /* for i >= j */
#define	_TL(i, j)   _tl[SQ(i,j,neq)-TRI(j)] /* for i >= j */
#define	_XL(i, j)   _xl[SQ(i,j,neq)-TRI(j)] /* for i >= j */
#define	HA(i, j)   ha[SQ(i,j,neq)]

Macro Definition Documentation

_TL

#define _TL	(		i,
			j
	)		_tl[SQ(i,j,neq)-TRI(j)] /* for i >= j */

_XL

#define _XL	(		i,
			j
	)		_xl[SQ(i,j,neq)-TRI(j)] /* for i >= j */

AL

#define AL	(		i,
			j
	)		al[SQ(i,j,neq)-TRI(j)] /* for i >= j */

AS

#define AS	(		i,
			j
	)		a[SQ(i,j,neq)]

AT

#define AT	(		i,
			j
	)		at[TRI(j)+(i)] /* for j >= i */

BS

#define BS	(		i,
			j
	)		b[SQ(i,j,neq)]

HA

#define HA	(		i,
			j
	)		ha[SQ(i,j,neq)]

SQ

#define SQ	(		i,
			j,
			neq
	)		((j) * neq + (i))

TL

#define TL	(		i,
			j
	)		tl[SQ(i,j,neq)-TRI(j)] /* for i >= j */

TRI

#define TRI

(

i

)

(((i) * ((i) + 1)) / 2)

XS

#define XS	(		i,
			j
	)		x[SQ(i,j,neq)]