xref: /aosp_15_r20/external/cblas/src/cblas_dznrm2.c (revision 1858f9982ea1ad57fb52080c08594e4d1cce4fa1) 
1*1858f998SYi Kong /*
2*1858f998SYi Kong  * cblas_dznrm2.c
3*1858f998SYi Kong  *
4*1858f998SYi Kong  * The program is a C interface to dznrm2.
5*1858f998SYi Kong  * It calls the fortran wrapper before calling dznrm2.
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_dznrm2(const int N,const void * X,const int incX)12*1858f998SYi Kong double cblas_dznrm2( const int N, const void *X, const int incX)
13*1858f998SYi Kong {
14*1858f998SYi Kong    double nrm2;
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    nrm2 = F77_dznrm2( &F77_N, X, &F77_incX);
22*1858f998SYi Kong    return nrm2;
23*1858f998SYi Kong }
24