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_samax(int n,float * x,int incx,int * index)13 void bl1_samax( int n, float* x, int incx, int* index )
14 {
15 #ifdef BLIS1_ENABLE_CBLAS_INTERFACES
16 *index = cblas_isamax( n,
17 x, incx );
18 #else
19 *index = F77_isamax( &n,
20 x, &incx ) - 1;
21 #endif
22 }
23
bl1_damax(int n,double * x,int incx,int * index)24 void bl1_damax( int n, double* x, int incx, int* index )
25 {
26 #ifdef BLIS1_ENABLE_CBLAS_INTERFACES
27 *index = cblas_idamax( n,
28 x, incx );
29 #else
30 *index = F77_idamax( &n,
31 x, &incx ) - 1;
32 #endif
33 }
34
bl1_camax(int n,scomplex * x,int incx,int * index)35 void bl1_camax( int n, scomplex* x, int incx, int* index )
36 {
37 #ifdef BLIS1_ENABLE_CBLAS_INTERFACES
38 *index = cblas_icamax( n,
39 x, incx );
40 #else
41 *index = F77_icamax( &n,
42 x, &incx ) - 1;
43 #endif
44 }
45
bl1_zamax(int n,dcomplex * x,int incx,int * index)46 void bl1_zamax( int n, dcomplex* x, int incx, int* index )
47 {
48 #ifdef BLIS1_ENABLE_CBLAS_INTERFACES
49 *index = cblas_izamax( n,
50 x, incx );
51 #else
52 *index = F77_izamax( &n,
53 x, &incx ) - 1;
54 #endif
55 }
56
57