Blame operations/external/matting-levin-cblas.h

Packit Service 2781ba
/* This file is an image processing operation for GEGL
Packit Service 2781ba
 *
Packit Service 2781ba
 * GEGL is free software; you can redistribute it and/or
Packit Service 2781ba
 * modify it under the terms of the GNU Lesser General Public
Packit Service 2781ba
 * License as published by the Free Software Foundation; either
Packit Service 2781ba
 * version 3 of the License, or (at your option) any later version.
Packit Service 2781ba
 *
Packit Service 2781ba
 * GEGL is distributed in the hope that it will be useful,
Packit Service 2781ba
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
Packit Service 2781ba
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
Packit Service 2781ba
 * Lesser General Public License for more details.
Packit Service 2781ba
 *
Packit Service 2781ba
 * You should have received a copy of the GNU Lesser General Public
Packit Service 2781ba
 * License along with GEGL; if not, see <http://www.gnu.org/licenses/>.
Packit Service 2781ba
 *
Packit Service 2781ba
 * This is derived from the (public domain) reference implementation on
Packit Service 2781ba
 * netlib.
Packit Service 2781ba
 */
Packit Service 2781ba
Packit Service 2781ba
#ifndef __MATTING_CBLAS_H__
Packit Service 2781ba
#define __MATTING_CBLAS_H__
Packit Service 2781ba
Packit Service 2781ba
enum CBLAS_ORDER
Packit Service 2781ba
{
Packit Service 2781ba
  CblasRowMajor = 101,
Packit Service 2781ba
  CblasColMajor = 102
Packit Service 2781ba
};
Packit Service 2781ba
Packit Service 2781ba
Packit Service 2781ba
enum CBLAS_TRANSPOSE
Packit Service 2781ba
{
Packit Service 2781ba
  CblasNoTrans   = 111,
Packit Service 2781ba
  CblasTrans     = 112,
Packit Service 2781ba
  CblasConjTrans = 113
Packit Service 2781ba
};
Packit Service 2781ba
Packit Service 2781ba
   
Packit Service 2781ba
Packit Service 2781ba
gint cblas_dgemm(enum CBLAS_ORDER      order,
Packit Service 2781ba
                 enum CBLAS_TRANSPOSE  transa,
Packit Service 2781ba
                 enum CBLAS_TRANSPOSE  transb,
Packit Service 2781ba
                 gint                  m,
Packit Service 2781ba
                 gint                  n,
Packit Service 2781ba
                 gint                  k,
Packit Service 2781ba
                 gdouble               alpha,
Packit Service 2781ba
                 const gdouble        *restrict a,
Packit Service 2781ba
                 gint                  lda,
Packit Service 2781ba
                 const gdouble        *restrict b,
Packit Service 2781ba
                 gint                  ldb,
Packit Service 2781ba
                 gdouble               beta,
Packit Service 2781ba
                 gdouble              *restrict c,
Packit Service 2781ba
                 gint                  ldc);
Packit Service 2781ba
Packit Service 2781ba
#endif