"Fossies" - the Fresh Open Source Software Archive

Member "lapack-3.9.1/CBLAS/src/cblas_csscal.c" (25 Mar 2021, 433 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_csscal.c": 3.9.0_vs_3.9.1.

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