00001 #ifndef _lin_alg_intf_
00002 #define _lin_alg_intf_
00003
00004 #ifdef __cplusplus
00005 extern "C" {
00006 #endif
00007
00008
00009 #ifdef WITHOUT_
00010 #define daxpy_ daxpy
00011 #define dcopy_ dcopy
00012 #define ddot_ ddot
00013 #define dnrm2_ dnrm2
00014 #define drot_ drot
00015 #define drotg_ drotg
00016 #define dscal_ dscal
00017 #define dgemv_ dgemv
00018 #define dtrsv_ dtrsv
00019 #define dgetrf_ dgetrf
00020 #define dgetrs_ dgetrs
00021 #endif
00022
00023
00024 void daxpy_(int *n,double *alpha,double *x,int *incx,double *y,int *incy);
00025 void dcopy_(int *n,double *x,int *incx,double *y,int *incy);
00026 double ddot_(int *n,double *x,int *incx,double *y,int *incy);
00027 double dnrm2_(int *n,double *x,int *incx);
00028 void drot_(int *n,double *x,int *incx,double *y,int *incy,double *c,double *s);
00029 void drotg_(double *a,double *b,double *c,double *s);
00030 void dscal_(int *n,double *a,double *x,int *incx);
00031 void DAXPY_(int *n,double *alpha,double *x,int *incx,double *y,int *incy);
00032 void DCOPY_(int *n,double *x,int *incx,double *y,int *incy);
00033 double DDOT_(int *n,double *x,int *incx,double *y,int *incy);
00034 double DNRM2_(int *n,double *x,int *incx);
00035 void DROT_(int *n,double *x,int *incx,double *y,int *incy,double *c,double *s);
00036 void DROTG_(double *a,double *b,double *c,double *s);
00037 void DSCAL_(int *n,double *a,double *x,int *incx);
00038
00039
00040 void dgemv_(char *trans,int *m,int *n,double *alpha,double *a,int *lda,double *x,int *incx,double *beta,double *y,int *incy);
00041 void dtrsv_(char *uplo,char *trans,char *diag,int *n,double *a,int *lda,double *x,int *incx);
00042 void DGEMV_(char *trans,int *m,int *n,double *alpha,double *a,int *lda,double *x,int *incx,double *beta,double *y,int *incy);
00043 void DTRSV_(char *uplo,char *trans,char *diag,int *n,double *a,int *lda,double *x,int *incx);
00044
00045
00046 void DGETRF_(int *m,int *n,double *a,int *lda,int *ipiv,int *info);
00047 void dgetrf_(int *m,int *n,double *a,int *lda,int *ipiv,int *info);
00048 void DGETRS_(char *trans,int *n,int *nrhs,double *a,int *lda,int *ipiv,double *b,int *ldb,int *info);
00049 void dgetrs_(char *trans,int *n,int *nrhs,double *a,int *lda,int *ipiv,double *b,int *ldb,int *info);
00050
00051 #ifdef __cplusplus
00052 }
00053 #endif
00054
00055 #endif
