"Fossies" - the Fresh Open Source Software Archive

Member "gretl-2020e/lib/src/clapack_complex.h" (29 Aug 2019, 2348 Bytes) of package /linux/misc/gretl-2020e.tar.xz:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) C and C++ source code syntax highlighting (style: standard) with prefixed line numbers and code folding option. Alternatively you can here view or download the uninterpreted source code file. For more information about "clapack_complex.h" see the Fossies "Dox" file reference documentation.

    1 #ifndef CLAPACK_COMPLEX_H
    2 #define CLAPACK_COMPLEX_H
    3 
    4 /* LAPACK subroutines: double-precision complex versions only */
    5 
    6 void zheev_ (const char *jobz, const char *uplo, integer *n,
    7          cmplx *a, integer *lda, double *w, cmplx *work,
    8          integer *lwork, double *rwork, integer *info);
    9 
   10 void zgeev_ (const char *jobvl, const char *jobvr, integer *n,
   11          cmplx *a, integer *lda, double *w, cmplx *vl,
   12          integer *ldvl, cmplx *vr, integer *ldvr, cmplx *work,
   13          integer *lwork, double *rwork, integer *info);
   14 
   15 void zgelsy_(integer *m, integer *n, integer *nrhs, cmplx *a, integer *lda,
   16          cmplx *b, integer *ldb, integer *jpvt, double *rcond, integer *rank,
   17          cmplx *work, integer *lwork, double *rwork, integer *info);
   18 
   19 void zgetrs_ (char *trans, integer *n, integer *nrhs, cmplx *a, integer *lda,
   20           integer *ipiv, cmplx *b, integer *ldb, integer *info);
   21 
   22 void zgetrf_ (integer *m, integer *n, cmplx *a, integer *lda,
   23           integer *ipiv, integer *info);
   24 
   25 void zgetri_ (integer *n, cmplx *a, integer *lda, integer *ipiv,
   26           cmplx *work, integer *lwork, integer *info);
   27 
   28 void zgemm_ (const char *transa, const char *transb,
   29          integer *m, integer *n, integer *k,
   30          cmplx *alpha, cmplx *a, integer *lda,
   31          cmplx *b, integer *ldb, cmplx *beta,
   32          cmplx *c, integer *ldc);
   33 
   34 void zsyrk_ (const char *uplo, const char *trans, integer *n,
   35          integer *k, cmplx *alpha, cmplx *a, integer *lda,
   36          cmplx *beta, cmplx *c, integer *ldc);
   37 
   38 void zgesvd_ (const char *jobu, const char *jobvt,
   39           integer *m, integer *n, cmplx *a, integer *lda,
   40           double *s, cmplx *u, integer *ldu, cmplx *vt, integer *ldvt,
   41           cmplx *work, integer *lwork, double *rwork, integer *info);
   42 
   43 void zgees_ (const char *jobvs, const char *srt, void *select,
   44          integer *n, cmplx *a, integer *lda, integer *sdim,
   45          cmplx *w, cmplx *vs, integer *ldvs, cmplx *work, integer *lwork,
   46          double *rwork, integer *bwork, integer *info);
   47 
   48 void zpotrf_ (const char *uplo, integer *n, cmplx *a, integer *lda,
   49           integer *info);
   50 
   51 void zgeqrf_ (integer *m, integer *n, cmplx *a, integer *lda,
   52           cmplx *tau, cmplx *work, integer *lwork, integer *info);
   53 
   54 void zungqr_ (integer *m, integer *n, integer *k, cmplx *a, integer *lda,
   55           cmplx *tau, cmplx *work, integer *lwork, integer *info);
   56 
   57 #endif /* CLAPACK_COMPLEX_H */