/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().

 All Data Structures Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Defines

Generated on 15 Nov 2012 for cloudy by  doxygen 1.6.1