From e3140b25165537ddc731f1d72e46ec9059faa6d6 Mon Sep 17 00:00:00 2001 From: Hood Chatham Date: Sat, 18 Dec 2021 11:41:15 -0800 Subject: [PATCH 07/14] gemm_ no const cgemm, dgemm, sgemm, and zgemm are declared with `const` in slu_cdefs.h, but other places don't have the cosnt causing compile errors. This patch drops the consts and fixes the problem. --- scipy/sparse/linalg/_dsolve/SuperLU/SRC/slu_cdefs.h | 6 +++--- scipy/sparse/linalg/_dsolve/SuperLU/SRC/slu_ddefs.h | 6 +++--- scipy/sparse/linalg/_dsolve/SuperLU/SRC/slu_sdefs.h | 6 +++--- scipy/sparse/linalg/_dsolve/SuperLU/SRC/slu_zdefs.h | 6 +++--- 4 files changed, 12 insertions(+), 12 deletions(-) diff --git a/scipy/sparse/linalg/_dsolve/SuperLU/SRC/slu_cdefs.h b/scipy/sparse/linalg/_dsolve/SuperLU/SRC/slu_cdefs.h index 346f9af0a..8af19888f 100644 --- a/scipy/sparse/linalg/_dsolve/SuperLU/SRC/slu_cdefs.h +++ b/scipy/sparse/linalg/_dsolve/SuperLU/SRC/slu_cdefs.h @@ -272,9 +272,9 @@ extern void ccheck_tempv(int, complex *); /*! \brief BLAS */ -extern int cgemm_(const char*, const char*, const int*, const int*, const int*, - const complex*, const complex*, const int*, const complex*, - const int*, const complex*, complex*, const int*); +extern int cgemm_( char*, char*, int*, int*, int*, + complex*, complex*, int*, complex*, + int*, complex*, complex*, int*); extern int ctrsv_(char*, char*, char*, int*, complex*, int*, complex*, int*); extern int ctrsm_(char*, char*, char*, char*, int*, int*, diff --git a/scipy/sparse/linalg/_dsolve/SuperLU/SRC/slu_ddefs.h b/scipy/sparse/linalg/_dsolve/SuperLU/SRC/slu_ddefs.h index fd971f365..e70699aef 100644 --- a/scipy/sparse/linalg/_dsolve/SuperLU/SRC/slu_ddefs.h +++ b/scipy/sparse/linalg/_dsolve/SuperLU/SRC/slu_ddefs.h @@ -269,9 +269,9 @@ extern void dcheck_tempv(int, double *); /*! \brief BLAS */ -extern int dgemm_(const char*, const char*, const int*, const int*, const int*, - const double*, const double*, const int*, const double*, - const int*, const double*, double*, const int*); +extern int dgemm_( char*, char*, int*, int*, int*, + double*, double*, int*, double*, + int*, double*, double*, int*); extern int dtrsv_(char*, char*, char*, int*, double*, int*, double*, int*); extern int dtrsm_(char*, char*, char*, char*, int*, int*, diff --git a/scipy/sparse/linalg/_dsolve/SuperLU/SRC/slu_sdefs.h b/scipy/sparse/linalg/_dsolve/SuperLU/SRC/slu_sdefs.h index 1b6db977e..fee4bc1d6 100644 --- a/scipy/sparse/linalg/_dsolve/SuperLU/SRC/slu_sdefs.h +++ b/scipy/sparse/linalg/_dsolve/SuperLU/SRC/slu_sdefs.h @@ -269,9 +269,9 @@ extern void scheck_tempv(int, float *); /*! \brief BLAS */ -extern int sgemm_(const char*, const char*, const int*, const int*, const int*, - const float*, const float*, const int*, const float*, - const int*, const float*, float*, const int*); +extern int sgemm_( char*, char*, int*, int*, int*, + float*, float*, int*, float*, + int*, float*, float*, int*); extern int strsv_(char*, char*, char*, int*, float*, int*, float*, int*); extern int strsm_(char*, char*, char*, char*, int*, int*, diff --git a/scipy/sparse/linalg/_dsolve/SuperLU/SRC/slu_zdefs.h b/scipy/sparse/linalg/_dsolve/SuperLU/SRC/slu_zdefs.h index abb7d937e..6c572ff2b 100644 --- a/scipy/sparse/linalg/_dsolve/SuperLU/SRC/slu_zdefs.h +++ b/scipy/sparse/linalg/_dsolve/SuperLU/SRC/slu_zdefs.h @@ -272,9 +272,9 @@ extern void zcheck_tempv(int, doublecomplex *); /*! \brief BLAS */ -extern int zgemm_(const char*, const char*, const int*, const int*, const int*, - const doublecomplex*, const doublecomplex*, const int*, const doublecomplex*, - const int*, const doublecomplex*, doublecomplex*, const int*); +extern int zgemm_( char*, char*, int*, int*, int*, + doublecomplex*, doublecomplex*, int*, doublecomplex*, + int*, doublecomplex*, doublecomplex*, int*); extern int ztrsv_(char*, char*, char*, int*, doublecomplex*, int*, doublecomplex*, int*); extern int ztrsm_(char*, char*, char*, char*, int*, int*, -- 2.25.1