.. _program_listing_file_src_tensors_cpu_prod_blas.h:

Program Listing for File prod_blas.h
====================================

|exhale_lsh| :ref:`Return to documentation for file <file_src_tensors_cpu_prod_blas.h>` (``src/tensors/cpu/prod_blas.h``)

.. |exhale_lsh| unicode:: U+021B0 .. UPWARDS ARROW WITH TIP LEFTWARDS

.. code-block:: cpp

   #if MKL_FOUND
   #include <mkl.h>
   #else
   #if BLAS_FOUND
   #include <cblas.h>
   #endif
   #endif
   
   inline void sgemm(bool transA,
                     bool transB,
                     int rows_a,
                     int rows_b,
                     int width,
                     float alpha,
                     float* a,
                     int lda,
                     float* b,
                     int ldb,
                     float beta,
                     float* c,
                     int ldc) {
   #if BLAS_FOUND
     cblas_sgemm(CblasRowMajor,
                 transA ? CblasTrans : CblasNoTrans,
                 transB ? CblasTrans : CblasNoTrans,
                 rows_a,
                 rows_b,
                 width,
                 alpha,
                 a,
                 lda,
                 b,
                 ldb,
                 beta,
                 c,
                 ldc);
   #else
       transA; transB; rows_a; rows_b; width; alpha; a; lda; b; ldb; beta; c; ldc; // make compiler happy
       ABORT("Marian must be compiled with a BLAS library");
   #endif
   }