#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 AT | ( | i, | |
j | |||
) | at[TRI(j)+(i)] /* for j >= i */ |
#define SQ | ( | i, | |
j, | |||
neq | |||
) | ((j) * neq + (i)) |
#define TRI | ( | i | ) | (((i) * ((i) + 1)) / 2) |