00001 extern "C" {
00002
00003
00004 void drot_( const long &N, double *x, const long &incx, double *y,
00005 const long &incy, const double &c, const double &s );
00006
00007 void dswap_( const long &N, double *x, const long &incx, double *y,
00008 const long &incy );
00009
00010 void dscal_( const long &N, const double &alpha, double *x,
00011 const long &incx );
00012
00013 void dcopy_( const long &N, const double *x, const long &incx,
00014 double *y, const long &incy );
00015
00016 void daxpy_( const long &N, const double &alpha, const double *x,
00017 const long &incx, double *y, const long &incy );
00018
00019 double ddot_( const long &N, const double *x, const long &incx,
00020 const double *y, const long &incy );
00021
00022 double dnrm2_( const long &N, const double *x, const long &incx );
00023
00024 double dasum_( const long &N, const double *x, const long &incx );
00025
00026 long idamax_( const long &N, const double *x, const long &incx );
00027
00028
00029
00030 void dgemv_( const char &trans, const long &M, const long &N,
00031 const double &alpha, const double *a, const long &lda,
00032 const double *x, const long &incx, const double &beta,
00033 double *y, const long &incy );
00034
00035 void dgbmv_( const char &trans, const long &M, const long &N,
00036 const long &KL, const long &KU, const double &alpha,
00037 const double *a, const long &lda, const double *x,
00038 const long &incx, const double &beta, double *y,
00039 const long &incy );
00040
00041 void dsymv_( const char &uplo, const long &N, const double &alpha,
00042 const double *a, const long &lda, const double *x,
00043 const long &incx, const double &beta, double *y,
00044 const long &incy );
00045
00046 void dsbmv_( const char &uplo, const long &N, const long &k,
00047 const double &alpha, const double *a, const long &lda,
00048 const double *x, const long &incx, const double &beta,
00049 double *y, const long &incy );
00050
00051 void dspmv_( const char &uplo, const long &N, const double &alpha,
00052 const double *ap, const double *x, const long &incx,
00053 const double &beta, double *y, const long &incy );
00054
00055
00056 void dtrmv_( const char &uplo, const char &trans, const char &diag,
00057 const long &N, const double *a, const long &lda,
00058 double *x, const long &incx );
00059
00060 void dtbmv_( const char &uplo, const char &trans, const char &diag,
00061 const long &N, const long &k, const double *a,
00062 const long &lda, double *x, const long &incx );
00063
00064 void dtpmv_( const char &uplo, const char &trans, const char &diag,
00065 const long &N, const double *ap, double *x,
00066 const long &incx );
00067
00068
00069 void dtrsv_( const char &uplo, const char &trans, const char &diag,
00070 const long &N, const double *a, const long &lda, double *x,
00071 const long &incx );
00072
00073 void dtbsv_( const char &uplo, const char &trans, const char &diag,
00074 const long &N, const long &k, const double *a,
00075 const long &lda, double *x, const long &incx );
00076
00077 void dtpsv_( const char &uplo, const char &trans, const char &diag,
00078 const long &N, const double *ap, double *x,
00079 const long &incx );
00080
00081
00082 void dger_( const long &M, const long &N, const double &alpha,
00083 const double *x, const long &incx, const double *y,
00084 const long &incy, double *a, const long &lda );
00085
00086 void dsyr_( const char &uplo, const long &N, const double &alpha,
00087 const double *x, const long &incx, double *a,
00088 const long &lda );
00089
00090
00091 void dspr_( const char &uplo, const long &N, const double &alpha,
00092 const double *x, const long &incx, double *ap );
00093
00094
00095 void dsyr2_( const char &uplo, const long &N, const double &alpha,
00096 const double *x, const long &incx, const double *y,
00097 const long &incy, double *a, const long &lda );
00098
00099
00100 void dspr2_( const char &uplo, const long &N, const double &alpha,
00101 const double *x, const long &incx, const double *y,
00102 const long &incy, double *ap );
00103
00104
00105
00106 void dgemm_( const char &transa, const char &transb, const long &M,
00107 const long &N, const long &k, const double &alpha,
00108 const double *a, const long &lda, const double *b,
00109 const long &ldb, const double &beta, double *c,
00110 const long &ldc );
00111
00112
00113 void dsymm_( const char &side, const char &uplo, const long &M,
00114 const long &N, const double &alpha, const double *a,
00115 const long &lda, const double *b, const long &ldb,
00116 const double &beta, double *c, const long &ldc );
00117
00118
00119 void dsyrk_( const char &uplo, const char &trans, const long &N,
00120 const long &k, const double &alpha, const double *a,
00121 const long &lda, const double &beta, double *c,
00122 const long &ldc );
00123
00124
00125 void dsyr2k_( const char &uplo, const char &trans, const long &N,
00126 const long &k, const double &alpha, const double *a,
00127 const long &lda, const double *b, const long &ldb,
00128 const double &beta, double *c, const long &ldc );
00129
00130 void dtrmm_( const char &side, const char &uplo, const char &transa,
00131 const char &diag, const long &M, const long &N,
00132 const double &alpha, const double *a, const long &lda,
00133 double *b, const long &ldb );
00134
00135
00136 void dtrsm_( const char &side, const char &uplo, const char &transa,
00137 const char &diag, const long &M, const long &N,
00138 const double &alpha, const double *a, const long &lda,
00139 double *b, const long &ldb );
00140 }