00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020 #ifndef QC_BLAS_H_
00021 #define QC_BLAS_H_
00022
00023
00024 #include "QCCommon.hpp"
00025
00026
00027
00028 # define CblasRowMajor
00029 # define CblasColMajor
00030 # define CblasNoTrans "N"
00031 # define CblasTrans "T"
00032 # define CblasConjTrans "C"
00033 # define AtlasConj
00034 # define CblasUpper "U"
00035 # define CblasLower "L"
00036 # define CblasNonUnit
00037 # define CblasUnit
00038 # define CblasLeft
00039 # define CblasRight
00040
00041
00042 # define QCCBlas(blasFunc) F77_FUNC(blasFunc,blasFunc)
00043
00044
00045 BEGIN_C_DECLARATION
00046
00051 void QCCBlas(daxpy) (const int&, const QCFloat&, QCFloat*,
00052 const int&, QCFloat *, const int &);
00053
00054 void QCCBlas(dscal) (const int&, const QCFloat&,
00055 QCFloat*, const int&);
00056
00057 QCFloat QCCBlas(ddot) (const int&, QCFloat*,
00058 const int&, QCFloat*, const int&);
00059
00060 QCFloat QCCBlas(dswap) (const int&, QCFloat*,
00061 const int&, QCFloat*, const int&);
00062
00063 void QCCBlas(dgemm) (char *, char *,
00064 const int&, const int&, const int&,
00065 const QCFloat&, QCFloat*, const int&, QCFloat*,
00066 const int&, const QCFloat&, QCFloat*, const int&);
00067
00068 void QCCBlas(dsyrk) (char *, char *,
00069 const int&, const int&,
00070 const QCFloat&, QCFloat*, const int&,
00071 const QCFloat&, QCFloat*, const int&);
00072
00073
00074 END_C_DECLARATION
00075
00076
00077 #endif // QC_BLAS_H_