lapack.h File Reference

#include "fortran.h"
#include "vec.h"
#include "fmat.h"

Go to the source code of this file.

Defines
#define	F77_DGESV   dgesv_
#define	F77_DGELS   dgels_
#define	F77_DSYEV   dsyev_
#define	F77_DGEEV   dgeev_
Functions
void	F77_DGESV (cfi_ N, cfi_ nrhs, fda_ A, cfi_ lda, fia_ ipiv, fda_ b, cfi_ ldb, fi_ info)
void	F77_DGELS (cfch_ trans, cfi_ M, cfi_ N, cfi_ nrhs, fda_ A, cfi_ lda, fda_ B, cfi_ ldb, fda_ work, cfi_ lwork, fi_ info)
void	F77_DSYEV (cfch_ jobz, cfch_ uplo, cfi_ N, fda_ A, cfi_ lda, fda_ W, fda_ work, cfi_ lwork, fi_ info)
void	F77_DGEEV (cfch_ jobvl, cfch_ jobvr, cfi_ N, fda_ A, cfi_ lda, fda_ wr, fda_ wi, fda_ vl, cfi_ ldvl, fda_ vr, cfi_ ldvr, fda_ work, cfi_ lwork, fi_ info)
Vector< double >	Lapack_LU_linear_solve (const Fortran_Matrix< double > &A, const Vector< double > &b)
Vector< double >	Lapack_LLS_QR_linear_solve (const Fortran_Matrix< double > &A, const Vector< double > &b)
Vector< double >	Upper_symmetric_eigenvalue_solve (const Fortran_Matrix< double > &A)
int	eigenvalue_solve (const Fortran_Matrix< double > &A, Vector< double > &wr, Vector< double > &wi)

---

Define Documentation

#define F77_DGEEV   dgeev_

Definition at line 46 of file lapack.h.

Referenced by eigenvalue_solve().

#define F77_DGELS   dgels_

Definition at line 44 of file lapack.h.

Referenced by Lapack_LLS_QR_linear_solve().

#define F77_DGESV   dgesv_

Definition at line 43 of file lapack.h.

Referenced by Lapack_LU_linear_solve().

#define F77_DSYEV   dsyev_

Definition at line 45 of file lapack.h.

Referenced by Upper_symmetric_eigenvalue_solve().

---

Function Documentation

int eigenvalue_solve	(	const Fortran_Matrix< double > &	A,
		Vector< double > &	wr,
		Vector< double > &	wi
	)

Definition at line 152 of file lapack.h.

References assert, F77_DGEEV, N, TNT::Vector< T >::newsize(), TNT::Fortran_Matrix< T >::num_cols(), and TNT::Fortran_Matrix< T >::num_rows().

void F77_DGEEV	(	cfch_	jobvl,
		cfch_	jobvr,
		cfi_	N,
		fda_	A,
		cfi_	lda,
		fda_	wr,
		fda_	wi,
		fda_	vl,
		cfi_	ldvl,
		fda_	vr,
		cfi_	ldvr,
		fda_	work,
		cfi_	lwork,
		fi_	info
	)

void F77_DGELS	(	cfch_	trans,
		cfi_	M,
		cfi_	N,
		cfi_	nrhs,
		fda_	A,
		cfi_	lda,
		fda_	B,
		cfi_	ldb,
		fda_	work,
		cfi_	lwork,
		fi_	info
	)

void F77_DGESV	(	cfi_	N,
		cfi_	nrhs,
		fda_	A,
		cfi_	lda,
		fia_	ipiv,
		fda_	b,
		cfi_	ldb,
		fi_	info
	)

void F77_DSYEV	(	cfch_	jobz,
		cfch_	uplo,
		cfi_	N,
		fda_	A,
		cfi_	lda,
		fda_	W,
		fda_	work,
		cfi_	lwork,
		fi_	info
	)

Vector<double> Lapack_LLS_QR_linear_solve	(	const Fortran_Matrix< double > &	A,
		const Vector< double > &	b
	)

Definition at line 100 of file lapack.h.

References F77_DGELS, M, N, TNT::Fortran_Matrix< T >::num_cols(), and TNT::Fortran_Matrix< T >::num_rows().

Vector<double> Lapack_LU_linear_solve	(	const Fortran_Matrix< double > &	A,
		const Vector< double > &	b
	)

Definition at line 79 of file lapack.h.

References F77_DGESV, M, N, TNT::Fortran_Matrix< T >::num_cols(), and TNT::Fortran_Matrix< T >::num_rows().

Vector<double> Upper_symmetric_eigenvalue_solve

(

const Fortran_Matrix< double > &

A

)

Definition at line 127 of file lapack.h.

References assert, TNT::Fortran_Matrix< T >::begin(), TNT::Vector< T >::begin(), F77_DSYEV, N, TNT::Fortran_Matrix< T >::num_cols(), and TNT::Fortran_Matrix< T >::num_rows().