"Fossies" - the Fresh Open Source Software Archive

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

    1 /*
    2  * cblas_cdotu_sub.c
    3  *
    4  * The program is a C interface to cdotu.
    5  * It calls the fortran wrapper before calling cdotu.
    6  *
    7  * Written by Keita Teranishi.  2/11/1998
    8  *
    9  */
   10 #include "cblas.h"
   11 #include "cblas_f77.h"
   12 void cblas_cdotu_sub( const CBLAS_INDEX N, const void *X, const CBLAS_INDEX incX,
   13               const void *Y, const CBLAS_INDEX incY, void *dotu)
   14 {
   15 #ifdef F77_INT
   16    F77_INT F77_N=N, F77_incX=incX, F77_incY=incY;
   17 #else
   18    #define F77_N N
   19    #define F77_incX incX
   20    #define F77_incY incY
   21 #endif
   22    F77_cdotu_sub( &F77_N, X, &F77_incX, Y, &F77_incY, dotu);
   23    return;
   24 }