Cloudy
Spectral Synthesis Code for Astrophysics
Loading...
Searching...
No Matches
thirdparty_lapack.cpp File Reference
#include "cddefines.h"
#include "thirdparty.h"
Include dependency graph for thirdparty_lapack.cpp:

Macros

#define ONE   1.0e0
#define ZERO   0.0e0
#define AA(I_, J_)
#define BB(I_, J_)
#define CC(I_, 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)

Macro Definition Documentation

◆ AA

#define AA ( I_,
J_ )
Value:
(*(A+(I_)*(LDA)+(J_)))
J_
#define J_(A_)
Definition iso.h:25

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

◆ BB

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

Referenced by DGEMM(), and DTRSM().

◆ CC

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

Referenced by DGEMM().

◆ ONE

#define ONE   1.0e0

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

◆ ZERO

#define ZERO   0.0e0

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

Function Documentation

◆ DGEMM()

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 )

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

Referenced by DGETRF().

Here is the call graph for this function:

◆ DGER()

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

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

Referenced by DGETF2().

Here is the call graph for this function:

◆ DGETF2()

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

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

Referenced by DGETRF().

Here is the call graph for this function:

◆ DGETRF()

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

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

Referenced by getrf_wrapper().

Here is the call graph for this function:

◆ DGETRS()

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

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

Referenced by getrs_wrapper().

Here is the call graph for this function:

◆ DLASWP()

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

References AA, DEBUG_ENTRY, DSWAP(), and STATIC.

Referenced by DGETRF(), and DGETRS().

Here is the call graph for this function:

◆ DSCAL()

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

References da(), DEBUG_ENTRY, and STATIC.

Referenced by DGETF2().

Here is the call graph for this function:

◆ DSWAP()

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

References DEBUG_ENTRY, and STATIC.

Referenced by DGETF2(), and DLASWP().

◆ DTRSM()

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 )

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

Referenced by DGETRF(), and DGETRS().

Here is the call graph for this function:

◆ getrf_wrapper()

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

References ASSERT, DGETRF(), and INT32_MAX.

Referenced by find_solution(), iso_level(), SanityCheckBegin(), and solve_system().

Here is the call graph for this function:

◆ getrs_wrapper()

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

References ASSERT, DGETRS(), and INT32_MAX.

Referenced by find_solution(), iso_level(), SanityCheckBegin(), and solve_system().

Here is the call graph for this function:

◆ IDAMAX()

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

References DEBUG_ENTRY, and STATIC.

Referenced by DGETF2().

◆ ILAENV()

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

References C1, DEBUG_ENTRY, MIN2, and STATIC.

Referenced by DGETRF().

◆ LSAME()

STATIC int32 LSAME ( int32 CA,
int32 CB )

References DEBUG_ENTRY, and STATIC.

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

◆ XERBLA()

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

References cdEXIT, DEBUG_ENTRY, EXIT_FAILURE, fprintf(), ioQQQ, and STATIC.

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

Here is the call graph for this function: