mkl_lapack32.h

最小二乘拟和工具

/*
//               INTEL CORPORATION PROPRIETARY INFORMATION
//  This software is supplied under the terms of a license agreement or
//  nondisclosure agreement with Intel Corporation and may not be copied
//  or disclosed except in accordance with the terms of that agreement.
//  Copyright (c) 1999-2001 Intel Corporation. All Rights Reserved.
//
// File    : mkl_lapack32.h
// Purpose : MKL Fortran interface for LAPACK routines and functions
//           for single precision data
// Author  : Shemyakin Andrey
*/

#ifndef _MKL_LAPACK_S_H_

#define _MKL_LAPACK_S_H_

#include "mkl_types.h"

#ifdef __cplusplus
extern "C" {
#endif /* __cplusplus */

void    CBDSQR(char *uplo,int *n,int *ncvt,int *nru,int *ncc,float *d,float *e, MKL_Complex8 *vt,int *ldvt, MKL_Complex8 *u,int *ldu, MKL_Complex8 *c,int *ldc,float *rwork,int *info);
void    cbdsqr(char *uplo,int *n,int *ncvt,int *nru,int *ncc,float *d,float *e, MKL_Complex8 *vt,int *ldvt, MKL_Complex8 *u,int *ldu, MKL_Complex8 *c,int *ldc,float *rwork,int *info);
void    CGBBRD(char *vect,int *m,int *n,int *ncc,int *kl,int *ku, MKL_Complex8 *ab,int *ldab,float *d,float *e, MKL_Complex8 *q,int *ldq, MKL_Complex8 *pt,int *ldpt, MKL_Complex8 *c,int *ldc, MKL_Complex8 *work,float *rwork,int *info);
void    cgbbrd(char *vect,int *m,int *n,int *ncc,int *kl,int *ku, MKL_Complex8 *ab,int *ldab,float *d,float *e, MKL_Complex8 *q,int *ldq, MKL_Complex8 *pt,int *ldpt, MKL_Complex8 *c,int *ldc, MKL_Complex8 *work,float *rwork,int *info);
void    CGBCON(char *norm,int *n,int *kl,int *ku, MKL_Complex8 *ab,int *ldab,int *ipiv,float *anorm,float *rcond, MKL_Complex8 *work,float *rwork,int *info);
void    cgbcon(char *norm,int *n,int *kl,int *ku, MKL_Complex8 *ab,int *ldab,int *ipiv,float *anorm,float *rcond, MKL_Complex8 *work,float *rwork,int *info);
void    CGBEQU(int *m,int *n,int *kl,int *ku, MKL_Complex8 *ab,int *ldab,float *r,float *c,float *rowcnd,float *colcnd,float *amax,int *info);
void    cgbequ(int *m,int *n,int *kl,int *ku, MKL_Complex8 *ab,int *ldab,float *r,float *c,float *rowcnd,float *colcnd,float *amax,int *info);
void    CGBRFS(char *trans,int *n,int *kl,int *ku,int *nrhs, MKL_Complex8 *ab,int *ldab, MKL_Complex8 *afb,int *ldafb,int *ipiv, MKL_Complex8 *b,int *ldb, MKL_Complex8 *x,int *ldx,float *ferr,float *berr, MKL_Complex8 *work,float *rwork,int *info);
void    cgbrfs(char *trans,int *n,int *kl,int *ku,int *nrhs, MKL_Complex8 *ab,int *ldab, MKL_Complex8 *afb,int *ldafb,int *ipiv, MKL_Complex8 *b,int *ldb, MKL_Complex8 *x,int *ldx,float *ferr,float *berr, MKL_Complex8 *work,float *rwork,int *info);
void    CGBSV(int *n,int *kl,int *ku,int *nrhs, MKL_Complex8 *ab,int *ldab,int *ipiv, MKL_Complex8 *b,int *ldb,int *info);
void    cgbsv(int *n,int *kl,int *ku,int *nrhs, MKL_Complex8 *ab,int *ldab,int *ipiv, MKL_Complex8 *b,int *ldb,int *info);
void    CGBSVX(char *fact,char *trans,int *n,int *kl,int *ku,int *nrhs, MKL_Complex8 *ab,int *ldab, MKL_Complex8 *afb,int *ldafb,int *ipiv,char *equed,float *r,float *c, MKL_Complex8 *b,int *ldb, MKL_Complex8 *x,int *ldx,float *rcond,float *ferr,float *berr, MKL_Complex8 *work,float *rwork,int *info);
void    cgbsvx(char *fact,char *trans,int *n,int *kl,int *ku,int *nrhs, MKL_Complex8 *ab,int *ldab, MKL_Complex8 *afb,int *ldafb,int *ipiv,char *equed,float *r,float *c, MKL_Complex8 *b,int *ldb, MKL_Complex8 *x,int *ldx,float *rcond,float *ferr,float *berr, MKL_Complex8 *work,float *rwork,int *info);
void    CGBTF2(int *m,int *n,int *kl,int *ku, MKL_Complex8 *ab,int *ldab,int *ipiv,int *info);
void    cgbtf2(int *m,int *n,int *kl,int *ku, MKL_Complex8 *ab,int *ldab,int *ipiv,int *info);
void    CGBTRF(int *m,int *n,int *kl,int *ku, MKL_Complex8 *ab,int *ldab,int *ipiv,int *info);
void    cgbtrf(int *m,int *n,int *kl,int *ku, MKL_Complex8 *ab,int *ldab,int *ipiv,int *info);
void    CGBTRS(char *trans,int *n,int *kl,int *ku,int *nrhs, MKL_Complex8 *ab,int *ldab,int *ipiv, MKL_Complex8 *b,int *ldb,int *info);
void    cgbtrs(char *trans,int *n,int *kl,int *ku,int *nrhs, MKL_Complex8 *ab,int *ldab,int *ipiv, MKL_Complex8 *b,int *ldb,int *info);
void    CGEBAK(char *job,char *side,int *n,int *ilo,int *ihi,float *scale,int *m, MKL_Complex8 *v,int *ldv,int *info);
void    cgebak(char *job,char *side,int *n,int *ilo,int *ihi,float *scale,int *m, MKL_Complex8 *v,int *ldv,int *info);
void    CGEBAL(char *job,int *n, MKL_Complex8 *a,int *lda,int *ilo,int *ihi,float *scale,int *info);
void    cgebal(char *job,int *n, MKL_Complex8 *a,int *lda,int *ilo,int *ihi,float *scale,int *info);
void    CGEBD2(int *m,int *n, MKL_Complex8 *a,int *lda,float *d,float *e, MKL_Complex8 *tauq, MKL_Complex8 *taup, MKL_Complex8 *work,int *info);
void    cgebd2(int *m,int *n, MKL_Complex8 *a,int *lda,float *d,float *e, MKL_Complex8 *tauq, MKL_Complex8 *taup, MKL_Complex8 *work,int *info);
void    CGEBRD(int *m,int *n, MKL_Complex8 *a,int *lda,float *d,float *e, MKL_Complex8 *tauq, MKL_Complex8 *taup, MKL_Complex8 *work,int *lwork,int *info);
void    cgebrd(int *m,int *n, MKL_Complex8 *a,int *lda,float *d,float *e, MKL_Complex8 *tauq, MKL_Complex8 *taup, MKL_Complex8 *work,int *lwork,int *info);
void    CGECON(char *norm,int *n, MKL_Complex8 *a,int *lda,float *anorm,float *rcond, MKL_Complex8 *work,float *rwork,int *info);
void    cgecon(char *norm,int *n, MKL_Complex8 *a,int *lda,float *anorm,float *rcond, MKL_Complex8 *work,float *rwork,int *info);
void    CGEEQU(int *m,int *n, MKL_Complex8 *a,int *lda,float *r,float *c,float *rowcnd,float *colcnd,float *amax,int *info);
void    cgeequ(int *m,int *n, MKL_Complex8 *a,int *lda,float *r,float *c,float *rowcnd,float *colcnd,float *amax,int *info);
void    CGEES(char *jobvs,char *sort,void *select,int *n, MKL_Complex8 *a,int *lda,int *sdim, MKL_Complex8 *w, MKL_Complex8 *vs,int *ldvs, MKL_Complex8 *work,int *lwork,float *rwork,void *bwork,int *info);
void    cgees(char *jobvs,char *sort,void *select,int *n, MKL_Complex8 *a,int *lda,int *sdim, MKL_Complex8 *w, MKL_Complex8 *vs,int *ldvs, MKL_Complex8 *work,int *lwork,float *rwork,void *bwork,int *info);
void    CGEESX(char *jobvs,char *sort,void *select,char *sense,int *n, MKL_Complex8 *a,int *lda,int *sdim, MKL_Complex8 *w, MKL_Complex8 *vs,int *ldvs,float *rconde,float *rcondv, MKL_Complex8 *work,int *lwork,float *rwork,void *bwork,int *info);
void    cgeesx(char *jobvs,char *sort,void *select,char *sense,int *n, MKL_Complex8 *a,int *lda,int *sdim, MKL_Complex8 *w, MKL_Complex8 *vs,int *ldvs,float *rconde,float *rcondv, MKL_Complex8 *work,int *lwork,float *rwork,void *bwork,int *info);
void    CGEEV(char *jobvl,char *jobvr,int *n, MKL_Complex8 *a,int *lda, MKL_Complex8 *w, MKL_Complex8 *vl,int *ldvl, MKL_Complex8 *vr,int *ldvr, MKL_Complex8 *work,int *lwork,float *rwork,int *info);
void    cgeev(char *jobvl,char *jobvr,int *n, MKL_Complex8 *a,int *lda, MKL_Complex8 *w, MKL_Complex8 *vl,int *ldvl, MKL_Complex8 *vr,int *ldvr, MKL_Complex8 *work,int *lwork,float *rwork,int *info);
void    CGEEVX(char *balanc,char *jobvl,char *jobvr,char *sense,int *n, MKL_Complex8 *a,int *lda, MKL_Complex8 *w, MKL_Complex8 *vl,int *ldvl, MKL_Complex8 *vr,int *ldvr,int *ilo,int *ihi,float *scale,float *abnrm,float *rconde,float *rcondv, MKL_Complex8 *work,int *lwork,float *rwork,int *info);
void    cgeevx(char *balanc,char *jobvl,char *jobvr,char *sense,int *n, MKL_Complex8 *a,int *lda, MKL_Complex8 *w, MKL_Complex8 *vl,int *ldvl, MKL_Complex8 *vr,int *ldvr,int *ilo,int *ihi,float *scale,float *abnrm,float *rconde,float *rcondv, MKL_Complex8 *work,int *lwork,float *rwork,int *info);
void    CGEGS(char *jobvsl,char *jobvsr,int *n, MKL_Complex8 *a,int *lda, MKL_Complex8 *b,int *ldb, MKL_Complex8 *alpha, MKL_Complex8 *beta, MKL_Complex8 *vsl,int *ldvsl, MKL_Complex8 *vsr,int *ldvsr, MKL_Complex8 *work,int *lwork,float *rwork,int *info);
void    cgegs(char *jobvsl,char *jobvsr,int *n, MKL_Complex8 *a,int *lda, MKL_Complex8 *b,int *ldb, MKL_Complex8 *alpha, MKL_Complex8 *beta, MKL_Complex8 *vsl,int *ldvsl, MKL_Complex8 *vsr,int *ldvsr, MKL_Complex8 *work,int *lwork,float *rwork,int *info);
void    CGEGV(char *jobvl,char *jobvr,int *n, MKL_Complex8 *a,int *lda, MKL_Complex8 *b,int *ldb, MKL_Complex8 *alpha, MKL_Complex8 *beta, MKL_Complex8 *vl,int *ldvl, MKL_Complex8 *vr,int *ldvr, MKL_Complex8 *work,int *lwork,float *rwork,int *info);
void    cgegv(char *jobvl,char *jobvr,int *n, MKL_Complex8 *a,int *lda, MKL_Complex8 *b,int *ldb, MKL_Complex8 *alpha, MKL_Complex8 *beta, MKL_Complex8 *vl,int *ldvl, MKL_Complex8 *vr,int *ldvr, MKL_Complex8 *work,int *lwork,float *rwork,int *info);
void    CGEHD2(int *n,int *ilo,int *ihi, MKL_Complex8 *a,int *lda, MKL_Complex8 *tau, MKL_Complex8 *work,int *info);
void    cgehd2(int *n,int *ilo,int *ihi, MKL_Complex8 *a,int *lda, MKL_Complex8 *tau, MKL_Complex8 *work,int *info);
void    CGEHRD(int *n,int *ilo,int *ihi, MKL_Complex8 *a,int *lda, MKL_Complex8 *tau, MKL_Complex8 *work,int *lwork,int *info);
void    cgehrd(int *n,int *ilo,int *ihi, MKL_Complex8 *a,int *lda, MKL_Complex8 *tau, MKL_Complex8 *work,int *lwork,int *info);
void    CGELQ2(int *m,int *n, MKL_Complex8 *a,int *lda, MKL_Complex8 *tau, MKL_Complex8 *work,int *info);
void    cgelq2(int *m,int *n, MKL_Complex8 *a,int *lda, MKL_Complex8 *tau, MKL_Complex8 *work,int *info);
void    CGELQF(int *m,int *n, MKL_Complex8 *a,int *lda, MKL_Complex8 *tau, MKL_Complex8 *work,int *lwork,int *info);
void    cgelqf(int *m,int *n, MKL_Complex8 *a,int *lda, MKL_Complex8 *tau, MKL_Complex8 *work,int *lwork,int *info);
void    CGELS(char *trans,int *m,int *n,int *nrhs, MKL_Complex8 *a,int *lda, MKL_Complex8 *b,int *ldb, MKL_Complex8 *work,int *lwork,int *info);
void    cgels(char *trans,int *m,int *n,int *nrhs, MKL_Complex8 *a,int *lda, MKL_Complex8 *b,int *ldb, MKL_Complex8 *work,int *lwork,int *info);
void    CGELSD(int *m,int *n,int *nrhs, MKL_Complex8 *a,int *lda, MKL_Complex8 *b,int *ldb,float *s,float *rcond,int *rank, MKL_Complex8 *work,int *lwork,float *rwork,int *iwork,int *info);
void    cgelsd(int *m,int *n,int *nrhs, MKL_Complex8 *a,int *lda, MKL_Complex8 *b,int *ldb,float *s,float *rcond,int *rank, MKL_Complex8 *work,int *lwork,float *rwork,int *iwork,int *info);
void    CGELSS(int *m,int *n,int *nrhs, MKL_Complex8 *a,int *lda, MKL_Complex8 *b,int *ldb,float *s,float *rcond,int *rank, MKL_Complex8 *work,int *lwork,float *rwork,int *info);
void    cgelss(int *m,int *n,int *nrhs, MKL_Complex8 *a,int *lda, MKL_Complex8 *b,int *ldb,float *s,float *rcond,int *rank, MKL_Complex8 *work,int *lwork,float *rwork,int *info);
void    CGELSX(int *m,int *n,int *nrhs, MKL_Complex8 *a,int *lda, MKL_Complex8 *b,int *ldb,int *jpvt,float *rcond,int *rank, MKL_Complex8 *work,float *rwork,int *info);
void    cgelsx(int *m,int *n,int *nrhs, MKL_Complex8 *a,int *lda, MKL_Complex8 *b,int *ldb,int *jpvt,float *rcond,int *rank, MKL_Complex8 *work,float *rwork,int *info);
void    CGELSY(int *m,int *n,int *nrhs, MKL_Complex8 *a,int *lda, MKL_Complex8 *b,int *ldb,int *jpvt,float *rcond,int *rank, MKL_Complex8 *work,int *lwork,float *rwork,int *info);
void    cgelsy(int *m,int *n,int *nrhs, MKL_Complex8 *a,int *lda, MKL_Complex8 *b,int *ldb,int *jpvt,float *rcond,int *rank, MKL_Complex8 *work,int *lwork,float *rwork,int *info);
void    CGEQL2(int *m,int *n, MKL_Complex8 *a,int *lda, MKL_Complex8 *tau, MKL_Complex8 *work,int *info);
void    cgeql2(int *m,int *n, MKL_Complex8 *a,int *lda, MKL_Complex8 *tau, MKL_Complex8 *work,int *info);
void    CGEQLF(int *m,int *n, MKL_Complex8 *a,int *lda, MKL_Complex8 *tau, MKL_Complex8 *work,int *lwork,int *info);
void    cgeqlf(int *m,int *n, MKL_Complex8 *a,int *lda, MKL_Complex8 *tau, MKL_Complex8 *work,int *lwork,int *info);