QCBlas.hpp

Go to the documentation of this file.
00001 //*****************************************************************************//
00002 //                                                                             //
00003 //   Copyright (c) 2001                                                        //
00004 //      INRIA                                                                  //
00005 //      54600 VILLERS LES NANCY                                                //
00006 //      France                                                                 //
00007 //                                                                             //
00008 //*****************************************************************************//
00009 //                                                                             //
00010 //               *** NOTICE OF PROPRIETARY INFORMATION ***                     //
00011 //                                                                             //
00012 // The information contained in this file is considered proprietary and the    //
00013 // exclusive property of  INRIA. This information may not be disclosed,        //
00014 // duplicated or used, in whole or in part, for  any purpose  whatsoever       //
00015 // without express written authorization from INRIA                            //
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_

Generated on Sat Jan 28 21:07:25 2006 for QC++ by  doxygen 1.4.4