#include "geoslib_old_f.h"
#include "Matrix/LinkMatrixSparse.hpp"
#include "Enum/EJustify.hpp"
#include "Basic/AStringable.hpp"
#include "Basic/VectorNumT.hpp"
#include "Basic/String.hpp"
#include "Basic/Utilities.hpp"
#include "Basic/File.hpp"
#include "Basic/OptCst.hpp"
#include <string>
#include <iostream>
#include <sstream>
#include <typeinfo>
#include <iomanip>
#include <stdio.h>
#include <stdarg.h>
#include <math.h>
#include <string.h>
#include "csparse_d.h"
#include "csparse_f.h"

Macros
#define	CASE_DOUBLE 0

#define	CASE_REAL 1

#define	CASE_INT 2

#define	CASE_COL 3

#define	CASE_ROW 4

#define	TRI(i) (((i) * ((i) + 1)) / 2)

#define	TL1(i, j) (tl[(j)neq+(i)-TRI(j)]) / only for i >= j */

#define	TL2(i, j) (tl[TRI(i)+(j)]) /* only for i >= j */

Functions
std::stringstream	_formatColumn (const EJustify &justify, int localSize=0)

String	_tabPrintString (const String &string, const EJustify &justify, int localSize=0)

String	_tabPrintDouble (double value, const EJustify &justify, int localSize=0)

String	_tabPrintInt (int value, const EJustify &justify, int localSize=0)

String	_tabPrintRowColumn (int icase, int value, int flagAdd)

String	_printColumnHeader (const VectorString &colnames, int colfrom, int colto, int colSize=_getColumnSize())

String	_printRowHeader (const VectorString &rownames, int iy, int rowSize=_getColumnSize())

String	_printTrailer (int ncols, int nrows, int ncols_util, int nrows_util)

void	message (const char *format,...)

void	messageNoDiff (const char *format,...)

void	messageFlush (const String &string)

void	messerrFlush (const String &string)

void	messerr (const char *format,...)

void	mesArg (const char *title, int current, int nmax, bool flagStartOne)

void	mestitle (int level, const char *format,...)

void	mes_process (const char *string, int ntot, int iech)

String	toTitle (int level, const char *format,...)

void	messageAbort (const char *format,...)

String	toMatrix (const String &title, const VectorString &colnames, const VectorString &rownames, bool bycol, int ncols, int nrows, const VectorDouble &tab, bool flagOverride)

String	toMatrixSymmetric (const String &title, const VectorString &colnames, const VectorString &rownames, bool bycol, int ncols, const VectorDouble &tab, bool flagOverride)

String	toMatrixDiagonal (const String &title, const VectorString &colnames, const VectorString &rownames, int ncols, const VectorDouble &tab, bool flagOverride)

String	toMatrixDiagCst (const String &title, const VectorString &colnames, const VectorString &rownames, int ncols, const VectorDouble &tab, bool flagOverride)

String	toMatrix (const String &title, const VectorString &colnames, const VectorString &rownames, bool bycol, int ncols, int nrows, const VectorInt &tab, bool flagOverride)

String	toMatrix (const String &title, const cs *A, bool flagOverride)

String	toVector (const String &title, const VectorDouble &tab, bool flagOverride)

String	toVector (const String &title, const VectorVectorDouble &tab, bool flagOverride)

String	toVector (const String &title, const VectorString &tab, bool flagOverride)

String	toVector (const String &title, const VectorInt &tab, bool flagOverride)

String	toStr (const String &string, const EJustify &justify, int localSize)

String	toDouble (double value, const EJustify &justify)

VectorString	toVectorDouble (const VectorDouble &values, const EJustify &justify)

String	toInt (int value, const EJustify &justify)

String	toInterval (double zmin, double zmax)

void	tab_prints (const char title, const char string, int ncol, const EJustify &justify)

void	tab_printg (const char *title, double value, int ncol, const EJustify &justify)

void	tab_printd (const char *title, double value, int ncol, const EJustify &justify)

void	tab_printi (const char *title, int value, int ncol, const EJustify &justify)

void	tab_print_rc (const char *title, int mode, int value, int ncol, const EJustify &justify)

void	tab_print_rowname (const char *string, int taille)

void	print_matrix (const char title, int flag_limit, int bycol, int nx, int ny, const double sel, const double *tab)

void	print_trimat (const char title, int mode, int neq, const double tl)

void	print_imatrix (const char title, int flag_limit, int bycol, int nx, int ny, const double sel, const int *tab)

void	print_vector (const char title, int flag_limit, int ntab, const double tab)

void	print_vector (const char *title, int flag_limit, int ntab, const VectorDouble &tab)

void	print_ivector (const char title, int flag_limit, int ntab, const int itab)

void	print_ivector (const char *title, int flag_limit, int ntab, const VectorInt &itab)

Macro Definition Documentation

◆ CASE_COL

#define CASE_COL 3

◆ CASE_DOUBLE

#define CASE_DOUBLE 0

◆ CASE_INT

#define CASE_INT 2

◆ CASE_REAL

#define CASE_REAL 1

◆ CASE_ROW

#define CASE_ROW 4

◆ TL1

#define TL1	(	i,
		j
	)	(tl[(j)neq+(i)-TRI(j)]) / only for i >= j */

◆ TL2

#define TL2	(	i,
		j
	)	(tl[TRI(i)+(j)]) /* only for i >= j */

◆ TRI

#define TRI ( i ) (((i) * ((i) + 1)) / 2)

Function Documentation

◆ _formatColumn()

std::stringstream _formatColumn	(	const EJustify &	justify,
		int	localSize = `0`
	)

◆ _printColumnHeader()

String _printColumnHeader	(	const VectorString &	colnames,
		int	colfrom,
		int	colto,
		int	colSize = `_getColumnSize()`
	)

◆ _printRowHeader()

String _printRowHeader	(	const VectorString &	rownames,
		int	iy,
		int	rowSize = `_getColumnSize()`
	)

◆ _printTrailer()

String _printTrailer	(	int	ncols,
		int	nrows,
		int	ncols_util,
		int	nrows_util
	)

◆ _tabPrintDouble()

String _tabPrintDouble	(	double	value,
		const EJustify &	justify,
		int	localSize = `0`
	)

◆ _tabPrintInt()

String _tabPrintInt	(	int	value,
		const EJustify &	justify,
		int	localSize = `0`
	)

◆ _tabPrintRowColumn()

String _tabPrintRowColumn	(	int	icase,
		int	value,
		int	flagAdd
	)

◆ _tabPrintString()

String _tabPrintString	(	const String &	string,
		const EJustify &	justify,
		int	localSize = `0`
	)

◆ mes_process()

void mes_process	(	const char *	string,
		int	ntot,
		int	iech
	)

Conditionally print the progress of a procedure

Parameters

string	String to be printed
ntot	Total number of samples
iech	Rank of the current sample

Remarks: The value 'nproc' designates the quantile such that,; when changed, the printout is provoked.

◆ mesArg()

void mesArg	(	const char *	title,
		int	current,
		int	nmax,
		bool	flagStartOne
	)

Print a standard Error Message if an argument does not lie in Interval

Parameters

title	Title to be printed
current	Current value of the argument
nmax	Maximum (inclusive) possible value
flagStartOne	True if the count starts at 1 (instead of 0)

◆ message()

void message	(	const char *	format,
			...
	)

Print a formatted message

Parameters

format	Output format
...	Additional arguments

◆ messageAbort()

void messageAbort	(	const char *	format,
			...
	)

Function for aborting the API

Parameters

format	Fatal error format
...	Additional arguments

◆ messageFlush()

void messageFlush ( const String & string )

When message has been collected as a String, this function produces it out without passing through useless internal buffering

Parameters

string String to be printed out

◆ messageNoDiff()

void messageNoDiff	(	const char *	format,
			...
	)

Print a formatted message (with "#NO_DIFF#" prefix)

Parameters

format	Output format
...	Additional arguments

◆ messerr()

void messerr	(	const char *	format,
			...
	)

Print Error message

Parameters

format	Output format
...	Additional arguments

◆ messerrFlush()

void messerrFlush ( const String & string )

When the error message has been collected as a String, this function produces it out without passing through useless internal buffering

Parameters

string String to be produced

Remarks: This function is similar to messageFlush but dedicated to Errors

◆ mestitle()

void mestitle	(	int	level,
		const char *	format,
			...
	)

Print a message and underlines it with various formats

Parameters

level	Level of the title
format	Output format
...	Additional arguments

◆ print_imatrix()

void print_imatrix	(	const char *	title,
		int	flag_limit,
		int	bycol,
		int	nx,
		int	ny,
		const double *	sel,
		const int *	tab
	)

Tabulated printout of a matrix (integer version)

Parameters

[in]	title	Title (Optional)
[in]	flag_limit	option for the limits 1 if limits must be applied 0 if the whole matrix is printed
[in]	bycol	1 if values in 'tab' are sorted by column, 0 otherwise
[in]	nx	number of columns in the matrix
[in]	ny	number of rows in the matrix
[in]	sel	array of selection or NULL
[in]	tab	array containing the matrix

◆ print_ivector() [1/2]

void print_ivector	(	const char *	title,
		int	flag_limit,
		int	ntab,
		const int *	itab
	)

Print a vector of integer values in a matrix form

Parameters

[in]	title	Title (Optional)
[in]	flag_limit	1 if NTCOL is used; 0 otherwise
[in]	ntab	Number of elements in the array
[in]	itab	Array to be printed

◆ print_ivector() [2/2]

void print_ivector	(	const char *	title,
		int	flag_limit,
		int	ntab,
		const VectorInt &	itab
	)

◆ print_matrix()

void print_matrix	(	const char *	title,
		int	flag_limit,
		int	bycol,
		int	nx,
		int	ny,
		const double *	sel,
		const double *	tab
	)

Tabulated printout of a matrix

Parameters

[in]	title	Title (Optional)
[in]	flag_limit	option for the limits 1 if limits must be applied 0 if the whole matrix is printed
[in]	bycol	1 if values in 'tab' are sorted by column, 0 otherwise
[in]	nx	number of columns in the matrix
[in]	ny	number of rows in the matrix
[in]	sel	array of selection or NULL
[in]	tab	array containing the matrix

Remarks: The order of the dimension (nx,ny) is opposite; of the one used in R-packages where dim[1]=nrow and dim[2]=ncol

◆ print_trimat()

void print_trimat	(	const char *	title,
		int	mode,
		int	neq,
		const double *	tl
	)

Tabulated printout of a upper triangular matrix

Parameters

[in]	title	Title (Optional)
[in]	mode	1 if the matrix is stored linewise 2 if the matrix is stored columnwise
[in]	neq	size of the matrix
[in]	tl	array containing the upper triangular matrix

Remarks: The ordering (compatible with matrix_solve is mode==2)

◆ print_vector() [1/2]

void print_vector	(	const char *	title,
		int	flag_limit,
		int	ntab,
		const double *	tab
	)

Print a vector of real values in a matrix form

Parameters

[in]	title	Title (Optional)
[in]	flag_limit	1 if NTCOL is used; 0 otherwise
[in]	ntab	Number of elements in the array
[in]	tab	Array to be printed

◆ print_vector() [2/2]

void print_vector	(	const char *	title,
		int	flag_limit,
		int	ntab,
		const VectorDouble &	tab
	)

◆ tab_print_rc()

void tab_print_rc	(	const char *	title,
		int	mode,
		int	value,
		int	ncol,
		const EJustify &	justify
	)

Tabulated printout of a row or column value

Parameters

[in]	title	optional title (NULL if not defined)
[in]	mode	CASE_ROW or CASE_COL
[in]	value	Value to be written
[in]	ncol	number of columns for the printout
[in]	justify	justification flag (EJustify::LEFT, EJustify::CENTER or EJustify::RIGHT)

◆ tab_print_rowname()

void tab_print_rowname	(	const char *	string,
		int	taille
	)

Tabulated printout of a string (character size provided)

Parameters

[in]	string	String to be written
[in]	taille	Number of characters

Remarks: The string is printed (left-adjusted) on 'taille' characters

◆ tab_printd()

void tab_printd	(	const char *	title,
		double	value,
		int	ncol,
		const EJustify &	justify
	)

Tabulated printout of a double value

Parameters

[in]	title	optional title (NULL if not defined)
[in]	value	Value to be written
[in]	ncol	number of columns for the printout
[in]	justify	justification flag (EJustify::LEFT, EJustify::CENTER or EJustify::RIGHT)

◆ tab_printg()

void tab_printg	(	const char *	title,
		double	value,
		int	ncol,
		const EJustify &	justify
	)

Tabulated printout of a real value

Parameters

[in]	title	optional title (NULL if not defined)
[in]	value	Value to be written
[in]	ncol	number of columns for the printout
[in]	justify	justification flag (EJustify::LEFT, EJustify::CENTER or EJustify::RIGHT)

◆ tab_printi()

void tab_printi	(	const char *	title,
		int	value,
		int	ncol,
		const EJustify &	justify
	)

Tabulated printout of an integer value

Parameters

[in]	title	optional title (NULL if not defined)
[in]	value	Value to be written
[in]	ncol	number of columns for the printout
[in]	justify	justification flag (EJustify::LEFT, EJustify::CENTER or EJustify::RIGHT)

◆ tab_prints()

void tab_prints	(	const char *	title,
		const char *	string,
		int	ncol,
		const EJustify &	justify
	)

Tabulated printout of a string

Parameters

[in]	title	optional title (NULL if not defined)
[in]	string	String to be written
[in]	ncol	number of columns for the printout
[in]	justify	justification flag (EJustify::LEFT, EJustify::CENTER or EJustify::RIGHT)

◆ toDouble()

String toDouble	(	double	value,
		const EJustify &	justify
	)

◆ toInt()

String toInt	(	int	value,
		const EJustify &	justify
	)

◆ toInterval()

String toInterval	(	double	zmin,
		double	zmax
	)

◆ toMatrix() [1/3]

String toMatrix	(	const String &	title,
		const cs *	A,
		bool	flagOverride
	)

◆ toMatrix() [2/3]

String toMatrix	(	const String &	title,
		const VectorString &	colnames,
		const VectorString &	rownames,
		bool	bycol,
		int	ncols,
		int	nrows,
		const VectorDouble &	tab,
		bool	flagOverride
	)

Print the contents of a VectorDouble in a Matrix Form

Parameters

title	Title of the printout
colnames	Names of the columns (optional)
rownames	Names of the rows (optional)
bycol	true if values as sorted by column; false otherwise
ncols	Number of columns
nrows	Number of rows
tab	VectorDouble containing the values
flagOverride	true to override printout limitations

◆ toMatrix() [3/3]

String toMatrix	(	const String &	title,
		const VectorString &	colnames,
		const VectorString &	rownames,
		bool	bycol,
		int	ncols,
		int	nrows,
		const VectorInt &	tab,
		bool	flagOverride
	)

Print the contents of a VectorDouble in a Matrix Form

Parameters

title	Title of the printout
colnames	Names of the columns (optional)
rownames	Names of the rows (optional)
bycol	true if values as sorted by column; false otherwise
ncols	Number of columns
nrows	Number of rows
tab	VectorInt containing the values
flagOverride	true to override printout limitations

◆ toMatrixDiagCst()

String toMatrixDiagCst	(	const String &	title,
		const VectorString &	colnames,
		const VectorString &	rownames,
		int	ncols,
		const VectorDouble &	tab,
		bool	flagOverride
	)

Specific printout dedicated to square diagonal matrices

Parameters

title	Title of the printout
colnames	Names of the columns (optional)
rownames	Names of the rows (optional)
ncols	Number of columns = Number of rows
tab	VectorDouble containing the values (Dimension: 1)
flagOverride	Override the printout limitations

Returns

◆ toMatrixDiagonal()

String toMatrixDiagonal	(	const String &	title,
		const VectorString &	colnames,
		const VectorString &	rownames,
		int	ncols,
		const VectorDouble &	tab,
		bool	flagOverride
	)

Specific printout dedicated to square diagonal matrices

Parameters

title	Title of the printout
colnames	Names of the columns (optional)
rownames	Names of the rows (optional)
ncols	Number of columns = Number of rows
tab	VectorDouble containing the values (Dimension: ncols)
flagOverride	Override the printout limitations

Returns

◆ toMatrixSymmetric()

String toMatrixSymmetric	(	const String &	title,
		const VectorString &	colnames,
		const VectorString &	rownames,
		bool	bycol,
		int	ncols,
		const VectorDouble &	tab,
		bool	flagOverride
	)

Specific printout dedicated to square symmetrical matrices Only the Upper left side is printed

Parameters

title	Title of the printout
colnames	Names of the columns (optional)
rownames	Names of the rows (optional)
bycol	true if values as sorted by column; false otherwise
ncols	Number of columns = Number of rows
tab	VectorDouble containing the values (Dimension: n * (n+1) /2)
flagOverride	Override the printout limitations

Returns

◆ toStr()

String toStr	(	const String &	string,
		const EJustify &	justify,
		int	localSize
	)

◆ toTitle()

String toTitle	(	int	level,
		const char *	format,
			...
	)

Print a message and underlines it with various formats

Parameters

level	Level of the title
format	Output format
...	Additional arguments

◆ toVector() [1/4]

String toVector	(	const String &	title,
		const VectorDouble &	tab,
		bool	flagOverride
	)

Printout a vector in a formatted manner

Parameters

title	Title of the printout (or empty string)
tab	Vector (real values) to be printed
flagOverride	true to override printout limitations

Returns: The string (terminated with a newline)

◆ toVector() [2/4]

String toVector	(	const String &	title,
		const VectorInt &	tab,
		bool	flagOverride
	)

Printout a vector in a formatted manner

Parameters

title	Title of the printout (or empty string)
tab	Vector (integer values) to be printed
flagOverride	true to override printout limitations

Returns: The string (terminated with a newline)

◆ toVector() [3/4]

String toVector	(	const String &	title,
		const VectorString &	tab,
		bool	flagOverride
	)

◆ toVector() [4/4]

String toVector	(	const String &	title,
		const VectorVectorDouble &	tab,
		bool	flagOverride
	)

Printout a list of vectors in a formatted manner

Parameters

title	Title of the printout (or empty string)
tab	Vector of vectors (real values) to be printed
flagOverride	true to override printout limitations

Returns: The string (terminated with a newline)

◆ toVectorDouble()

VectorString toVectorDouble	(	const VectorDouble &	values,
		const EJustify &	justify
	)

Macros

Functions

Macro Definition Documentation

◆ CASE_COL

◆ CASE_DOUBLE

◆ CASE_INT

◆ CASE_REAL

◆ CASE_ROW

◆ TL1

◆ TL2

◆ TRI

Function Documentation

◆ _formatColumn()

◆ _printColumnHeader()

◆ _printRowHeader()

◆ _printTrailer()

◆ _tabPrintDouble()

◆ _tabPrintInt()

◆ _tabPrintRowColumn()

◆ _tabPrintString()

◆ mes_process()

◆ mesArg()

◆ message()

◆ messageAbort()

◆ messageFlush()

◆ messageNoDiff()

◆ messerr()

◆ messerrFlush()

◆ mestitle()

◆ print_imatrix()

◆ print_ivector() [1/2]

◆ print_ivector() [2/2]

◆ print_matrix()

◆ print_trimat()

◆ print_vector() [1/2]

◆ print_vector() [2/2]

◆ tab_print_rc()

◆ tab_print_rowname()

◆ tab_printd()

◆ tab_printg()

◆ tab_printi()

◆ tab_prints()

◆ toDouble()

◆ toInt()

◆ toInterval()

◆ toMatrix() [1/3]

◆ toMatrix() [2/3]

◆ toMatrix() [3/3]

◆ toMatrixDiagCst()

◆ toMatrixDiagonal()

◆ toMatrixSymmetric()

◆ toStr()

◆ toTitle()

◆ toVector() [1/4]

◆ toVector() [2/4]

◆ toVector() [3/4]

◆ toVector() [4/4]

◆ toVectorDouble()