2
// Copyright (C) 2002, 2003 Si-Lab b.v.b.a and Toon Knapen
4
// Distributed under the Boost Software License, Version 1.0.
5
// (See accompanying file LICENSE_1_0.txt or copy at
6
// http://www.boost.org/LICENSE_1_0.txt)
9
#ifndef BOOST_NUMERIC_BINDINGS_BLAS_BLAS_NAMES_H
10
#define BOOST_NUMERIC_BINDINGS_BLAS_BLAS_NAMES_H
12
#include <boost/numeric/bindings/traits/fortran.h>
17
#define BLAS_SSCAL FORTRAN_ID( sscal )
18
#define BLAS_DSCAL FORTRAN_ID( dscal )
19
#define BLAS_CSCAL FORTRAN_ID( cscal )
20
#define BLAS_ZSCAL FORTRAN_ID( zscal )
22
#define BLAS_SAXPY FORTRAN_ID( saxpy )
23
#define BLAS_DAXPY FORTRAN_ID( daxpy )
24
#define BLAS_CAXPY FORTRAN_ID( caxpy )
25
#define BLAS_ZAXPY FORTRAN_ID( zaxpy )
27
#define BLAS_SDOT FORTRAN_ID( sdot )
28
#define BLAS_DDOT FORTRAN_ID( ddot )
30
#define BLAS_CDOTU FORTRAN_ID( cdotu )
31
#define BLAS_ZDOTU FORTRAN_ID( zdotu )
33
#define BLAS_CDOTC FORTRAN_ID( cdotc )
34
#define BLAS_ZDOTC FORTRAN_ID( zdotc )
36
#define BLAS_SNRM2 FORTRAN_ID( snrm2 )
37
#define BLAS_DNRM2 FORTRAN_ID( dnrm2 )
38
#define BLAS_SCNRM2 FORTRAN_ID( scnrm2 )
39
#define BLAS_DZNRM2 FORTRAN_ID( dznrm2 )
41
#define BLAS_SASUM FORTRAN_ID( sasum )
42
#define BLAS_DASUM FORTRAN_ID( dasum )
43
#define BLAS_SCASUM FORTRAN_ID( scasum )
44
#define BLAS_DZASUM FORTRAN_ID( dzasum )
46
#define BLAS_SCOPY FORTRAN_ID( scopy )
47
#define BLAS_DCOPY FORTRAN_ID( dcopy )
48
#define BLAS_CCOPY FORTRAN_ID( ccopy )
49
#define BLAS_ZCOPY FORTRAN_ID( zcopy )
54
#define BLAS_SGEMV FORTRAN_ID( sgemv )
55
#define BLAS_DGEMV FORTRAN_ID( dgemv )
56
#define BLAS_CGEMV FORTRAN_ID( cgemv )
57
#define BLAS_ZGEMV FORTRAN_ID( zgemv )
59
#define BLAS_SGER FORTRAN_ID( sger )
60
#define BLAS_DGER FORTRAN_ID( dger )
62
#define BLAS_CGERU FORTRAN_ID( cgeru )
63
#define BLAS_ZGERU FORTRAN_ID( zgeru )
65
#define BLAS_CGERC FORTRAN_ID( cgerc )
66
#define BLAS_ZGERC FORTRAN_ID( zgerc )
71
#define BLAS_SGEMM FORTRAN_ID( sgemm )
72
#define BLAS_DGEMM FORTRAN_ID( dgemm )
73
#define BLAS_CGEMM FORTRAN_ID( cgemm )
74
#define BLAS_ZGEMM FORTRAN_ID( zgemm )
76
#define BLAS_SSYRK FORTRAN_ID( ssyrk )
77
#define BLAS_DSYRK FORTRAN_ID( dsyrk )
78
#define BLAS_CSYRK FORTRAN_ID( csyrk )
79
#define BLAS_ZSYRK FORTRAN_ID( zsyrk )
80
#define BLAS_CHERK FORTRAN_ID( cherk )
81
#define BLAS_ZHERK FORTRAN_ID( zherk )
83
#define BLAS_STRSM FORTRAN_ID( strsm )
84
#define BLAS_DTRSM FORTRAN_ID( dtrsm )
85
#define BLAS_CTRSM FORTRAN_ID( ctrsm )
86
#define BLAS_ZTRSM FORTRAN_ID( ztrsm )
88
#endif // BOOST_NUMERIC_BINDINGS_BLAS_BLAS_NAMES_H