"Fossies" - the Fresh Open Source Software Archive

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

    1 /*
    2  * cblas_cgeru.c
    3  * The program is a C interface to cgeru.
    4  *
    5  * Keita Teranishi  5/20/98
    6  *
    7  */
    8 #include "cblas.h"
    9 #include "cblas_f77.h"
   10 void cblas_cgeru(const CBLAS_LAYOUT layout, const CBLAS_INDEX M, const CBLAS_INDEX N,
   11                  const void *alpha, const void *X, const CBLAS_INDEX incX,
   12                  const void *Y, const CBLAS_INDEX incY, void *A, const CBLAS_INDEX lda)
   13 {
   14 #ifdef F77_INT
   15    F77_INT F77_M=M, F77_N=N, F77_lda=lda, F77_incX=incX, F77_incY=incY;
   16 #else
   17    #define F77_M M
   18    #define F77_N N
   19    #define F77_incX incX
   20    #define F77_incY incY
   21    #define F77_lda lda
   22 #endif
   23 
   24    extern int CBLAS_CallFromC;
   25    extern int RowMajorStrg;
   26    RowMajorStrg = 0;
   27 
   28    CBLAS_CallFromC = 1;
   29 
   30    if (layout == CblasColMajor)
   31    {
   32       F77_cgeru( &F77_M, &F77_N, alpha, X, &F77_incX, Y, &F77_incY, A,
   33                       &F77_lda);
   34    }
   35    else if (layout == CblasRowMajor)
   36    {
   37       RowMajorStrg = 1;
   38       F77_cgeru( &F77_N, &F77_M, alpha, Y, &F77_incY, X, &F77_incX, A,
   39                       &F77_lda);
   40    }
   41    else cblas_xerbla(1, "cblas_cgeru","Illegal layout setting, %d\n", layout);
   42    CBLAS_CallFromC = 0;
   43    RowMajorStrg = 0;
   44    return;
   45 }