xref: /aosp_15_r20/external/cblas/src/cblas_idamax.c (revision 1858f9982ea1ad57fb52080c08594e4d1cce4fa1) 
1*1858f998SYi Kong /*
2*1858f998SYi Kong  * cblas_idamax.c
3*1858f998SYi Kong  *
4*1858f998SYi Kong  * The program is a C interface to idamax.
5*1858f998SYi Kong  * It calls the fortran wrapper before calling idamax.
6*1858f998SYi Kong  *
7*1858f998SYi Kong  * Written by Keita Teranishi.  2/11/1998
8*1858f998SYi Kong  *
9*1858f998SYi Kong  */
10*1858f998SYi Kong #include "cblas.h"
11*1858f998SYi Kong #include "cblas_f77.h"
cblas_idamax(const int N,const double * X,const int incX)12*1858f998SYi Kong CBLAS_INDEX cblas_idamax( const int N, const double *X, const int incX)
13*1858f998SYi Kong {
14*1858f998SYi Kong    int iamax;
15*1858f998SYi Kong #ifdef F77_INT
16*1858f998SYi Kong    F77_INT F77_N=N, F77_incX=incX;
17*1858f998SYi Kong #else
18*1858f998SYi Kong    #define F77_N N
19*1858f998SYi Kong    #define F77_incX incX
20*1858f998SYi Kong #endif
21*1858f998SYi Kong    iamax = F77_idamax( &F77_N, X, &F77_incX);
22*1858f998SYi Kong    return iamax ? iamax-1 : 0;
23*1858f998SYi Kong }
24