svd.cc File Reference

#include <cassert>
#include <algorithm>
#include <unordered_map>
#include "CMatrix.h"
#include "dDiagMatrix.h"
#include "dMatrix.h"
#include "fCMatrix.h"
#include "fDiagMatrix.h"
#include "fMatrix.h"
#include "lo-error.h"
#include "lo-lapack-proto.h"
#include "svd.h"

Go to the source code of this file.

Macros
#define	GEJSV_COMPLEX_STEP(f, F, CMPLX_ARG)
#define	GEJSV_REAL_ORM_LWORK(f, F)
#define	GEJSV_REAL_QP3_LWORK(f, F)    F77_XFCN (f, F, (m, n, a, lda, jpvt, tau, work, lwork, info))
#define	GEJSV_REAL_QR_LWORK(f, F)    F77_XFCN (f, F, (m, n, a, lda, tau, work, lwork, info))
#define	GEJSV_REAL_STEP(f, F)
#define	GESDD_COMPLEX_STEP(f, F, CMPLX_ARG)
#define	GESDD_REAL_STEP(f, F)
#define	GESVD_COMPLEX_STEP(f, F, CMPLX_ARG)
#define	GESVD_REAL_STEP(f, F)

Macro Definition Documentation

GEJSV_COMPLEX_STEP

#define GEJSV_COMPLEX_STEP	(		f,
			F,
			CMPLX_ARG
	)

Value:

    F77_XFCN (f, F, (F77_CONST_CHAR_ARG2 (&joba, 1),              \
                     F77_CONST_CHAR_ARG2 (&jobu, 1),              \
                     F77_CONST_CHAR_ARG2 (&jobv, 1),              \
                     F77_CONST_CHAR_ARG2 (&jobr, 1),              \
                     F77_CONST_CHAR_ARG2 (&jobt, 1),              \
                     F77_CONST_CHAR_ARG2 (&jobp, 1),              \
                     m, n, CMPLX_ARG (tmp_data), m1,              \
                     s_vec, CMPLX_ARG (u), m1,                    \
                     CMPLX_ARG (v), nrow_v1,                      \
                     CMPLX_ARG (work.data ()), lwork,             \
                     rwork.data (), lrwork, iwork.data (), info   \
                     F77_CHAR_ARG_LEN (1)                         \
                     F77_CHAR_ARG_LEN (1)                         \
                     F77_CHAR_ARG_LEN (1)                         \
                     F77_CHAR_ARG_LEN (1)                         \
                     F77_CHAR_ARG_LEN (1)                         \
                     F77_CHAR_ARG_LEN (1)))

Definition at line 556 of file svd.cc.

GEJSV_REAL_ORM_LWORK

#define GEJSV_REAL_ORM_LWORK	(		f,
			F
	)

Value:

  F77_XFCN (f, F, (F77_CONST_CHAR_ARG2 (&side,  1),             \
                   F77_CONST_CHAR_ARG2 (&trans, 1),             \
                   m, n, k, a, lda, tau,                        \
                   c, ldc, work, lwork, info                    \
                   F77_CHAR_ARG_LEN (1)                         \
                   F77_CHAR_ARG_LEN (1)))

Definition at line 103 of file svd.cc.

GEJSV_REAL_QP3_LWORK

#define GEJSV_REAL_QP3_LWORK	(		f,
			F
	)		F77_XFCN (f, F, (m, n, a, lda, jpvt, tau, work, lwork, info))

Definition at line 97 of file svd.cc.

GEJSV_REAL_QR_LWORK

#define GEJSV_REAL_QR_LWORK	(		f,
			F
	)		F77_XFCN (f, F, (m, n, a, lda, tau, work, lwork, info))

Definition at line 100 of file svd.cc.

GEJSV_REAL_STEP

#define GEJSV_REAL_STEP	(		f,
			F
	)

Value:

    F77_XFCN (f, F, (F77_CONST_CHAR_ARG2 (&joba, 1),                  \
                     F77_CONST_CHAR_ARG2 (&jobu, 1),                  \
                     F77_CONST_CHAR_ARG2 (&jobv, 1),                  \
                     F77_CONST_CHAR_ARG2 (&jobr, 1),                  \
                     F77_CONST_CHAR_ARG2 (&jobt, 1),                  \
                     F77_CONST_CHAR_ARG2 (&jobp, 1),                  \
                     m, n, tmp_data, m1, s_vec, u, m1, v, nrow_v1,    \
                     work.data (), lwork, iwork.data (), info         \
                     F77_CHAR_ARG_LEN (1)                             \
                     F77_CHAR_ARG_LEN (1)                             \
                     F77_CHAR_ARG_LEN (1)                             \
                     F77_CHAR_ARG_LEN (1)                             \
                     F77_CHAR_ARG_LEN (1)                             \
                     F77_CHAR_ARG_LEN (1)))

Definition at line 540 of file svd.cc.

GESDD_COMPLEX_STEP

#define GESDD_COMPLEX_STEP	(		f,
			F,
			CMPLX_ARG
	)

Value:

    F77_XFCN (f, F, (F77_CONST_CHAR_ARG2 (&jobz, 1), m, n,      \
                     CMPLX_ARG (tmp_data), m1,                  \
                     s_vec, CMPLX_ARG (u), m1,                  \
                     CMPLX_ARG (vt), nrow_vt1,                  \
                     CMPLX_ARG (work.data ()), lwork,           \
                     rwork.data (), iwork, info                 \
                     F77_CHAR_ARG_LEN (1)))

Definition at line 436 of file svd.cc.

GESDD_REAL_STEP

#define GESDD_REAL_STEP	(		f,
			F
	)

Value:

    F77_XFCN (f, F, (F77_CONST_CHAR_ARG2 (&jobz, 1),                    \
                     m, n, tmp_data, m1, s_vec, u, m1, vt, nrow_vt1,    \
                     work.data (), lwork, iwork, info                   \
                     F77_CHAR_ARG_LEN (1)))

Definition at line 430 of file svd.cc.

GESVD_COMPLEX_STEP

#define GESVD_COMPLEX_STEP	(		f,
			F,
			CMPLX_ARG
	)

Value:

  F77_XFCN (f, F, (F77_CONST_CHAR_ARG2 (&jobu, 1),      \
                   F77_CONST_CHAR_ARG2 (&jobv, 1),      \
                   m, n, CMPLX_ARG (tmp_data),          \
                   m1, s_vec, CMPLX_ARG (u), m1,        \
                   CMPLX_ARG (vt), nrow_vt1,            \
                   CMPLX_ARG (work.data ()),            \
                   lwork, rwork.data (), info           \
                   F77_CHAR_ARG_LEN (1)                 \
                   F77_CHAR_ARG_LEN (1)))

Definition at line 341 of file svd.cc.

GESVD_REAL_STEP

#define GESVD_REAL_STEP	(		f,
			F
	)

Value:

  F77_XFCN (f, F, (F77_CONST_CHAR_ARG2 (&jobu, 1),              \
                   F77_CONST_CHAR_ARG2 (&jobv, 1),              \
                   m, n, tmp_data, m1, s_vec, u, m1, vt,        \
                   nrow_vt1, work.data (), lwork, info          \
                   F77_CHAR_ARG_LEN (1)                         \
                   F77_CHAR_ARG_LEN (1)))

Definition at line 333 of file svd.cc.