"Fossies" - the Fresh Open Source Software Archive

Member "lapack-3.9.1/CBLAS/src/cblas_caxpy.c" (25 Mar 2021, 521 Bytes) of package /linux/misc/lapack-3.9.1.tar.gz:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) C and C++ source code syntax highlighting (style: standard) with prefixed line numbers and code folding option. Alternatively you can here view or download the uninterpreted source code file. See also the latest Fossies "Diffs" side-by-side code changes report for "cblas_caxpy.c": 3.9.0_vs_3.9.1.

    1 /*
    2  * cblas_caxpy.c
    3  *
    4  * The program is a C interface to caxpy.
    5  *
    6  * Written by Keita Teranishi.  2/11/1998
    7  *
    8  */
    9 #include "cblas.h"
   10 #include "cblas_f77.h"
   11 void cblas_caxpy( const CBLAS_INDEX N, const void *alpha, const void *X,
   12                        const CBLAS_INDEX incX, void *Y, const CBLAS_INDEX incY)
   13 {
   14 #ifdef F77_INT
   15    F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
   16 #else
   17    #define F77_N N
   18    #define F77_incX incX
   19    #define F77_incY incY
   20 #endif
   21    F77_caxpy( &F77_N, alpha, X, &F77_incX, Y, &F77_incY);
   22 }