fix some min-dgels renamings

min-dgels/additional/blaswrap.h

@@ -26,8 +26,8 @@
 #define _starpu_dscal_ f2c_dscal
 #define _starpu_cscal_ f2c_cscal
 #define _starpu_zscal_ f2c_zscal
-#define _starpu_cstarpu_sscal_ f2c_csscal
-#define zstarpu_dscal_ f2c_zdscal
+#define _starpu_csscal_ f2c_csscal
+#define _starpu_zdscal_ f2c_zdscal
 #define _starpu_scopy_ f2c_scopy
 #define _starpu_dcopy_ f2c_dcopy
 #define _starpu_ccopy_ f2c_ccopy

min-dgels/additional/clapack.h

@@ -78,10 +78,10 @@ extern "C" {
 /* Subroutine */ int _starpu_cscal_(integer *n, complex *ca, complex *cx, integer *
 	incx);
 
-/* Subroutine */ int _starpu_cstarpu_srot_(integer *n, complex *cx, integer *incx, complex *
+/* Subroutine */ int _starpu__starpu_csrot_(integer *n, complex *cx, integer *incx, complex *
 	cy, integer *incy, real *c__, real *s);
 
-/* Subroutine */ int _starpu_cstarpu_sscal_(integer *n, real *sa, complex *cx, integer *incx);
+/* Subroutine */ int _starpu_csscal_(integer *n, real *sa, complex *cx, integer *incx);
 
 /* Subroutine */ int _starpu_cswap_(integer *n, complex *cx, integer *incx, complex *
 	cy, integer *incy);
@@ -176,7 +176,7 @@ doublereal _starpu_dnrm2_(integer *n, doublereal *x, integer *incx);
 /* Subroutine */ int _starpu_dscal_(integer *n, doublereal *da, doublereal *dx, 
 	integer *incx);
 
-doublereal _starpu_dstarpu_sdot_(integer *n, real *sx, integer *incx, real *sy, integer *
+doublereal _starpu_dsdot_(integer *n, real *sx, integer *incx, real *sy, integer *
 	incy);
 
 /* Subroutine */ int _starpu_dspmv_(char *uplo, integer *n, doublereal *alpha, 
@@ -272,7 +272,7 @@ doublereal _starpu_scnrm2_(integer *n, complex *x, integer *incx);
 
 doublereal _starpu_sdot_(integer *n, real *sx, integer *incx, real *sy, integer *incy);
 
-doublereal sstarpu_dstarpu_sdot_(integer *n, real *sb, real *sx, integer *incx, real *sy, 
+doublereal _starpu_sdsdot_(integer *n, real *sb, real *sx, integer *incx, real *sy, 
 	integer *incy);
 
 /* Subroutine */ int _starpu_sgbmv_(char *trans, integer *m, integer *n, integer *kl, 
@@ -386,10 +386,10 @@ doublereal _starpu_snrm2_(integer *n, real *x, integer *incx);
 /* Double Complex */ VOID _starpu_zdotu_(doublecomplex * ret_val, integer *n, 
 	doublecomplex *zx, integer *incx, doublecomplex *zy, integer *incy);
 
-/* Subroutine */ int zstarpu_drot_(integer *n, doublecomplex *cx, integer *incx, 
+/* Subroutine */ int _starpu_zdrot_(integer *n, doublecomplex *cx, integer *incx, 
 	doublecomplex *cy, integer *incy, doublereal *c__, doublereal *s);
 
-/* Subroutine */ int zstarpu_dscal_(integer *n, doublereal *da, doublecomplex *zx, 
+/* Subroutine */ int _starpu_zdscal_(integer *n, doublereal *da, doublecomplex *zx, 
 	integer *incx);
 
 /* Subroutine */ int _starpu_zgbmv_(char *trans, integer *m, integer *n, integer *kl, 
@@ -1720,7 +1720,7 @@ doublereal _starpu_clantr_(char *norm, char *uplo, char *diag, integer *m, integ
 /* Subroutine */ int _starpu_csptrs_(char *uplo, integer *n, integer *nrhs, complex *
 	ap, integer *ipiv, complex *b, integer *ldb, integer *info);
 
-/* Subroutine */ int _starpu_cstarpu_srscl_(integer *n, real *sa, complex *sx, integer *incx);
+/* Subroutine */ int _starpu__starpu_csrscl_(integer *n, real *sa, complex *sx, integer *incx);
 
 /* Subroutine */ int _starpu_cstedc_(char *compz, integer *n, real *d__, real *e, 
 	complex *z__, integer *ldz, complex *work, integer *lwork, real *
@@ -3456,7 +3456,7 @@ doublereal _starpu_dlapy3_(doublereal *x, doublereal *y, doublereal *z__);
 	 integer *k, doublereal *alpha, doublereal *a, integer *lda, 
 	doublereal *beta, doublereal *c__);
 
-/* Subroutine */ int _starpu_dstarpu_sgesv_(integer *n, integer *nrhs, doublereal *a, 
+/* Subroutine */ int _starpu__starpu_dsgesv_(integer *n, integer *nrhs, doublereal *a, 
 	integer *lda, integer *ipiv, doublereal *b, integer *ldb, doublereal *
 	x, integer *ldx, doublereal *work, real *swork, integer *iter, 
 	integer *info);
@@ -3497,7 +3497,7 @@ doublereal _starpu_dlapy3_(doublereal *x, doublereal *y, doublereal *z__);
 	*m, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, 
 	integer *iwork, integer *ifail, integer *info);
 
-/* Subroutine */ int _starpu_dstarpu_sposv_(char *uplo, integer *n, integer *nrhs, 
+/* Subroutine */ int _starpu__starpu_dsposv_(char *uplo, integer *n, integer *nrhs, 
 	doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
 	x, integer *ldx, doublereal *work, real *swork, integer *iter, 
 	integer *info);
@@ -5479,17 +5479,17 @@ doublereal _starpu_slapy3_(real *x, real *y, real *z__);
 	integer *ldvt, doublecomplex *u, integer *ldu, doublecomplex *c__, 
 	integer *ldc, doublereal *rwork, integer *info);
 
-/* Subroutine */ int zstarpu_cgesv_(integer *n, integer *nrhs, doublecomplex *a, 
+/* Subroutine */ int _starpu_zcgesv_(integer *n, integer *nrhs, doublecomplex *a, 
 	integer *lda, integer *ipiv, doublecomplex *b, integer *ldb, 
 	doublecomplex *x, integer *ldx, doublecomplex *work, complex *swork, 
 	doublereal *rwork, integer *iter, integer *info);
 
-/* Subroutine */ int zstarpu_cposv_(char *uplo, integer *n, integer *nrhs, 
+/* Subroutine */ int _starpu_zcposv_(char *uplo, integer *n, integer *nrhs, 
 	doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 
 	doublecomplex *x, integer *ldx, doublecomplex *work, complex *swork, 
 	doublereal *rwork, integer *iter, integer *info);
 
-/* Subroutine */ int zstarpu_drscl_(integer *n, doublereal *sa, doublecomplex *sx, 
+/* Subroutine */ int _starpu_zdrscl_(integer *n, doublereal *sa, doublecomplex *sx, 
 	integer *incx);
 
 /* Subroutine */ int _starpu_zgbbrd_(char *vect, integer *m, integer *n, integer *ncc, 

min-dgels/base/BLAS/SRC/dsdot.c

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-doublereal _starpu_dstarpu_sdot_(integer *n, real *sx, integer *incx, real *sy, integer *
+doublereal _starpu_dsdot_(integer *n, real *sx, integer *incx, real *sy, integer *
 	incy)
 {
     /* System generated locals */
@@ -132,4 +132,4 @@ L20:
 /* L30: */
     }
     return ret_val;
-} /* _starpu_dstarpu_sdot_ */
+} /* _starpu_dsdot_ */

min-dgels/base/BLAS/WRAP/cblas.h

@@ -29,14 +29,14 @@ double cblas_ddot(const int N, const double *X, const int incX,
 /*
  * Functions having prefixes Z and C only
  */
-void   cblas_starpu_cdotu_sub(const int N, const void *X, const int incX,
+void   _starpu_cblas_cdotu_sub(const int N, const void *X, const int incX,
                        const void *Y, const int incY, void *dotu);
-void   cblas_starpu_cdotc_sub(const int N, const void *X, const int incX,
+void   _starpu_cblas_cdotc_sub(const int N, const void *X, const int incX,
                        const void *Y, const int incY, void *dotc);
 
-void   cblas_starpu_zdotu_sub(const int N, const void *X, const int incX,
+void   _starpu_cblas_zdotu_sub(const int N, const void *X, const int incX,
                        const void *Y, const int incY, void *dotu);
-void   cblas_starpu_zdotc_sub(const int N, const void *X, const int incX,
+void   _starpu_cblas_zdotc_sub(const int N, const void *X, const int incX,
                        const void *Y, const int incY, void *dotc);
 
 

min-dgels/base/BLAS/WRAP/cblaswr.c

@@ -67,7 +67,7 @@ f2c_cdotu(complex* retval,
           complex* X, integer* incX, 
           complex* Y, integer* incY)
 {
-    cblas_starpu_cdotu_sub(*N, X, *incX, Y, *incY, retval);
+    _starpu_cblas_cdotu_sub(*N, X, *incX, Y, *incY, retval);
 }
 
 void
@@ -76,7 +76,7 @@ f2c_cdotc(complex* retval,
           complex* X, integer* incX, 
           complex* Y, integer* incY)
 {
-    cblas_starpu_cdotc_sub(*N, X, *incX, Y, *incY, retval);
+    _starpu_cblas_cdotc_sub(*N, X, *incX, Y, *incY, retval);
 }
 
 void
@@ -85,7 +85,7 @@ f2c_zdotu(doublecomplex* retval,
           doublecomplex* X, integer* incX, 
           doublecomplex* Y, integer* incY)
 {
-    cblas_starpu_zdotu_sub(*N, X, *incX, Y, *incY, retval);
+    _starpu_cblas_zdotu_sub(*N, X, *incX, Y, *incY, retval);
 }
 
 void
@@ -94,7 +94,7 @@ f2c_zdotc(doublecomplex* retval,
           doublecomplex* X, integer* incX, 
           doublecomplex* Y, integer* incY)
 {
-    cblas_starpu_zdotc_sub(*N, X, *incX, Y, *incY, retval);
+    _starpu_cblas_zdotc_sub(*N, X, *incX, Y, *incY, retval);
 }
 
 

min-dgels/base/BLAS/WRAP/fblaswr.c

@@ -396,7 +396,7 @@ f2c_csscal(integer* N,
            real* alpha,
            complex* X, integer* incX)
 {
-    _starpu_cstarpu_sscal_(N, alpha, X, incX);
+    _starpu_csscal_(N, alpha, X, incX);
     return 0;
 }
 
@@ -406,7 +406,7 @@ f2c_zdscal(integer* N,
            doublereal* alpha,
            doublecomplex* X, integer* incX)
 {
-    zstarpu_dscal_(N, alpha, X, incX);
+    _starpu_zdscal_(N, alpha, X, incX);
     return 0;
 }
 

min-dgels/base/BLAS/WRAP/fblaswr.h

@@ -189,12 +189,12 @@ _starpu_zscal_(integer* N,
        doublecomplex* X, integer* incX);
 
 int
-_starpu_cstarpu_sscal_(integer* N,
+_starpu_csscal_(integer* N,
         real* alpha,
         complex* X, integer* incX);
 
 int
-zstarpu_dscal_(integer* N,
+_starpu_zdscal_(integer* N,
         doublereal* alpha,
         doublecomplex* X, integer* incX);
 

min-dgels/base/INCLUDE/blaswrap.h

@@ -26,8 +26,8 @@
 #define _starpu_dscal_ f2c_dscal
 #define _starpu_cscal_ f2c_cscal
 #define _starpu_zscal_ f2c_zscal
-#define _starpu_cstarpu_sscal_ f2c_csscal
-#define zstarpu_dscal_ f2c_zdscal
+#define _starpu_csscal_ f2c_csscal
+#define _starpu_zdscal_ f2c_zdscal
 #define _starpu_scopy_ f2c_scopy
 #define _starpu_dcopy_ f2c_dcopy
 #define _starpu_ccopy_ f2c_ccopy

min-dgels/base/INCLUDE/clapack.h

@@ -78,10 +78,10 @@ extern "C" {
 /* Subroutine */ int _starpu_cscal_(integer *n, complex *ca, complex *cx, integer *
 	incx);
 
-/* Subroutine */ int _starpu_cstarpu_srot_(integer *n, complex *cx, integer *incx, complex *
+/* Subroutine */ int _starpu__starpu_csrot_(integer *n, complex *cx, integer *incx, complex *
 	cy, integer *incy, real *c__, real *s);
 
-/* Subroutine */ int _starpu_cstarpu_sscal_(integer *n, real *sa, complex *cx, integer *incx);
+/* Subroutine */ int _starpu_csscal_(integer *n, real *sa, complex *cx, integer *incx);
 
 /* Subroutine */ int _starpu_cswap_(integer *n, complex *cx, integer *incx, complex *
 	cy, integer *incy);
@@ -176,7 +176,7 @@ doublereal _starpu_dnrm2_(integer *n, doublereal *x, integer *incx);
 /* Subroutine */ int _starpu_dscal_(integer *n, doublereal *da, doublereal *dx, 
 	integer *incx);
 
-doublereal _starpu_dstarpu_sdot_(integer *n, real *sx, integer *incx, real *sy, integer *
+doublereal _starpu_dsdot_(integer *n, real *sx, integer *incx, real *sy, integer *
 	incy);
 
 /* Subroutine */ int _starpu_dspmv_(char *uplo, integer *n, doublereal *alpha, 
@@ -272,7 +272,7 @@ doublereal _starpu_scnrm2_(integer *n, complex *x, integer *incx);
 
 doublereal _starpu_sdot_(integer *n, real *sx, integer *incx, real *sy, integer *incy);
 
-doublereal sstarpu_dstarpu_sdot_(integer *n, real *sb, real *sx, integer *incx, real *sy, 
+doublereal _starpu_sdsdot_(integer *n, real *sb, real *sx, integer *incx, real *sy, 
 	integer *incy);
 
 /* Subroutine */ int _starpu_sgbmv_(char *trans, integer *m, integer *n, integer *kl, 
@@ -386,10 +386,10 @@ doublereal _starpu_snrm2_(integer *n, real *x, integer *incx);
 /* Double Complex */ VOID _starpu_zdotu_(doublecomplex * ret_val, integer *n, 
 	doublecomplex *zx, integer *incx, doublecomplex *zy, integer *incy);
 
-/* Subroutine */ int zstarpu_drot_(integer *n, doublecomplex *cx, integer *incx, 
+/* Subroutine */ int _starpu_zdrot_(integer *n, doublecomplex *cx, integer *incx, 
 	doublecomplex *cy, integer *incy, doublereal *c__, doublereal *s);
 
-/* Subroutine */ int zstarpu_dscal_(integer *n, doublereal *da, doublecomplex *zx, 
+/* Subroutine */ int _starpu_zdscal_(integer *n, doublereal *da, doublecomplex *zx, 
 	integer *incx);
 
 /* Subroutine */ int _starpu_zgbmv_(char *trans, integer *m, integer *n, integer *kl, 
@@ -1720,7 +1720,7 @@ doublereal _starpu_clantr_(char *norm, char *uplo, char *diag, integer *m, integ
 /* Subroutine */ int _starpu_csptrs_(char *uplo, integer *n, integer *nrhs, complex *
 	ap, integer *ipiv, complex *b, integer *ldb, integer *info);
 
-/* Subroutine */ int _starpu_cstarpu_srscl_(integer *n, real *sa, complex *sx, integer *incx);
+/* Subroutine */ int _starpu__starpu_csrscl_(integer *n, real *sa, complex *sx, integer *incx);
 
 /* Subroutine */ int _starpu_cstedc_(char *compz, integer *n, real *d__, real *e, 
 	complex *z__, integer *ldz, complex *work, integer *lwork, real *
@@ -3456,7 +3456,7 @@ doublereal _starpu_dlapy3_(doublereal *x, doublereal *y, doublereal *z__);
 	 integer *k, doublereal *alpha, doublereal *a, integer *lda, 
 	doublereal *beta, doublereal *c__);
 
-/* Subroutine */ int _starpu_dstarpu_sgesv_(integer *n, integer *nrhs, doublereal *a, 
+/* Subroutine */ int _starpu__starpu_dsgesv_(integer *n, integer *nrhs, doublereal *a, 
 	integer *lda, integer *ipiv, doublereal *b, integer *ldb, doublereal *
 	x, integer *ldx, doublereal *work, real *swork, integer *iter, 
 	integer *info);
@@ -3497,7 +3497,7 @@ doublereal _starpu_dlapy3_(doublereal *x, doublereal *y, doublereal *z__);
 	*m, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, 
 	integer *iwork, integer *ifail, integer *info);
 
-/* Subroutine */ int _starpu_dstarpu_sposv_(char *uplo, integer *n, integer *nrhs, 
+/* Subroutine */ int _starpu__starpu_dsposv_(char *uplo, integer *n, integer *nrhs, 
 	doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
 	x, integer *ldx, doublereal *work, real *swork, integer *iter, 
 	integer *info);
@@ -5479,17 +5479,17 @@ doublereal _starpu_slapy3_(real *x, real *y, real *z__);
 	integer *ldvt, doublecomplex *u, integer *ldu, doublecomplex *c__, 
 	integer *ldc, doublereal *rwork, integer *info);
 
-/* Subroutine */ int zstarpu_cgesv_(integer *n, integer *nrhs, doublecomplex *a, 
+/* Subroutine */ int _starpu_zcgesv_(integer *n, integer *nrhs, doublecomplex *a, 
 	integer *lda, integer *ipiv, doublecomplex *b, integer *ldb, 
 	doublecomplex *x, integer *ldx, doublecomplex *work, complex *swork, 
 	doublereal *rwork, integer *iter, integer *info);
 
-/* Subroutine */ int zstarpu_cposv_(char *uplo, integer *n, integer *nrhs, 
+/* Subroutine */ int _starpu_zcposv_(char *uplo, integer *n, integer *nrhs, 
 	doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 
 	doublecomplex *x, integer *ldx, doublecomplex *work, complex *swork, 
 	doublereal *rwork, integer *iter, integer *info);
 
-/* Subroutine */ int zstarpu_drscl_(integer *n, doublereal *sa, doublecomplex *sx, 
+/* Subroutine */ int _starpu_zdrscl_(integer *n, doublereal *sa, doublecomplex *sx, 
 	integer *incx);
 
 /* Subroutine */ int _starpu_zgbbrd_(char *vect, integer *m, integer *n, integer *ncc, 

min-dgels/base/SRC/dla_gbrfsx_extended.c

@@ -52,7 +52,7 @@ static doublereal c_b8 = 1.;
     extern /* Subroutine */ int _starpu_dla_lin_berr__(integer *, integer *, integer *
 	    , doublereal *, doublereal *, doublereal *);
     doublereal ymin;
-    extern /* Subroutine */ int blas_starpu_dgbmv_x__(integer *, integer *, integer *
+    extern /* Subroutine */ int _starpu_blas_dgbmv_x__(integer *, integer *, integer *
 	    , integer *, integer *, doublereal *, doublereal *, integer *, 
 	    doublereal *, integer *, doublereal *, doublereal *, integer *, 
 	    integer *);
@@ -432,7 +432,7 @@ static doublereal c_b8 = 1.;
 		_starpu_dgbmv_(trans, &m, n, kl, ku, &c_b6, &ab[ab_offset], ldab, &y[
 			j * y_dim1 + 1], &c__1, &c_b8, &res[1], &c__1);
 	    } else if (y_prec_state__ == 1) {
-		blas_starpu_dgbmv_x__(trans_type__, n, n, kl, ku, &c_b6, &ab[
+		_starpu_blas_dgbmv_x__(trans_type__, n, n, kl, ku, &c_b6, &ab[
 			ab_offset], ldab, &y[j * y_dim1 + 1], &c__1, &c_b8, &
 			res[1], &c__1, prec_type__);
 	    } else {

min-dgels/base/SRC/dla_gerfsx_extended.c

@@ -52,7 +52,7 @@ static doublereal c_b8 = 1.;
     extern /* Subroutine */ int _starpu_dla_lin_berr__(integer *, integer *, integer *
 	    , doublereal *, doublereal *, doublereal *);
     doublereal ymin;
-    extern /* Subroutine */ int blas_starpu_dgemv_x__(integer *, integer *, integer *
+    extern /* Subroutine */ int _starpu_blas_dgemv_x__(integer *, integer *, integer *
 	    , doublereal *, doublereal *, integer *, doublereal *, integer *, 
 	    doublereal *, doublereal *, integer *, integer *);
     integer y_prec_state__;
@@ -425,7 +425,7 @@ static doublereal c_b8 = 1.;
 		_starpu_dgemv_(trans, n, n, &c_b6, &a[a_offset], lda, &y[j * y_dim1 + 
 			1], &c__1, &c_b8, &res[1], &c__1);
 	    } else if (y_prec_state__ == 1) {
-		blas_starpu_dgemv_x__(trans_type__, n, n, &c_b6, &a[a_offset], lda, &
+		_starpu_blas_dgemv_x__(trans_type__, n, n, &c_b6, &a[a_offset], lda, &
 			y[j * y_dim1 + 1], &c__1, &c_b8, &res[1], &c__1, 
 			prec_type__);
 	    } else {

min-dgels/base/SRC/dla_porfsx_extended.c

@@ -52,7 +52,7 @@ static doublereal c_b11 = 1.;
 	    , doublereal *, doublereal *, doublereal *);
     doublereal ymin;
     integer y_prec_state__;
-    extern /* Subroutine */ int blas_starpu_dsymv_x__(integer *, integer *, 
+    extern /* Subroutine */ int _starpu_blas_dsymv_x__(integer *, integer *, 
 	    doublereal *, doublereal *, integer *, doublereal *, integer *, 
 	    doublereal *, doublereal *, integer *, integer *);
     integer uplo2;
@@ -419,7 +419,7 @@ static doublereal c_b11 = 1.;
 		_starpu_dsymv_(uplo, n, &c_b9, &a[a_offset], lda, &y[j * y_dim1 + 1], 
 			&c__1, &c_b11, &res[1], &c__1);
 	    } else if (y_prec_state__ == 1) {
-		blas_starpu_dsymv_x__(&uplo2, n, &c_b9, &a[a_offset], lda, &y[j * 
+		_starpu_blas_dsymv_x__(&uplo2, n, &c_b9, &a[a_offset], lda, &y[j * 
 			y_dim1 + 1], &c__1, &c_b11, &res[1], &c__1, 
 			prec_type__);
 	    } else {

min-dgels/base/SRC/dla_syrfsx_extended.c

@@ -52,7 +52,7 @@ static doublereal c_b11 = 1.;
 	    , doublereal *, doublereal *, doublereal *);
     doublereal ymin;
     integer y_prec_state__;
-    extern /* Subroutine */ int blas_starpu_dsymv_x__(integer *, integer *, 
+    extern /* Subroutine */ int _starpu_blas_dsymv_x__(integer *, integer *, 
 	    doublereal *, doublereal *, integer *, doublereal *, integer *, 
 	    doublereal *, doublereal *, integer *, integer *);
     integer uplo2;
@@ -425,7 +425,7 @@ static doublereal c_b11 = 1.;
 		_starpu_dsymv_(uplo, n, &c_b9, &a[a_offset], lda, &y[j * y_dim1 + 1], 
 			&c__1, &c_b11, &res[1], &c__1);
 	    } else if (y_prec_state__ == 1) {
-		blas_starpu_dsymv_x__(&uplo2, n, &c_b9, &a[a_offset], lda, &y[j * 
+		_starpu_blas_dsymv_x__(&uplo2, n, &c_b9, &a[a_offset], lda, &y[j * 
 			y_dim1 + 1], &c__1, &c_b11, &res[1], &c__1, 
 			prec_type__);
 	    } else {

min-dgels/base/SRC/dsgesv.c

@@ -19,7 +19,7 @@ static doublereal c_b10 = -1.;
 static doublereal c_b11 = 1.;
 static integer c__1 = 1;
 
-/* Subroutine */ int _starpu_dstarpu_sgesv_(integer *n, integer *nrhs, doublereal *a, 
+/* Subroutine */ int _starpu__starpu_dsgesv_(integer *n, integer *nrhs, doublereal *a, 
 	integer *lda, integer *ipiv, doublereal *b, integer *ldb, doublereal *
 	x, integer *ldx, doublereal *work, real *swork, integer *iter, 
 	integer *info)
@@ -413,4 +413,4 @@ L40:
 
 /*     End of DSGESV. */
 
-} /* _starpu_dstarpu_sgesv_ */
+} /* _starpu__starpu_dsgesv_ */

min-dgels/base/SRC/dsposv.c

@@ -19,7 +19,7 @@ static doublereal c_b10 = -1.;
 static doublereal c_b11 = 1.;
 static integer c__1 = 1;
 
-/* Subroutine */ int _starpu_dstarpu_sposv_(char *uplo, integer *n, integer *nrhs, 
+/* Subroutine */ int _starpu__starpu_dsposv_(char *uplo, integer *n, integer *nrhs, 
 	doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
 	x, integer *ldx, doublereal *work, real *swork, integer *iter, 
 	integer *info)
@@ -415,4 +415,4 @@ L40:
 
 /*     End of DSPOSV. */
 
-} /* _starpu_dstarpu_sposv_ */
+} /* _starpu__starpu_dsposv_ */