/home66/gary/public_html/cloudy/c10_branch/source/thirdparty_lapack.cpp File Reference

#include "cddefines.h"
#include "thirdparty.h"

Include dependency graph for thirdparty_lapack.cpp:

Go to the source code of this file.

Defines
#define	ONE   1.0e0
#define	ZERO   0.0e0
#define	AA(I_, J_)   (*(A+(I_)*(LDA)+(J_)))
#define	BB(I_, J_)   (*(B+(I_)*(LDB)+(J_)))
#define	CC(I_, J_)   (*(C+(I_)*(LDC)+(J_)))
Functions
STATIC void	DGETRF (int32, int32, double *, int32, int32[], int32 *)
STATIC void	DGETRS (int32 TRANS, int32 N, int32 NRHS, double *A, int32 LDA, int32 IPIV[], double *B, int32 LDB, int32 *INFO)
void	getrf_wrapper (long M, long N, double *A, long lda, int32 *ipiv, int32 *info)
void	getrs_wrapper (char trans, long N, long nrhs, double *A, long lda, int32 *ipiv, double *B, long ldb, int32 *info)
STATIC void	DGEMM (int32 TRANSA, int32 TRANSB, int32 M, int32 N, int32 K, double ALPHA, double *A, int32 LDA, double *B, int32 LDB, double BETA, double *C, int32 LDC)
STATIC int32	LSAME (int32 CA, int32 CB)
STATIC int32	IDAMAX (int32 n, double dx[], int32 incx)
STATIC void	DTRSM (int32 SIDE, int32 UPLO, int32 TRANSA, int32 DIAG, int32 M, int32 N, double ALPHA, double *A, int32 LDA, double *B, int32 LDB)
STATIC int32	ILAENV (int32 ISPEC, const char *NAME, int32 N1, int32 N2, int32 N4)
STATIC void	DSWAP (int32 n, double dx[], int32 incx, double dy[], int32 incy)
STATIC void	DSCAL (int32 n, double da, double dx[], int32 incx)
STATIC void	DLASWP (int32 N, double *A, int32 LDA, int32 K1, int32 K2, int32 IPIV[], int32 INCX)
STATIC void	DGETF2 (int32 M, int32 N, double *A, int32 LDA, int32 IPIV[], int32 *INFO)
STATIC void	DGER (int32 M, int32 N, double ALPHA, double X[], int32 INCX, double Y[], int32 INCY, double *A, int32 LDA)
STATIC void	XERBLA (const char *SRNAME, int32 INFO)

---

Define Documentation

#define AA	(	I_,
		J_		)	(*(A+(I_)*(LDA)+(J_)))

Definition at line 136 of file thirdparty_lapack.cpp.

Referenced by DGEMM(), DGER(), DGETF2(), DGETRF(), DLASWP(), and DTRSM().

#define BB	(	I_,
		J_		)	(*(B+(I_)*(LDB)+(J_)))

Definition at line 137 of file thirdparty_lapack.cpp.

Referenced by DGEMM(), and DTRSM().

#define CC	(	I_,
		J_		)	(*(C+(I_)*(LDC)+(J_)))

Definition at line 138 of file thirdparty_lapack.cpp.

Referenced by DGEMM().

#define ONE   1.0e0

Definition at line 123 of file thirdparty_lapack.cpp.

Referenced by DGEMM(), DGETF2(), DGETRF(), DGETRS(), and DTRSM().

#define ZERO   0.0e0

Definition at line 124 of file thirdparty_lapack.cpp.

Referenced by DGEMM(), DGER(), DGETF2(), and DTRSM().

---

Function Documentation

STATIC void DGEMM	(	int32	TRANSA,
		int32	TRANSB,
		int32	M,
		int32	N,
		int32	K,
		double	ALPHA,
		double *	A,
		int32	LDA,
		double *	B,
		int32	LDB,
		double	BETA,
		double *	C,
		int32	LDC
	)

Definition at line 2833 of file thirdparty_lapack.cpp.

References AA, BB, CC, DEBUG_ENTRY, J_, L_, LSAME(), MAX2, ONE, XERBLA(), and ZERO.

Referenced by DGETRF().

Here is the call graph for this function:

STATIC void DGER	(	int32	M,
		int32	N,
		double	ALPHA,
		double	X[],
		int32	INCX,
		double	Y[],
		int32	INCY,
		double *	A,
		int32	LDA
	)

Definition at line 2631 of file thirdparty_lapack.cpp.

References AA, DEBUG_ENTRY, J_, MAX2, XERBLA(), and ZERO.

Referenced by DGETF2().

Here is the call graph for this function:

STATIC void DGETF2	(	int32	M,
		int32	N,
		double *	A,
		int32	LDA,
		int32	IPIV[],
		int32 *	INFO
	)

Definition at line 2480 of file thirdparty_lapack.cpp.

References AA, DEBUG_ENTRY, DGER(), DSCAL(), DSWAP(), IDAMAX(), J_, MAX2, MIN2, ONE, XERBLA(), and ZERO.

Referenced by DGETRF().

Here is the call graph for this function:

STATIC void DGETRF	(	int32	M,
		int32	N,
		double *	A,
		int32	LDA,
		int32	IPIV[],
		int32 *	INFO
	)

Definition at line 296 of file thirdparty_lapack.cpp.

References AA, DEBUG_ENTRY, DGEMM(), DGETF2(), DLASWP(), DTRSM(), ILAENV(), J_, MAX2, MIN2, ONE, and XERBLA().

Referenced by getrf_wrapper().

Here is the call graph for this function:

STATIC void DGETRS	(	int32	TRANS,
		int32	N,
		int32	NRHS,
		double *	A,
		int32	LDA,
		int32	IPIV[],
		double *	B,
		int32	LDB,
		int32 *	INFO
	)

Definition at line 527 of file thirdparty_lapack.cpp.

References DEBUG_ENTRY, DLASWP(), DTRSM(), LSAME(), MAX2, ONE, and XERBLA().

Referenced by getrs_wrapper().

Here is the call graph for this function:

STATIC void DLASWP	(	int32	N,
		double *	A,
		int32	LDA,
		int32	K1,
		int32	K2,
		int32	IPIV[],
		int32	INCX
	)

Definition at line 2355 of file thirdparty_lapack.cpp.

References AA, DEBUG_ENTRY, and DSWAP().

Referenced by DGETRF(), and DGETRS().

Here is the call graph for this function:

STATIC void DSCAL	(	int32	n,
		double	da,
		double	dx[],
		int32	incx
	)

Definition at line 2286 of file thirdparty_lapack.cpp.

References DEBUG_ENTRY.

Referenced by DGETF2().

STATIC void DSWAP	(	int32	n,
		double	dx[],
		int32	incx,
		double	dy[],
		int32	incy
	)

Definition at line 2198 of file thirdparty_lapack.cpp.

References DEBUG_ENTRY.

Referenced by DGETF2(), and DLASWP().

STATIC void DTRSM	(	int32	SIDE,
		int32	UPLO,
		int32	TRANSA,
		int32	DIAG,
		int32	M,
		int32	N,
		double	ALPHA,
		double *	A,
		int32	LDA,
		double *	B,
		int32	LDB
	)

Definition at line 903 of file thirdparty_lapack.cpp.

References AA, BB, DEBUG_ENTRY, J_, LSAME(), MAX2, ONE, XERBLA(), and ZERO.

Referenced by DGETRF(), and DGETRS().

Here is the call graph for this function:

void getrf_wrapper	(	long	M,
		long	N,
		double *	A,
		long	lda,
		int32 *	ipiv,
		int32 *	info
	)

getrf_wrapper return value is zero for success, non-zero is error condition

Parameters:

	M
	N
	*A
	lda
	*ipiv
	*info

Definition at line 47 of file thirdparty_lapack.cpp.

References ASSERT, DGETRF(), and INT32_MAX.

Referenced by atom_levelN(), atom_pop5(), AtomSeqBeryllium(), CO_solve(), FeIILevelPops(), find_solution(), iso_level(), oi_level_pops(), and SanityCheckBegin().

Here is the call graph for this function:

void getrs_wrapper	(	char	trans,
		long	N,
		long	nrhs,
		double *	A,
		long	lda,
		int32 *	ipiv,
		double *	B,
		long	ldb,
		int32 *	info
	)

getrs_wrapper return value is zero for success, non-zero is error condition

Parameters:

	trans
	N
	nrhs
	*A
	lda
	*ipiv
	*B
	ldb
	*info

Definition at line 69 of file thirdparty_lapack.cpp.

References ASSERT, DGETRS(), and INT32_MAX.

Referenced by atom_levelN(), atom_pop5(), AtomSeqBeryllium(), CO_solve(), FeIILevelPops(), find_solution(), iso_level(), oi_level_pops(), and SanityCheckBegin().

Here is the call graph for this function:

STATIC int32 IDAMAX	(	int32	n,
		double	dx[],
		int32	incx
	)

Definition at line 834 of file thirdparty_lapack.cpp.

References DEBUG_ENTRY.

Referenced by DGETF2().

STATIC int32 ILAENV	(	int32	ISPEC,
		const char *	NAME,
		int32	N1,
		int32	N2,
		int32	N4
	)

Definition at line 1424 of file thirdparty_lapack.cpp.

References C1, DEBUG_ENTRY, and MIN2.

Referenced by DGETRF().

STATIC int32 LSAME	(	int32	CA,
		int32	CB
	)

Definition at line 725 of file thirdparty_lapack.cpp.

References DEBUG_ENTRY.

Referenced by DGEMM(), DGETRS(), and DTRSM().

STATIC void XERBLA	(	const char *	SRNAME,
		int32	INFO
	)

Definition at line 251 of file thirdparty_lapack.cpp.

References cdEXIT, DEBUG_ENTRY, and ioQQQ.

Referenced by DGEMM(), DGER(), DGETF2(), DGETRF(), DGETRS(), and DTRSM().