A RetroSearch Logo

Home - News ( United States | United Kingdom | Italy | Germany ) - Football scores

Search Query:

Showing content from http://www.ncbi.nlm.nih.gov/IEB/ToolBox/CPP_DOC/doxyhtml/ncbi__lapack_8c_source.html below:

NCBI C++ ToolKit: src/misc/lapackwrapp/ncbi_lapack.c Source File

41 # define HAVE_LAPACK_CONFIG_H 1 43 #elif defined(HAVE_LAPACKE_LAPACKE_H) 44 # define HAVE_LAPACK_CONFIG_H 1 45 # include <lapacke/lapacke.h> 46 #elif defined(HAVE_ACCELERATE_ACCELERATE_H) 47 # define ACCELERATE_NEW_LAPACK 48 # include <Accelerate/Accelerate.h> 49 #elif defined(HAVE___CLPK_INTEGER) 56 # ifdef HAVE_CLAPACK_H 57 # define complex TLapackComplexFloat 58 # define doublecomplex TLapackComplexDouble 59 # define integer TLapackInt 60 # define logical TLapackLogical 71 #if defined(LAPACK_malloc) 76 #elif defined(__LAPACK_SUFFIX_NEW_LAPACK) 81 #elif defined(HAVE___CLPK_INTEGER) 90 #if !defined(LAPACK_COL_MAJOR) && !defined(__CLAPACK_H) 104 static unsigned int s_Min

(

unsigned int

x,

unsigned int

y)

106  return

x < y ? x : y;

111  double

*

a

,

unsigned int

lda_in,

double

* w)

113  double

optimal_work_size;

114  char

jobz = jobz_in, uplo = uplo_in;

116  dsyev_

(&jobz, &uplo, &

n

,

a

, &lda, w, &optimal_work_size, &lwork, &

info

);

119

lwork = optimal_work_size;

120

work =

malloc

(lwork *

sizeof

(

double

));

124  dsyev_

(&jobz, &uplo, &

n

,

a

, &lda, w, work, &lwork, &

info

);

131  unsigned int r

,

unsigned int

c,

unsigned int

nrhs_in,

132  double

*

a

,

unsigned int

lda_in,

133  double

*

b

,

unsigned int

ldb_in)

136  char

trans = trans_in;

137  TLapackInt

m =

r

,

n

= c, nrhs = nrhs_in, lda = lda_in, ldb = ldb_in,

138

lwork = -1,

info

= 0;

139  dgels_

(&trans, &m, &

n

, &nrhs,

a

, &lda,

b

, &ldb, &ows, &lwork, &

info

);

143

work =

malloc

(lwork *

sizeof

(

double

));

147  dgels_

(&trans, &m, &

n

, &nrhs,

a

, &lda,

b

, &ldb, work, &lwork, &

info

);

155  unsigned int r

,

unsigned int

c,

156  double

*

a

,

unsigned int

lda_in,

double

* s,

157  double

* u,

unsigned int

ldu_in,

158  double

* vt,

unsigned int

ldvt_in,

161  double

optimal_work_size;

162  char

jobu = jobu_in, jobvt = jobvt_in;

163  TLapackInt

m =

r

,

n

= c, lda = lda_in, ldu = ldu_in, ldvt = ldvt_in,

164

lwork = -1,

info

= 0;

165  dgesvd_

(&jobu, &jobvt, &m, &

n

,

a

, &lda, s, u, &ldu, vt, &ldvt,

166

&optimal_work_size, &lwork, &

info

);

169

lwork = optimal_work_size;

170

work =

malloc

(lwork *

sizeof

(

double

));

174  dgesvd_

(&jobu, &jobvt, &m, &

n

,

a

, &lda, s, u, &ldu, vt, &ldvt,

175

work, &lwork, &

info

);

176  if

(superb !=

NULL

) {

177

memcpy(superb, work + 1, (

s_Min

(

r

, c) - 1) *

sizeof

(

double

));

static const int kNcbiLapackMemoryError

int NCBI_SymmetricEigens(enum EEigensWanted jobz_in, enum EMatrixTriangle uplo_in, unsigned int n_in, double *a, unsigned int lda_in, double *w)

Compute the eigenvalues, and optionally also the eigenvectors, of a symmetric matrix.

ESingularVectorDetailsWanted

int NCBI_SingularValueDecomposition(enum ESingularVectorDetailsWanted jobu_in, enum ESingularVectorDetailsWanted jobvt_in, unsigned int r, unsigned int c, double *a, unsigned int lda_in, double *s, double *u, unsigned int ldu_in, double *vt, unsigned int ldvt_in, double *superb)

Compute the singular value decomposition of a matrix.

int NCBI_LinearSolution(enum EMaybeTransposed trans_in, unsigned int r, unsigned int c, unsigned int nrhs_in, double *a, unsigned int lda_in, double *b, unsigned int ldb_in)

Find the least-squares solution of an overdetermined linear system, or the minimum-norm solution of a...

TLapackInt dgels_(char *trans, TLapackInt *m, TLapackInt *n, TLapackInt *nrhs, double *a, TLapackInt *lda, double *b, TLapackInt *ldb, double *work, TLapackInt *lwork, TLapackInt *info)

TLapackInt dsyev_(char *jobz, char *uplo, TLapackInt *n, double *a, TLapackInt *lda, double *w, double *work, TLapackInt *lwork, TLapackInt *info)

static unsigned int s_Min(unsigned int x, unsigned int y)

TLapackInt dgesvd_(char *jobu, char *jobvt, TLapackInt *m, TLapackInt *n, double *a, TLapackInt *lda, double *s, double *u, TLapackInt *ldu, double *vt, TLapackInt *ldvt, double *work, TLapackInt *lwork, TLapackInt *info)

Front end for a platform-specific configuration summary.

double r(size_t dimension_, const Int4 *score_, const double *prob_, double theta_)

RetroSearch is an open source project built by @garambo | Open a GitHub Issue

Search and Browse the WWW like it's 1997 | Search results from DuckDuckGo

HTML: 3.2 | Encoding: UTF-8 | Version: 0.7.4