| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990 |
- #ifndef protos_lapack__h
- #define protos_lapack__h
- // prototypes pour lapack et classe d'exception associée.
- namespace lapack_c
- {
- //! prototypes for lapack routines.
- extern "C"{
- void dgetrf_(int *n,int *m,double* a,int *lda,int *ipiv,int *info);
- }
- extern "C"{
- void zgetrf_(int *n,int *m,double* a,int *lda,int *ipiv,int *info);
- }
- extern "C"{
- void dgetrs_(const char *s,int *N,int *NRHS,double *A,int *LDA,int *IPIV,
- double *B,int *LDB,int *INFO );
- }
- extern "C"{
- void zgetrs_(const char *s,int *N,int *NRHS,double *A,int *LDA,int *IPIV,
- double *B,int *LDB,int *INFO );
- }
- extern "C"{
- void dgbtrf_(int *n,int *m,int *k1,int *k2,
- double* a,int *lda,int *ipiv,int *info);
- }
- extern "C"{
- void zgbtrf_(int *n,int *m,int *k1,int *k2,
- double* a,int *lda,int *ipiv,int *info);
- }
- extern "C"{
- void dgbtrs_(const char *s,int *N,int *k1,int *k2,
- int *NRHS,double *A,int *LDA,int *IPIV,
- double *B,int *LDB,int *INFO );
- }
- extern "C"{
- void zgbtrs_(const char *s,int *N,int *k1,int *k2,
- int *NRHS,double *A,int *LDA,int *IPIV,
- double *B,int *LDB,int *INFO );
- }
- extern "C"{
- void dlarnv_(int *idist,int iseed[],int *n,double *x);
- }
- extern "C"{
- void dgehrd_(int *n,int *ilo,int *ihi,double *a,int *lda,double tau[],
- double work[],int *lwork,int *info);
- }
- extern "C"{
- void dorghr_(int *n,int *ilo,int *ihi,double *a,int *lda,double tau[],
- double work[],int *lwork,int *info);
- }
- extern "C"{
- void dgeev_(const char *jobvl,const char *jobvr,int * n,double *a,
- int *lda,double *WR, double *WI,double *VL,int *LDVL,
- double *VR,int *LDVR,
- double *WORK,int *LWORK,int *INFO );
- }
- extern "C"{
- void dgesv_(int *n,int *nrhs,double *A,int *lda,int *ipiv, double *B,
- int *ldb,int *info);
- }
- extern "C"{
- void dgbmv_(const char *trans,int *m,int *n,int *kl,int *ku,double *alpha,
- double *A,int *lda,double *X,int *incx,double *beta,
- double *y, int *incy);
- }
- extern "C"{
- void dgemv_(const char *trans,int *m,int *n,double *alpha, double *A,
- int *lda,double *X,int *incx,double *beta,
- double *y, int *incy);
- }
- extern "C"{
- double dlange_(const char *norm,int *m,int *n, double *A,
- int *lda,double *work);
- }
- extern "C"{
- void dgecon_(const char *norm,int *n,double *a,int *lda,double *lanorme,
- double *rcond,double *work, int *iwork,int *info);
-
- }
- struct LapackException
- {
- int Info;
- LapackException(int info):Info(info){}
- int what(){return Info;}
- };
-
- }
- #endif
|
