|
Packit |
67cb25 |
/* blas/gsl_blas.h
|
|
Packit |
67cb25 |
*
|
|
Packit |
67cb25 |
* Copyright (C) 1996, 1997, 1998, 1999, 2000 Gerard Jungman
|
|
Packit |
67cb25 |
*
|
|
Packit |
67cb25 |
* This program is free software; you can redistribute it and/or modify
|
|
Packit |
67cb25 |
* it under the terms of the GNU General Public License as published by
|
|
Packit |
67cb25 |
* the Free Software Foundation; either version 3 of the License, or (at
|
|
Packit |
67cb25 |
* your option) any later version.
|
|
Packit |
67cb25 |
*
|
|
Packit |
67cb25 |
* This program is distributed in the hope that it will be useful, but
|
|
Packit |
67cb25 |
* WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
Packit |
67cb25 |
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
Packit |
67cb25 |
* General Public License for more details.
|
|
Packit |
67cb25 |
*
|
|
Packit |
67cb25 |
* You should have received a copy of the GNU General Public License
|
|
Packit |
67cb25 |
* along with this program; if not, write to the Free Software
|
|
Packit |
67cb25 |
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
|
|
Packit |
67cb25 |
*/
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
/*
|
|
Packit |
67cb25 |
* Author: G. Jungman
|
|
Packit |
67cb25 |
*/
|
|
Packit |
67cb25 |
#ifndef __GSL_BLAS_H__
|
|
Packit |
67cb25 |
#define __GSL_BLAS_H__
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
#include <gsl/gsl_vector.h>
|
|
Packit |
67cb25 |
#include <gsl/gsl_matrix.h>
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
#include <gsl/gsl_blas_types.h>
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
#undef __BEGIN_DECLS
|
|
Packit |
67cb25 |
#undef __END_DECLS
|
|
Packit |
67cb25 |
#ifdef __cplusplus
|
|
Packit |
67cb25 |
# define __BEGIN_DECLS extern "C" {
|
|
Packit |
67cb25 |
# define __END_DECLS }
|
|
Packit |
67cb25 |
#else
|
|
Packit |
67cb25 |
# define __BEGIN_DECLS /* empty */
|
|
Packit |
67cb25 |
# define __END_DECLS /* empty */
|
|
Packit |
67cb25 |
#endif
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
__BEGIN_DECLS
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
/* ========================================================================
|
|
Packit |
67cb25 |
* Level 1
|
|
Packit |
67cb25 |
* ========================================================================
|
|
Packit |
67cb25 |
*/
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_sdsdot (float alpha,
|
|
Packit |
67cb25 |
const gsl_vector_float * X,
|
|
Packit |
67cb25 |
const gsl_vector_float * Y,
|
|
Packit |
67cb25 |
float * result
|
|
Packit |
67cb25 |
);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_dsdot (const gsl_vector_float * X,
|
|
Packit |
67cb25 |
const gsl_vector_float * Y,
|
|
Packit |
67cb25 |
double * result
|
|
Packit |
67cb25 |
);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_sdot (const gsl_vector_float * X,
|
|
Packit |
67cb25 |
const gsl_vector_float * Y,
|
|
Packit |
67cb25 |
float * result
|
|
Packit |
67cb25 |
);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_ddot (const gsl_vector * X,
|
|
Packit |
67cb25 |
const gsl_vector * Y,
|
|
Packit |
67cb25 |
double * result
|
|
Packit |
67cb25 |
);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_cdotu (const gsl_vector_complex_float * X,
|
|
Packit |
67cb25 |
const gsl_vector_complex_float * Y,
|
|
Packit |
67cb25 |
gsl_complex_float * dotu);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_cdotc (const gsl_vector_complex_float * X,
|
|
Packit |
67cb25 |
const gsl_vector_complex_float * Y,
|
|
Packit |
67cb25 |
gsl_complex_float * dotc);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_zdotu (const gsl_vector_complex * X,
|
|
Packit |
67cb25 |
const gsl_vector_complex * Y,
|
|
Packit |
67cb25 |
gsl_complex * dotu);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_zdotc (const gsl_vector_complex * X,
|
|
Packit |
67cb25 |
const gsl_vector_complex * Y,
|
|
Packit |
67cb25 |
gsl_complex * dotc);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
float gsl_blas_snrm2 (const gsl_vector_float * X);
|
|
Packit |
67cb25 |
float gsl_blas_sasum (const gsl_vector_float * X);
|
|
Packit |
67cb25 |
double gsl_blas_dnrm2 (const gsl_vector * X);
|
|
Packit |
67cb25 |
double gsl_blas_dasum (const gsl_vector * X);
|
|
Packit |
67cb25 |
float gsl_blas_scnrm2 (const gsl_vector_complex_float * X);
|
|
Packit |
67cb25 |
float gsl_blas_scasum (const gsl_vector_complex_float * X);
|
|
Packit |
67cb25 |
double gsl_blas_dznrm2 (const gsl_vector_complex * X);
|
|
Packit |
67cb25 |
double gsl_blas_dzasum (const gsl_vector_complex * X);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
CBLAS_INDEX_t gsl_blas_isamax (const gsl_vector_float * X);
|
|
Packit |
67cb25 |
CBLAS_INDEX_t gsl_blas_idamax (const gsl_vector * X);
|
|
Packit |
67cb25 |
CBLAS_INDEX_t gsl_blas_icamax (const gsl_vector_complex_float * X);
|
|
Packit |
67cb25 |
CBLAS_INDEX_t gsl_blas_izamax (const gsl_vector_complex * X);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_sswap (gsl_vector_float * X,
|
|
Packit |
67cb25 |
gsl_vector_float * Y);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_scopy (const gsl_vector_float * X,
|
|
Packit |
67cb25 |
gsl_vector_float * Y);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_saxpy (float alpha,
|
|
Packit |
67cb25 |
const gsl_vector_float * X,
|
|
Packit |
67cb25 |
gsl_vector_float * Y);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_dswap (gsl_vector * X,
|
|
Packit |
67cb25 |
gsl_vector * Y);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_dcopy (const gsl_vector * X,
|
|
Packit |
67cb25 |
gsl_vector * Y);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_daxpy (double alpha,
|
|
Packit |
67cb25 |
const gsl_vector * X,
|
|
Packit |
67cb25 |
gsl_vector * Y);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_cswap (gsl_vector_complex_float * X,
|
|
Packit |
67cb25 |
gsl_vector_complex_float * Y);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_ccopy (const gsl_vector_complex_float * X,
|
|
Packit |
67cb25 |
gsl_vector_complex_float * Y);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_caxpy (const gsl_complex_float alpha,
|
|
Packit |
67cb25 |
const gsl_vector_complex_float * X,
|
|
Packit |
67cb25 |
gsl_vector_complex_float * Y);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_zswap (gsl_vector_complex * X,
|
|
Packit |
67cb25 |
gsl_vector_complex * Y);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_zcopy (const gsl_vector_complex * X,
|
|
Packit |
67cb25 |
gsl_vector_complex * Y);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_zaxpy (const gsl_complex alpha,
|
|
Packit |
67cb25 |
const gsl_vector_complex * X,
|
|
Packit |
67cb25 |
gsl_vector_complex * Y);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_srotg (float a[], float b[], float c[], float s[]);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_srotmg (float d1[], float d2[], float b1[], float b2, float P[]);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_srot (gsl_vector_float * X,
|
|
Packit |
67cb25 |
gsl_vector_float * Y,
|
|
Packit |
67cb25 |
float c, float s);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_srotm (gsl_vector_float * X,
|
|
Packit |
67cb25 |
gsl_vector_float * Y,
|
|
Packit |
67cb25 |
const float P[]);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_drotg (double a[], double b[], double c[], double s[]);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_drotmg (double d1[], double d2[], double b1[],
|
|
Packit |
67cb25 |
double b2, double P[]);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_drot (gsl_vector * X,
|
|
Packit |
67cb25 |
gsl_vector * Y,
|
|
Packit |
67cb25 |
const double c, const double s);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_drotm (gsl_vector * X,
|
|
Packit |
67cb25 |
gsl_vector * Y,
|
|
Packit |
67cb25 |
const double P[]);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
void gsl_blas_sscal (float alpha, gsl_vector_float * X);
|
|
Packit |
67cb25 |
void gsl_blas_dscal (double alpha, gsl_vector * X);
|
|
Packit |
67cb25 |
void gsl_blas_cscal (const gsl_complex_float alpha, gsl_vector_complex_float * X);
|
|
Packit |
67cb25 |
void gsl_blas_zscal (const gsl_complex alpha, gsl_vector_complex * X);
|
|
Packit |
67cb25 |
void gsl_blas_csscal (float alpha, gsl_vector_complex_float * X);
|
|
Packit |
67cb25 |
void gsl_blas_zdscal (double alpha, gsl_vector_complex * X);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
/* ===========================================================================
|
|
Packit |
67cb25 |
* Level 2
|
|
Packit |
67cb25 |
* ===========================================================================
|
|
Packit |
67cb25 |
*/
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
/*
|
|
Packit |
67cb25 |
* Routines with standard 4 prefixes (S, D, C, Z)
|
|
Packit |
67cb25 |
*/
|
|
Packit |
67cb25 |
int gsl_blas_sgemv (CBLAS_TRANSPOSE_t TransA,
|
|
Packit |
67cb25 |
float alpha,
|
|
Packit |
67cb25 |
const gsl_matrix_float * A,
|
|
Packit |
67cb25 |
const gsl_vector_float * X,
|
|
Packit |
67cb25 |
float beta,
|
|
Packit |
67cb25 |
gsl_vector_float * Y);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_strmv (CBLAS_UPLO_t Uplo,
|
|
Packit |
67cb25 |
CBLAS_TRANSPOSE_t TransA, CBLAS_DIAG_t Diag,
|
|
Packit |
67cb25 |
const gsl_matrix_float * A,
|
|
Packit |
67cb25 |
gsl_vector_float * X);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_strsv (CBLAS_UPLO_t Uplo,
|
|
Packit |
67cb25 |
CBLAS_TRANSPOSE_t TransA, CBLAS_DIAG_t Diag,
|
|
Packit |
67cb25 |
const gsl_matrix_float * A,
|
|
Packit |
67cb25 |
gsl_vector_float * X);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_dgemv (CBLAS_TRANSPOSE_t TransA,
|
|
Packit |
67cb25 |
double alpha,
|
|
Packit |
67cb25 |
const gsl_matrix * A,
|
|
Packit |
67cb25 |
const gsl_vector * X,
|
|
Packit |
67cb25 |
double beta,
|
|
Packit |
67cb25 |
gsl_vector * Y);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_dtrmv (CBLAS_UPLO_t Uplo,
|
|
Packit |
67cb25 |
CBLAS_TRANSPOSE_t TransA, CBLAS_DIAG_t Diag,
|
|
Packit |
67cb25 |
const gsl_matrix * A,
|
|
Packit |
67cb25 |
gsl_vector * X);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_dtrsv (CBLAS_UPLO_t Uplo,
|
|
Packit |
67cb25 |
CBLAS_TRANSPOSE_t TransA, CBLAS_DIAG_t Diag,
|
|
Packit |
67cb25 |
const gsl_matrix * A,
|
|
Packit |
67cb25 |
gsl_vector * X);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_cgemv (CBLAS_TRANSPOSE_t TransA,
|
|
Packit |
67cb25 |
const gsl_complex_float alpha,
|
|
Packit |
67cb25 |
const gsl_matrix_complex_float * A,
|
|
Packit |
67cb25 |
const gsl_vector_complex_float * X,
|
|
Packit |
67cb25 |
const gsl_complex_float beta,
|
|
Packit |
67cb25 |
gsl_vector_complex_float * Y);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_ctrmv (CBLAS_UPLO_t Uplo,
|
|
Packit |
67cb25 |
CBLAS_TRANSPOSE_t TransA, CBLAS_DIAG_t Diag,
|
|
Packit |
67cb25 |
const gsl_matrix_complex_float * A,
|
|
Packit |
67cb25 |
gsl_vector_complex_float * X);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_ctrsv (CBLAS_UPLO_t Uplo,
|
|
Packit |
67cb25 |
CBLAS_TRANSPOSE_t TransA, CBLAS_DIAG_t Diag,
|
|
Packit |
67cb25 |
const gsl_matrix_complex_float * A,
|
|
Packit |
67cb25 |
gsl_vector_complex_float * X);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_zgemv (CBLAS_TRANSPOSE_t TransA,
|
|
Packit |
67cb25 |
const gsl_complex alpha,
|
|
Packit |
67cb25 |
const gsl_matrix_complex * A,
|
|
Packit |
67cb25 |
const gsl_vector_complex * X,
|
|
Packit |
67cb25 |
const gsl_complex beta,
|
|
Packit |
67cb25 |
gsl_vector_complex * Y);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_ztrmv (CBLAS_UPLO_t Uplo,
|
|
Packit |
67cb25 |
CBLAS_TRANSPOSE_t TransA, CBLAS_DIAG_t Diag,
|
|
Packit |
67cb25 |
const gsl_matrix_complex * A,
|
|
Packit |
67cb25 |
gsl_vector_complex * X);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_ztrsv (CBLAS_UPLO_t Uplo,
|
|
Packit |
67cb25 |
CBLAS_TRANSPOSE_t TransA, CBLAS_DIAG_t Diag,
|
|
Packit |
67cb25 |
const gsl_matrix_complex * A,
|
|
Packit |
67cb25 |
gsl_vector_complex *X);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
/*
|
|
Packit |
67cb25 |
* Routines with S and D prefixes only
|
|
Packit |
67cb25 |
*/
|
|
Packit |
67cb25 |
int gsl_blas_ssymv (CBLAS_UPLO_t Uplo,
|
|
Packit |
67cb25 |
float alpha,
|
|
Packit |
67cb25 |
const gsl_matrix_float * A,
|
|
Packit |
67cb25 |
const gsl_vector_float * X,
|
|
Packit |
67cb25 |
float beta,
|
|
Packit |
67cb25 |
gsl_vector_float * Y);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_sger (float alpha,
|
|
Packit |
67cb25 |
const gsl_vector_float * X,
|
|
Packit |
67cb25 |
const gsl_vector_float * Y,
|
|
Packit |
67cb25 |
gsl_matrix_float * A);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_ssyr (CBLAS_UPLO_t Uplo,
|
|
Packit |
67cb25 |
float alpha,
|
|
Packit |
67cb25 |
const gsl_vector_float * X,
|
|
Packit |
67cb25 |
gsl_matrix_float * A);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_ssyr2 (CBLAS_UPLO_t Uplo,
|
|
Packit |
67cb25 |
float alpha,
|
|
Packit |
67cb25 |
const gsl_vector_float * X,
|
|
Packit |
67cb25 |
const gsl_vector_float * Y,
|
|
Packit |
67cb25 |
gsl_matrix_float * A);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_dsymv (CBLAS_UPLO_t Uplo,
|
|
Packit |
67cb25 |
double alpha,
|
|
Packit |
67cb25 |
const gsl_matrix * A,
|
|
Packit |
67cb25 |
const gsl_vector * X,
|
|
Packit |
67cb25 |
double beta,
|
|
Packit |
67cb25 |
gsl_vector * Y);
|
|
Packit |
67cb25 |
int gsl_blas_dger (double alpha,
|
|
Packit |
67cb25 |
const gsl_vector * X,
|
|
Packit |
67cb25 |
const gsl_vector * Y,
|
|
Packit |
67cb25 |
gsl_matrix * A);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_dsyr (CBLAS_UPLO_t Uplo,
|
|
Packit |
67cb25 |
double alpha,
|
|
Packit |
67cb25 |
const gsl_vector * X,
|
|
Packit |
67cb25 |
gsl_matrix * A);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_dsyr2 (CBLAS_UPLO_t Uplo,
|
|
Packit |
67cb25 |
double alpha,
|
|
Packit |
67cb25 |
const gsl_vector * X,
|
|
Packit |
67cb25 |
const gsl_vector * Y,
|
|
Packit |
67cb25 |
gsl_matrix * A);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
/*
|
|
Packit |
67cb25 |
* Routines with C and Z prefixes only
|
|
Packit |
67cb25 |
*/
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_chemv (CBLAS_UPLO_t Uplo,
|
|
Packit |
67cb25 |
const gsl_complex_float alpha,
|
|
Packit |
67cb25 |
const gsl_matrix_complex_float * A,
|
|
Packit |
67cb25 |
const gsl_vector_complex_float * X,
|
|
Packit |
67cb25 |
const gsl_complex_float beta,
|
|
Packit |
67cb25 |
gsl_vector_complex_float * Y);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_cgeru (const gsl_complex_float alpha,
|
|
Packit |
67cb25 |
const gsl_vector_complex_float * X,
|
|
Packit |
67cb25 |
const gsl_vector_complex_float * Y,
|
|
Packit |
67cb25 |
gsl_matrix_complex_float * A);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_cgerc (const gsl_complex_float alpha,
|
|
Packit |
67cb25 |
const gsl_vector_complex_float * X,
|
|
Packit |
67cb25 |
const gsl_vector_complex_float * Y,
|
|
Packit |
67cb25 |
gsl_matrix_complex_float * A);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_cher (CBLAS_UPLO_t Uplo,
|
|
Packit |
67cb25 |
float alpha,
|
|
Packit |
67cb25 |
const gsl_vector_complex_float * X,
|
|
Packit |
67cb25 |
gsl_matrix_complex_float * A);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_cher2 (CBLAS_UPLO_t Uplo,
|
|
Packit |
67cb25 |
const gsl_complex_float alpha,
|
|
Packit |
67cb25 |
const gsl_vector_complex_float * X,
|
|
Packit |
67cb25 |
const gsl_vector_complex_float * Y,
|
|
Packit |
67cb25 |
gsl_matrix_complex_float * A);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_zhemv (CBLAS_UPLO_t Uplo,
|
|
Packit |
67cb25 |
const gsl_complex alpha,
|
|
Packit |
67cb25 |
const gsl_matrix_complex * A,
|
|
Packit |
67cb25 |
const gsl_vector_complex * X,
|
|
Packit |
67cb25 |
const gsl_complex beta,
|
|
Packit |
67cb25 |
gsl_vector_complex * Y);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_zgeru (const gsl_complex alpha,
|
|
Packit |
67cb25 |
const gsl_vector_complex * X,
|
|
Packit |
67cb25 |
const gsl_vector_complex * Y,
|
|
Packit |
67cb25 |
gsl_matrix_complex * A);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_zgerc (const gsl_complex alpha,
|
|
Packit |
67cb25 |
const gsl_vector_complex * X,
|
|
Packit |
67cb25 |
const gsl_vector_complex * Y,
|
|
Packit |
67cb25 |
gsl_matrix_complex * A);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_zher (CBLAS_UPLO_t Uplo,
|
|
Packit |
67cb25 |
double alpha,
|
|
Packit |
67cb25 |
const gsl_vector_complex * X,
|
|
Packit |
67cb25 |
gsl_matrix_complex * A);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_zher2 (CBLAS_UPLO_t Uplo,
|
|
Packit |
67cb25 |
const gsl_complex alpha,
|
|
Packit |
67cb25 |
const gsl_vector_complex * X,
|
|
Packit |
67cb25 |
const gsl_vector_complex * Y,
|
|
Packit |
67cb25 |
gsl_matrix_complex * A);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
/*
|
|
Packit |
67cb25 |
* ===========================================================================
|
|
Packit |
67cb25 |
* Prototypes for level 3 BLAS
|
|
Packit |
67cb25 |
* ===========================================================================
|
|
Packit |
67cb25 |
*/
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
/*
|
|
Packit |
67cb25 |
* Routines with standard 4 prefixes (S, D, C, Z)
|
|
Packit |
67cb25 |
*/
|
|
Packit |
67cb25 |
int gsl_blas_sgemm (CBLAS_TRANSPOSE_t TransA,
|
|
Packit |
67cb25 |
CBLAS_TRANSPOSE_t TransB,
|
|
Packit |
67cb25 |
float alpha,
|
|
Packit |
67cb25 |
const gsl_matrix_float * A,
|
|
Packit |
67cb25 |
const gsl_matrix_float * B,
|
|
Packit |
67cb25 |
float beta,
|
|
Packit |
67cb25 |
gsl_matrix_float * C);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_ssymm (CBLAS_SIDE_t Side, CBLAS_UPLO_t Uplo,
|
|
Packit |
67cb25 |
float alpha,
|
|
Packit |
67cb25 |
const gsl_matrix_float * A,
|
|
Packit |
67cb25 |
const gsl_matrix_float * B,
|
|
Packit |
67cb25 |
float beta,
|
|
Packit |
67cb25 |
gsl_matrix_float * C);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_ssyrk (CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t Trans,
|
|
Packit |
67cb25 |
float alpha,
|
|
Packit |
67cb25 |
const gsl_matrix_float * A,
|
|
Packit |
67cb25 |
float beta,
|
|
Packit |
67cb25 |
gsl_matrix_float * C);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_ssyr2k (CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t Trans,
|
|
Packit |
67cb25 |
float alpha,
|
|
Packit |
67cb25 |
const gsl_matrix_float * A,
|
|
Packit |
67cb25 |
const gsl_matrix_float * B,
|
|
Packit |
67cb25 |
float beta,
|
|
Packit |
67cb25 |
gsl_matrix_float * C);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_strmm (CBLAS_SIDE_t Side,
|
|
Packit |
67cb25 |
CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t TransA,
|
|
Packit |
67cb25 |
CBLAS_DIAG_t Diag,
|
|
Packit |
67cb25 |
float alpha,
|
|
Packit |
67cb25 |
const gsl_matrix_float * A,
|
|
Packit |
67cb25 |
gsl_matrix_float * B);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_strsm (CBLAS_SIDE_t Side,
|
|
Packit |
67cb25 |
CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t TransA,
|
|
Packit |
67cb25 |
CBLAS_DIAG_t Diag,
|
|
Packit |
67cb25 |
float alpha,
|
|
Packit |
67cb25 |
const gsl_matrix_float * A,
|
|
Packit |
67cb25 |
gsl_matrix_float * B);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_dgemm (CBLAS_TRANSPOSE_t TransA,
|
|
Packit |
67cb25 |
CBLAS_TRANSPOSE_t TransB,
|
|
Packit |
67cb25 |
double alpha,
|
|
Packit |
67cb25 |
const gsl_matrix * A,
|
|
Packit |
67cb25 |
const gsl_matrix * B,
|
|
Packit |
67cb25 |
double beta,
|
|
Packit |
67cb25 |
gsl_matrix * C);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_dsymm (CBLAS_SIDE_t Side,
|
|
Packit |
67cb25 |
CBLAS_UPLO_t Uplo,
|
|
Packit |
67cb25 |
double alpha,
|
|
Packit |
67cb25 |
const gsl_matrix * A,
|
|
Packit |
67cb25 |
const gsl_matrix * B,
|
|
Packit |
67cb25 |
double beta,
|
|
Packit |
67cb25 |
gsl_matrix * C);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_dsyrk (CBLAS_UPLO_t Uplo,
|
|
Packit |
67cb25 |
CBLAS_TRANSPOSE_t Trans,
|
|
Packit |
67cb25 |
double alpha,
|
|
Packit |
67cb25 |
const gsl_matrix * A,
|
|
Packit |
67cb25 |
double beta,
|
|
Packit |
67cb25 |
gsl_matrix * C);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_dsyr2k (CBLAS_UPLO_t Uplo,
|
|
Packit |
67cb25 |
CBLAS_TRANSPOSE_t Trans,
|
|
Packit |
67cb25 |
double alpha,
|
|
Packit |
67cb25 |
const gsl_matrix * A,
|
|
Packit |
67cb25 |
const gsl_matrix * B,
|
|
Packit |
67cb25 |
double beta,
|
|
Packit |
67cb25 |
gsl_matrix * C);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_dtrmm (CBLAS_SIDE_t Side,
|
|
Packit |
67cb25 |
CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t TransA,
|
|
Packit |
67cb25 |
CBLAS_DIAG_t Diag,
|
|
Packit |
67cb25 |
double alpha,
|
|
Packit |
67cb25 |
const gsl_matrix * A,
|
|
Packit |
67cb25 |
gsl_matrix * B);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_dtrsm (CBLAS_SIDE_t Side,
|
|
Packit |
67cb25 |
CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t TransA,
|
|
Packit |
67cb25 |
CBLAS_DIAG_t Diag,
|
|
Packit |
67cb25 |
double alpha,
|
|
Packit |
67cb25 |
const gsl_matrix * A,
|
|
Packit |
67cb25 |
gsl_matrix * B);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_cgemm (CBLAS_TRANSPOSE_t TransA,
|
|
Packit |
67cb25 |
CBLAS_TRANSPOSE_t TransB,
|
|
Packit |
67cb25 |
const gsl_complex_float alpha,
|
|
Packit |
67cb25 |
const gsl_matrix_complex_float * A,
|
|
Packit |
67cb25 |
const gsl_matrix_complex_float * B,
|
|
Packit |
67cb25 |
const gsl_complex_float beta,
|
|
Packit |
67cb25 |
gsl_matrix_complex_float * C);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_csymm (CBLAS_SIDE_t Side,
|
|
Packit |
67cb25 |
CBLAS_UPLO_t Uplo,
|
|
Packit |
67cb25 |
const gsl_complex_float alpha,
|
|
Packit |
67cb25 |
const gsl_matrix_complex_float * A,
|
|
Packit |
67cb25 |
const gsl_matrix_complex_float * B,
|
|
Packit |
67cb25 |
const gsl_complex_float beta,
|
|
Packit |
67cb25 |
gsl_matrix_complex_float * C);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_csyrk (CBLAS_UPLO_t Uplo,
|
|
Packit |
67cb25 |
CBLAS_TRANSPOSE_t Trans,
|
|
Packit |
67cb25 |
const gsl_complex_float alpha,
|
|
Packit |
67cb25 |
const gsl_matrix_complex_float * A,
|
|
Packit |
67cb25 |
const gsl_complex_float beta,
|
|
Packit |
67cb25 |
gsl_matrix_complex_float * C);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_csyr2k (CBLAS_UPLO_t Uplo,
|
|
Packit |
67cb25 |
CBLAS_TRANSPOSE_t Trans,
|
|
Packit |
67cb25 |
const gsl_complex_float alpha,
|
|
Packit |
67cb25 |
const gsl_matrix_complex_float * A,
|
|
Packit |
67cb25 |
const gsl_matrix_complex_float * B,
|
|
Packit |
67cb25 |
const gsl_complex_float beta,
|
|
Packit |
67cb25 |
gsl_matrix_complex_float * C);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_ctrmm (CBLAS_SIDE_t Side,
|
|
Packit |
67cb25 |
CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t TransA,
|
|
Packit |
67cb25 |
CBLAS_DIAG_t Diag,
|
|
Packit |
67cb25 |
const gsl_complex_float alpha,
|
|
Packit |
67cb25 |
const gsl_matrix_complex_float * A,
|
|
Packit |
67cb25 |
gsl_matrix_complex_float * B);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_ctrsm (CBLAS_SIDE_t Side,
|
|
Packit |
67cb25 |
CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t TransA,
|
|
Packit |
67cb25 |
CBLAS_DIAG_t Diag,
|
|
Packit |
67cb25 |
const gsl_complex_float alpha,
|
|
Packit |
67cb25 |
const gsl_matrix_complex_float * A,
|
|
Packit |
67cb25 |
gsl_matrix_complex_float * B);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_zgemm (CBLAS_TRANSPOSE_t TransA,
|
|
Packit |
67cb25 |
CBLAS_TRANSPOSE_t TransB,
|
|
Packit |
67cb25 |
const gsl_complex alpha,
|
|
Packit |
67cb25 |
const gsl_matrix_complex * A,
|
|
Packit |
67cb25 |
const gsl_matrix_complex * B,
|
|
Packit |
67cb25 |
const gsl_complex beta,
|
|
Packit |
67cb25 |
gsl_matrix_complex * C);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_zsymm (CBLAS_SIDE_t Side,
|
|
Packit |
67cb25 |
CBLAS_UPLO_t Uplo,
|
|
Packit |
67cb25 |
const gsl_complex alpha,
|
|
Packit |
67cb25 |
const gsl_matrix_complex * A,
|
|
Packit |
67cb25 |
const gsl_matrix_complex * B,
|
|
Packit |
67cb25 |
const gsl_complex beta,
|
|
Packit |
67cb25 |
gsl_matrix_complex * C);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_zsyrk (CBLAS_UPLO_t Uplo,
|
|
Packit |
67cb25 |
CBLAS_TRANSPOSE_t Trans,
|
|
Packit |
67cb25 |
const gsl_complex alpha,
|
|
Packit |
67cb25 |
const gsl_matrix_complex * A,
|
|
Packit |
67cb25 |
const gsl_complex beta,
|
|
Packit |
67cb25 |
gsl_matrix_complex * C);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_zsyr2k (CBLAS_UPLO_t Uplo,
|
|
Packit |
67cb25 |
CBLAS_TRANSPOSE_t Trans,
|
|
Packit |
67cb25 |
const gsl_complex alpha,
|
|
Packit |
67cb25 |
const gsl_matrix_complex * A,
|
|
Packit |
67cb25 |
const gsl_matrix_complex * B,
|
|
Packit |
67cb25 |
const gsl_complex beta,
|
|
Packit |
67cb25 |
gsl_matrix_complex *C);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_ztrmm (CBLAS_SIDE_t Side,
|
|
Packit |
67cb25 |
CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t TransA,
|
|
Packit |
67cb25 |
CBLAS_DIAG_t Diag,
|
|
Packit |
67cb25 |
const gsl_complex alpha,
|
|
Packit |
67cb25 |
const gsl_matrix_complex * A,
|
|
Packit |
67cb25 |
gsl_matrix_complex * B);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_ztrsm (CBLAS_SIDE_t Side,
|
|
Packit |
67cb25 |
CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t TransA,
|
|
Packit |
67cb25 |
CBLAS_DIAG_t Diag,
|
|
Packit |
67cb25 |
const gsl_complex alpha,
|
|
Packit |
67cb25 |
const gsl_matrix_complex * A,
|
|
Packit |
67cb25 |
gsl_matrix_complex * B);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
/*
|
|
Packit |
67cb25 |
* Routines with prefixes C and Z only
|
|
Packit |
67cb25 |
*/
|
|
Packit |
67cb25 |
int gsl_blas_chemm (CBLAS_SIDE_t Side,
|
|
Packit |
67cb25 |
CBLAS_UPLO_t Uplo,
|
|
Packit |
67cb25 |
const gsl_complex_float alpha,
|
|
Packit |
67cb25 |
const gsl_matrix_complex_float * A,
|
|
Packit |
67cb25 |
const gsl_matrix_complex_float * B,
|
|
Packit |
67cb25 |
const gsl_complex_float beta,
|
|
Packit |
67cb25 |
gsl_matrix_complex_float * C);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_cherk (CBLAS_UPLO_t Uplo,
|
|
Packit |
67cb25 |
CBLAS_TRANSPOSE_t Trans,
|
|
Packit |
67cb25 |
float alpha,
|
|
Packit |
67cb25 |
const gsl_matrix_complex_float * A,
|
|
Packit |
67cb25 |
float beta,
|
|
Packit |
67cb25 |
gsl_matrix_complex_float * C);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_cher2k (CBLAS_UPLO_t Uplo,
|
|
Packit |
67cb25 |
CBLAS_TRANSPOSE_t Trans,
|
|
Packit |
67cb25 |
const gsl_complex_float alpha,
|
|
Packit |
67cb25 |
const gsl_matrix_complex_float * A,
|
|
Packit |
67cb25 |
const gsl_matrix_complex_float * B,
|
|
Packit |
67cb25 |
float beta,
|
|
Packit |
67cb25 |
gsl_matrix_complex_float * C);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_zhemm (CBLAS_SIDE_t Side,
|
|
Packit |
67cb25 |
CBLAS_UPLO_t Uplo,
|
|
Packit |
67cb25 |
const gsl_complex alpha,
|
|
Packit |
67cb25 |
const gsl_matrix_complex * A,
|
|
Packit |
67cb25 |
const gsl_matrix_complex * B,
|
|
Packit |
67cb25 |
const gsl_complex beta,
|
|
Packit |
67cb25 |
gsl_matrix_complex * C);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_zherk (CBLAS_UPLO_t Uplo,
|
|
Packit |
67cb25 |
CBLAS_TRANSPOSE_t Trans,
|
|
Packit |
67cb25 |
double alpha,
|
|
Packit |
67cb25 |
const gsl_matrix_complex * A,
|
|
Packit |
67cb25 |
double beta,
|
|
Packit |
67cb25 |
gsl_matrix_complex * C);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int gsl_blas_zher2k (CBLAS_UPLO_t Uplo,
|
|
Packit |
67cb25 |
CBLAS_TRANSPOSE_t Trans,
|
|
Packit |
67cb25 |
const gsl_complex alpha,
|
|
Packit |
67cb25 |
const gsl_matrix_complex * A,
|
|
Packit |
67cb25 |
const gsl_matrix_complex * B,
|
|
Packit |
67cb25 |
double beta,
|
|
Packit |
67cb25 |
gsl_matrix_complex * C);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
__END_DECLS
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
#endif /* __GSL_BLAS_H__ */
|