matvec_blas.h Source File

00001 
00014 /* This library is free software; you can redistribute it and/or
00015    modify it under the terms of the GNU Lesser General Public
00016    License as published by the Free Software Foundation; either
00017    version 2.1 of the License, or (at your option) any later version.
00018 
00019    This library is distributed in the hope that it will be useful,
00020    but WITHOUT ANY WARRANTY; without even the implied warranty of
00021    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
00022    Lesser General Public License for more details.
00023 
00024    You should have received a copy of the GNU Lesser General Public
00025    License along with this library; if not, write to the Free Software
00026    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
00027 */
00028 
00029 #ifndef _GAN_MATVEC_BLAS_H
00030 #define _GAN_MATVEC_BLAS_H
00031 
00032 #include <gandalf/common/misc_defs.h>
00033 #include <gandalf/linalg/mat_gen.h>
00034 #include <gandalf/linalg/mat_square.h>
00035 #include <gandalf/linalg/vec_gen.h>
00036 
00037 #ifdef __cplusplus
00038 extern "C" {
00039 #endif
00040 
00056  Gan_Vector *gan_blas_axpy ( Gan_Vector *y,
00057                             double a, const Gan_Vector *x );
00058  Gan_Vector *gan_blas_gemv ( Gan_Vector *y, double alpha,
00059                             const Gan_Matrix *A, Gan_TposeFlag A_tr,
00060                             const Gan_Vector *x, double beta );
00061  Gan_Vector *gan_blas_scal ( Gan_Vector *x, double a );
00062  Gan_Matrix *gan_blas_ger ( Gan_Matrix *A, const Gan_Vector *x,
00063                            const Gan_Vector *y, double a );
00064  Gan_SquMatrix *gan_blas_spr ( Gan_SquMatrix *A,
00065                               const Gan_Vector *x, double a );
00066  Gan_Matrix *gan_blas_gemm ( Gan_Matrix *C, double alpha,
00067                             const Gan_Matrix *A, Gan_TposeFlag A_tr,
00068                             const Gan_Matrix *B, Gan_TposeFlag B_tr,
00069                             double beta );
00070 
00083 #ifdef __cplusplus
00084 }
00085 #endif
00086 
00087 #endif /* #ifndef _GAN_MATVEC_BLAS_H */