1 /*
2
3 Copyright (C) 2014, The University of Texas at Austin
4
5 This file is part of libflame and is available under the 3-Clause
6 BSD license, which can be found in the LICENSE file at the top-level
7 directory, or at http://opensource.org/licenses/BSD-3-Clause
8
9 */
10
11 #include "blis1.h"
12
bl1_sscal(int n,float * alpha,float * x,int incx)13 void bl1_sscal( int n, float* alpha, float* x, int incx )
14 {
15 #ifdef BLIS1_ENABLE_CBLAS_INTERFACES
16 cblas_sscal( n,
17 *alpha,
18 x, incx );
19 #else
20 F77_sscal( &n,
21 alpha,
22 x, &incx );
23 #endif
24 }
25
bl1_dscal(int n,double * alpha,double * x,int incx)26 void bl1_dscal( int n, double* alpha, double* x, int incx )
27 {
28 #ifdef BLIS1_ENABLE_CBLAS_INTERFACES
29 cblas_dscal( n,
30 *alpha,
31 x, incx );
32 #else
33 F77_dscal( &n,
34 alpha,
35 x, &incx );
36 #endif
37 }
38
bl1_csscal(int n,float * alpha,scomplex * x,int incx)39 void bl1_csscal( int n, float* alpha, scomplex* x, int incx )
40 {
41 #ifdef BLIS1_ENABLE_CBLAS_INTERFACES
42 cblas_csscal( n,
43 *alpha,
44 x, incx );
45 #else
46 F77_csscal( &n,
47 alpha,
48 x, &incx );
49 #endif
50 }
51
bl1_cscal(int n,scomplex * alpha,scomplex * x,int incx)52 void bl1_cscal( int n, scomplex* alpha, scomplex* x, int incx )
53 {
54 #ifdef BLIS1_ENABLE_CBLAS_INTERFACES
55 cblas_cscal( n,
56 alpha,
57 x, incx );
58 #else
59 F77_cscal( &n,
60 alpha,
61 x, &incx );
62 #endif
63 }
64
bl1_zdscal(int n,double * alpha,dcomplex * x,int incx)65 void bl1_zdscal( int n, double* alpha, dcomplex* x, int incx )
66 {
67 #ifdef BLIS1_ENABLE_CBLAS_INTERFACES
68 cblas_zdscal( n,
69 *alpha,
70 x, incx );
71 #else
72 F77_zdscal( &n,
73 alpha,
74 x, &incx );
75 #endif
76 }
77
bl1_zscal(int n,dcomplex * alpha,dcomplex * x,int incx)78 void bl1_zscal( int n, dcomplex* alpha, dcomplex* x, int incx )
79 {
80 #ifdef BLIS1_ENABLE_CBLAS_INTERFACES
81 cblas_zscal( n,
82 alpha,
83 x, incx );
84 #else
85 F77_zscal( &n,
86 alpha,
87 x, &incx );
88 #endif
89 }
90
91