#include "borderbasix/arithm/Scl_mpf.hpp"
#include "linalg/clapack.h"
#include <complex>
#include "linpkg/Lapack.H"
#include "linpkg/Eigen.H"
#include <stdlib.h>
#include <cstdlib>

Functions
int	zgebal_ (...)

void	dgees_ (char JOBVS, char SORT, bool(SELECT)(double, double), int N, double A, int LDA, int SDIM, double WR, double WI, double VS, int LDVS, double WORK, int LWORK, double BWORK, int *info)

template<typename T >
int	zgees_ (const char jobvs, const char sort, logical(select)(doublecomplex< T > ), tla_int n, doublecomplex< T > a, tla_int lda, tla_int sdim, doublecomplex< T > w, doublecomplex< T > vs, tla_int ldvs, doublecomplex< T > work, tla_int lwork, T rwork, logical bwork, tla_int info)

template<typename T >
int	ztrsen_ (const char job, const char compq, logical select, tla_int n, doublecomplex< T > t, tla_int ldt, doublecomplex< T > q, tla_int ldq, doublecomplex< T > w, tla_int m, T s, T sep, doublecomplex< T > work, tla_int lwork, tla_int *info)

template<typename Mat >
Mat	wraplapack_dgees (const Mat &M)

template<typename T >
long int	select_true (doublecomplex< T > *toto)

template<typename Mat >
Mat	wraplapack_zgees (Mat M)

template<typename Mat >
void	trigsim (list< Mat > &lmat)

template<typename Mat , typename coeff >
void	wraplapack_ztrsen (Mat &M, logical select, coeff res)

template<typename T , typename Mat >
T	cond_number (Mat &Combilin, int i)

template<typename Mat , typename typcond >
int	getcluster (Mat &M, typcond *cond)

template<typename Mat , typename typcond >
int	docluster (Mat &M, Mat &Shurvect, typcond *cond, int i)

template<typename T , typename Mat >
void	reorder (Mat &Combilin, Mat &Shurvect, Mat &invShurvect, list< int > &size_clust)

template<typename Mat >
void	compltrigsim (list< Mat > &lmat, list< int > &size_clust)

template<typename Mat , typename Complex_Mat >
void	solvefromcompltrigsim (const list< Mat > &lmat, const list< int > &size_clust, Complex_Mat &res)

template<typename Mat , typename Complex_Mat >
void	solvefromtrigsim (const list< Mat > &lmat, Complex_Mat &res)

template<typename Mat >
Mat	wraplapack_zgebal (Mat M)

template<typename lmat , typename typres >
void	GetRootMat (lmat &lres, typres &res)

template<typename typres , typename Base >
void	realsolve2 (const list< harewell< QQ > > &lmat, const Base &b, typres &res)

template<typename typres , typename Base >
void	realsolve2 (const list< harewell< RR > > &lmat, const Base &b, typres &res)

template<typename typcoeff , typename typres , typename Base >
void	realsolve2 (const list< harewell< typcoeff > > &lmat, const Base &b, typres &res)

template<int p, typename typrep , typename typres , typename Base >
void	realsolve2 (const list< harewell< Z< p, typrep > > > &lmat, const Base &b, typres &res)

template<typename typres , typename typlmat , typename Base >
void	realsolve3 (const typlmat &lmat, const Base &b, typres &res)

Function Documentation

template<typename Mat >

void compltrigsim	(	list< Mat > &	lmat,
		list< int > &	size_clust
	)

template<typename T , typename Mat >

T cond_number	(	Mat &	Combilin,
		int	i
	)

void dgees_	(	char *	JOBVS,
		char *	SORT,
		bool(*)(double, double)	SELECT,
		int *	N,
		double *	A,
		int *	LDA,
		int *	SDIM,
		double *	WR,
		double *	WI,
		double *	VS,
		int *	LDVS,
		double *	WORK,
		int *	LWORK,
		double *	BWORK,
		int *	info
	)

template<typename Mat , typename typcond >

int docluster	(	Mat &	M,
		Mat &	Shurvect,
		typcond *	cond,
		int	i
	)

template<typename Mat , typename typcond >

int getcluster	(	Mat &	M,
		typcond *	cond
	)

template<typename lmat , typename typres >

void GetRootMat	(	lmat &	lres,
		typres &	res
	)

template<typename typres , typename Base >

void realsolve2	(	const list< harewell< QQ > > &	lmat,
		const Base &	b,
		typres &	res
	)

template<typename typres , typename Base >

void realsolve2	(	const list< harewell< RR > > &	lmat,
		const Base &	b,
		typres &	res
	)

template<typename typcoeff , typename typres , typename Base >

void realsolve2	(	const list< harewell< typcoeff > > &	lmat,
		const Base &	b,
		typres &	res
	)

template<int p, typename typrep , typename typres , typename Base >

void realsolve2	(	const list< harewell< Z< p, typrep > > > &	lmat,
		const Base &	b,
		typres &	res
	)

template<typename typres , typename typlmat , typename Base >

void realsolve3	(	const typlmat &	lmat,
		const Base &	b,
		typres &	res
	)

template<typename T , typename Mat >

void reorder	(	Mat &	Combilin,
		Mat &	Shurvect,
		Mat &	invShurvect,
		list< int > &	size_clust
	)

template<typename T >

long int select_true ( doublecomplex< T > * toto )

template<typename Mat , typename Complex_Mat >

void solvefromcompltrigsim	(	const list< Mat > &	lmat,
		const list< int > &	size_clust,
		Complex_Mat &	res
	)

template<typename Mat , typename Complex_Mat >

void solvefromtrigsim	(	const list< Mat > &	lmat,
		Complex_Mat &	res
	)

template<typename Mat >

void trigsim ( list< Mat > & lmat )

template<typename Mat >

Mat wraplapack_dgees ( const Mat & M )

template<typename Mat >

Mat wraplapack_zgebal ( Mat M )

template<typename Mat >

Mat wraplapack_zgees ( Mat M )

template<typename Mat , typename coeff >

void wraplapack_ztrsen	(	Mat &	M,
		logical *	select,
		coeff *	res
	)

int zgebal_ ( ... )

template<typename T >

int zgees_	(	const char *	jobvs,
		const char *	sort,
		logical()(doublecomplex< T > )	select,
		tla_int *	n,
		doublecomplex< T > *	a,
		tla_int *	lda,
		tla_int *	sdim,
		doublecomplex< T > *	w,
		doublecomplex< T > *	vs,
		tla_int *	ldvs,
		doublecomplex< T > *	work,
		tla_int *	lwork,
		T *	rwork,
		logical *	bwork,
		tla_int *	info
	)

template<typename T >

int ztrsen_	(	const char *	job,
		const char *	compq,
		logical *	select,
		tla_int *	n,
		doublecomplex< T > *	t,
		tla_int *	ldt,
		doublecomplex< T > *	q,
		tla_int *	ldq,
		doublecomplex< T > *	w,
		tla_int *	m,
		T *	s,
		T *	sep,
		doublecomplex< T > *	work,
		tla_int *	lwork,
		tla_int *	info
	)

Functions

Function Documentation