Prefix min-dgels function names with _starpu to avoid naming conflicts

configure.ac

@@ -3125,6 +3125,7 @@ if test x$enable_mlr = xyes -a "$starpu_windows" != "yes" ; then
 					AC_MSG_RESULT(yes)
 					DGELS_LIBS="-Wl,--start-group $STARPU_BUILD_DIR/min-dgels/build/minlibblas.a $STARPU_BUILD_DIR/min-dgels/build/minlibdgels.a $STARPU_BUILD_DIR/min-dgels/build/minlibf2c.a -Wl,--end-group"
 					AC_DEFINE(STARPU_MLR_MODEL, [1], [use user defined library])
+					AC_DEFINE(STARPU_BUILT_IN_MIN_DGELS, [1], [use built-in min_dgels])
 					AC_ARG_VAR([DGELS_LIBS], [linker flags for lapack dgels])
 					install_min_dgels=yes
 				fi

min-dgels/additional/blaswrap.h

@@ -8,152 +8,152 @@
 #ifndef NO_BLAS_WRAP
  
 /* BLAS1 routines */
-#define srotg_ f2c_srotg
-#define crotg_ f2c_crotg
-#define drotg_ f2c_drotg
-#define zrotg_ f2c_zrotg
-#define srotmg_ f2c_srotmg
-#define drotmg_ f2c_drotmg
-#define srot_ f2c_srot
-#define drot_ f2c_drot
-#define srotm_ f2c_srotm
-#define drotm_ f2c_drotm
-#define sswap_ f2c_sswap
-#define dswap_ f2c_dswap
-#define cswap_ f2c_cswap
-#define zswap_ f2c_zswap
-#define sscal_ f2c_sscal
-#define dscal_ f2c_dscal
-#define cscal_ f2c_cscal
-#define zscal_ f2c_zscal
-#define csscal_ f2c_csscal
-#define zdscal_ f2c_zdscal
-#define scopy_ f2c_scopy
-#define dcopy_ f2c_dcopy
-#define ccopy_ f2c_ccopy
-#define zcopy_ f2c_zcopy
-#define saxpy_ f2c_saxpy
-#define daxpy_ f2c_daxpy
-#define caxpy_ f2c_caxpy
-#define zaxpy_ f2c_zaxpy
-#define sdot_ f2c_sdot
-#define ddot_ f2c_ddot
-#define cdotu_ f2c_cdotu
-#define zdotu_ f2c_zdotu
-#define cdotc_ f2c_cdotc
-#define zdotc_ f2c_zdotc
-#define snrm2_ f2c_snrm2
-#define dnrm2_ f2c_dnrm2
-#define scnrm2_ f2c_scnrm2
-#define dznrm2_ f2c_dznrm2
-#define sasum_ f2c_sasum
-#define dasum_ f2c_dasum
-#define scasum_ f2c_scasum
-#define dzasum_ f2c_dzasum
-#define isamax_ f2c_isamax
-#define idamax_ f2c_idamax
-#define icamax_ f2c_icamax
-#define izamax_ f2c_izamax
+#define _starpu_srotg_ f2c_srotg
+#define _starpu_crotg_ f2c_crotg
+#define _starpu_drotg_ f2c_drotg
+#define _starpu_zrotg_ f2c_zrotg
+#define _starpu_srotmg_ f2c_srotmg
+#define _starpu_drotmg_ f2c_drotmg
+#define _starpu_srot_ f2c_srot
+#define _starpu_drot_ f2c_drot
+#define _starpu_srotm_ f2c_srotm
+#define _starpu_drotm_ f2c_drotm
+#define _starpu_sswap_ f2c_sswap
+#define _starpu_dswap_ f2c_dswap
+#define _starpu_cswap_ f2c_cswap
+#define _starpu_zswap_ f2c_zswap
+#define _starpu_sscal_ f2c_sscal
+#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_scopy_ f2c_scopy
+#define _starpu_dcopy_ f2c_dcopy
+#define _starpu_ccopy_ f2c_ccopy
+#define _starpu_zcopy_ f2c_zcopy
+#define _starpu_saxpy_ f2c_saxpy
+#define _starpu_daxpy_ f2c_daxpy
+#define _starpu_caxpy_ f2c_caxpy
+#define _starpu_zaxpy_ f2c_zaxpy
+#define _starpu_sdot_ f2c_sdot
+#define _starpu_ddot_ f2c_ddot
+#define _starpu_cdotu_ f2c_cdotu
+#define _starpu_zdotu_ f2c_zdotu
+#define _starpu_cdotc_ f2c_cdotc
+#define _starpu_zdotc_ f2c_zdotc
+#define _starpu_snrm2_ f2c_snrm2
+#define _starpu_dnrm2_ f2c_dnrm2
+#define _starpu_scnrm2_ f2c_scnrm2
+#define _starpu_dznrm2_ f2c_dznrm2
+#define _starpu_sasum_ f2c_sasum
+#define _starpu_dasum_ f2c_dasum
+#define _starpu_scasum_ f2c_scasum
+#define _starpu_dzasum_ f2c_dzasum
+#define _starpu_isamax_ f2c_isamax
+#define _starpu_idamax_ f2c_idamax
+#define _starpu_icamax_ f2c_icamax
+#define _starpu_izamax_ f2c_izamax
  
 /* BLAS2 routines */
-#define sgemv_ f2c_sgemv
-#define dgemv_ f2c_dgemv
-#define cgemv_ f2c_cgemv
-#define zgemv_ f2c_zgemv
-#define sgbmv_ f2c_sgbmv
-#define dgbmv_ f2c_dgbmv
-#define cgbmv_ f2c_cgbmv
-#define zgbmv_ f2c_zgbmv
-#define chemv_ f2c_chemv
-#define zhemv_ f2c_zhemv
-#define chbmv_ f2c_chbmv
-#define zhbmv_ f2c_zhbmv
-#define chpmv_ f2c_chpmv
-#define zhpmv_ f2c_zhpmv
-#define ssymv_ f2c_ssymv
-#define dsymv_ f2c_dsymv
-#define ssbmv_ f2c_ssbmv
-#define dsbmv_ f2c_dsbmv
-#define sspmv_ f2c_sspmv
-#define dspmv_ f2c_dspmv
-#define strmv_ f2c_strmv
-#define dtrmv_ f2c_dtrmv
-#define ctrmv_ f2c_ctrmv
-#define ztrmv_ f2c_ztrmv
-#define stbmv_ f2c_stbmv
-#define dtbmv_ f2c_dtbmv
-#define ctbmv_ f2c_ctbmv
-#define ztbmv_ f2c_ztbmv
-#define stpmv_ f2c_stpmv
-#define dtpmv_ f2c_dtpmv
-#define ctpmv_ f2c_ctpmv
-#define ztpmv_ f2c_ztpmv
-#define strsv_ f2c_strsv
-#define dtrsv_ f2c_dtrsv
-#define ctrsv_ f2c_ctrsv
-#define ztrsv_ f2c_ztrsv
-#define stbsv_ f2c_stbsv
-#define dtbsv_ f2c_dtbsv
-#define ctbsv_ f2c_ctbsv
-#define ztbsv_ f2c_ztbsv
-#define stpsv_ f2c_stpsv
-#define dtpsv_ f2c_dtpsv
-#define ctpsv_ f2c_ctpsv
-#define ztpsv_ f2c_ztpsv
-#define sger_ f2c_sger
-#define dger_ f2c_dger
-#define cgeru_ f2c_cgeru
-#define zgeru_ f2c_zgeru
-#define cgerc_ f2c_cgerc
-#define zgerc_ f2c_zgerc
-#define cher_ f2c_cher
-#define zher_ f2c_zher
-#define chpr_ f2c_chpr
-#define zhpr_ f2c_zhpr
-#define cher2_ f2c_cher2
-#define zher2_ f2c_zher2
-#define chpr2_ f2c_chpr2
-#define zhpr2_ f2c_zhpr2
-#define ssyr_ f2c_ssyr
-#define dsyr_ f2c_dsyr
-#define sspr_ f2c_sspr
-#define dspr_ f2c_dspr
-#define ssyr2_ f2c_ssyr2
-#define dsyr2_ f2c_dsyr2
-#define sspr2_ f2c_sspr2
-#define dspr2_ f2c_dspr2
+#define _starpu_sgemv_ f2c_sgemv
+#define _starpu_dgemv_ f2c_dgemv
+#define _starpu_cgemv_ f2c_cgemv
+#define _starpu_zgemv_ f2c_zgemv
+#define _starpu_sgbmv_ f2c_sgbmv
+#define _starpu_dgbmv_ f2c_dgbmv
+#define _starpu_cgbmv_ f2c_cgbmv
+#define _starpu_zgbmv_ f2c_zgbmv
+#define _starpu_chemv_ f2c_chemv
+#define _starpu_zhemv_ f2c_zhemv
+#define _starpu_chbmv_ f2c_chbmv
+#define _starpu_zhbmv_ f2c_zhbmv
+#define _starpu_chpmv_ f2c_chpmv
+#define _starpu_zhpmv_ f2c_zhpmv
+#define _starpu_ssymv_ f2c_ssymv
+#define _starpu_dsymv_ f2c_dsymv
+#define _starpu_ssbmv_ f2c_ssbmv
+#define _starpu_dsbmv_ f2c_dsbmv
+#define _starpu_sspmv_ f2c_sspmv
+#define _starpu_dspmv_ f2c_dspmv
+#define _starpu_strmv_ f2c_strmv
+#define _starpu_dtrmv_ f2c_dtrmv
+#define _starpu_ctrmv_ f2c_ctrmv
+#define _starpu_ztrmv_ f2c_ztrmv
+#define _starpu_stbmv_ f2c_stbmv
+#define _starpu_dtbmv_ f2c_dtbmv
+#define _starpu_ctbmv_ f2c_ctbmv
+#define _starpu_ztbmv_ f2c_ztbmv
+#define _starpu_stpmv_ f2c_stpmv
+#define _starpu_dtpmv_ f2c_dtpmv
+#define _starpu_ctpmv_ f2c_ctpmv
+#define _starpu_ztpmv_ f2c_ztpmv
+#define _starpu_strsv_ f2c_strsv
+#define _starpu_dtrsv_ f2c_dtrsv
+#define _starpu_ctrsv_ f2c_ctrsv
+#define _starpu_ztrsv_ f2c_ztrsv
+#define _starpu_stbsv_ f2c_stbsv
+#define _starpu_dtbsv_ f2c_dtbsv
+#define _starpu_ctbsv_ f2c_ctbsv
+#define _starpu_ztbsv_ f2c_ztbsv
+#define _starpu_stpsv_ f2c_stpsv
+#define _starpu_dtpsv_ f2c_dtpsv
+#define _starpu_ctpsv_ f2c_ctpsv
+#define _starpu_ztpsv_ f2c_ztpsv
+#define _starpu_sger_ f2c_sger
+#define _starpu_dger_ f2c_dger
+#define _starpu_cgeru_ f2c_cgeru
+#define _starpu_zgeru_ f2c_zgeru
+#define _starpu_cgerc_ f2c_cgerc
+#define _starpu_zgerc_ f2c_zgerc
+#define _starpu_cher_ f2c_cher
+#define _starpu_zher_ f2c_zher
+#define _starpu_chpr_ f2c_chpr
+#define _starpu_zhpr_ f2c_zhpr
+#define _starpu_cher2_ f2c_cher2
+#define _starpu_zher2_ f2c_zher2
+#define _starpu_chpr2_ f2c_chpr2
+#define _starpu_zhpr2_ f2c_zhpr2
+#define _starpu_ssyr_ f2c_ssyr
+#define _starpu_dsyr_ f2c_dsyr
+#define _starpu_sspr_ f2c_sspr
+#define _starpu_dspr_ f2c_dspr
+#define _starpu_ssyr2_ f2c_ssyr2
+#define _starpu_dsyr2_ f2c_dsyr2
+#define _starpu_sspr2_ f2c_sspr2
+#define _starpu_dspr2_ f2c_dspr2
  
 /* BLAS3 routines */
-#define sgemm_ f2c_sgemm
-#define dgemm_ f2c_dgemm
-#define cgemm_ f2c_cgemm
-#define zgemm_ f2c_zgemm
-#define ssymm_ f2c_ssymm
-#define dsymm_ f2c_dsymm
-#define csymm_ f2c_csymm
-#define zsymm_ f2c_zsymm
-#define chemm_ f2c_chemm
-#define zhemm_ f2c_zhemm
-#define ssyrk_ f2c_ssyrk
-#define dsyrk_ f2c_dsyrk
-#define csyrk_ f2c_csyrk
-#define zsyrk_ f2c_zsyrk
-#define cherk_ f2c_cherk
-#define zherk_ f2c_zherk
-#define ssyr2k_ f2c_ssyr2k
-#define dsyr2k_ f2c_dsyr2k
-#define csyr2k_ f2c_csyr2k
-#define zsyr2k_ f2c_zsyr2k
-#define cher2k_ f2c_cher2k
-#define zher2k_ f2c_zher2k
-#define strmm_ f2c_strmm
-#define dtrmm_ f2c_dtrmm
-#define ctrmm_ f2c_ctrmm
-#define ztrmm_ f2c_ztrmm
-#define strsm_ f2c_strsm
-#define dtrsm_ f2c_dtrsm
-#define ctrsm_ f2c_ctrsm
-#define ztrsm_ f2c_ztrsm
+#define _starpu_sgemm_ f2c_sgemm
+#define _starpu_dgemm_ f2c_dgemm
+#define _starpu_cgemm_ f2c_cgemm
+#define _starpu_zgemm_ f2c_zgemm
+#define _starpu_ssymm_ f2c_ssymm
+#define _starpu_dsymm_ f2c_dsymm
+#define _starpu_csymm_ f2c_csymm
+#define _starpu_zsymm_ f2c_zsymm
+#define _starpu_chemm_ f2c_chemm
+#define _starpu_zhemm_ f2c_zhemm
+#define _starpu_ssyrk_ f2c_ssyrk
+#define _starpu_dsyrk_ f2c_dsyrk
+#define _starpu_csyrk_ f2c_csyrk
+#define _starpu_zsyrk_ f2c_zsyrk
+#define _starpu_cherk_ f2c_cherk
+#define _starpu_zherk_ f2c_zherk
+#define _starpu_ssyr2k_ f2c_ssyr2k
+#define _starpu_dsyr2k_ f2c_dsyr2k
+#define _starpu_csyr2k_ f2c_csyr2k
+#define _starpu_zsyr2k_ f2c_zsyr2k
+#define _starpu_cher2k_ f2c_cher2k
+#define _starpu_zher2k_ f2c_zher2k
+#define _starpu_strmm_ f2c_strmm
+#define _starpu_dtrmm_ f2c_dtrmm
+#define _starpu_ctrmm_ f2c_ctrmm
+#define _starpu_ztrmm_ f2c_ztrmm
+#define _starpu_strsm_ f2c_strsm
+#define _starpu_dtrsm_ f2c_dtrsm
+#define _starpu_ctrsm_ f2c_ctrsm
+#define _starpu_ztrsm_ f2c_ztrsm
 
 #endif /* NO_BLAS_WRAP */
 

min-dgels/additional/dcopy.c

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-/* Subroutine */ int dcopy_(integer *n, doublereal *dx, integer *incx, 
+/* Subroutine */ int _starpu_dcopy_(integer *n, doublereal *dx, integer *incx, 
 	doublereal *dy, integer *incy)
 {
     /* System generated locals */
@@ -104,4 +104,4 @@ L40:
 /* L50: */
     }
     return 0;
-} /* dcopy_ */
+} /* _starpu_dcopy_ */

min-dgels/additional/dgelq2.c

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-/* Subroutine */ int dgelq2_(integer *m, integer *n, doublereal *a, integer *
+/* Subroutine */ int _starpu_dgelq2_(integer *m, integer *n, doublereal *a, integer *
 	lda, doublereal *tau, doublereal *work, integer *info)
 {
     /* System generated locals */
@@ -22,10 +22,10 @@
     /* Local variables */
     integer i__, k;
     doublereal aii;
-    extern /* Subroutine */ int dlarf_(char *, integer *, integer *, 
+    extern /* Subroutine */ int _starpu_dlarf_(char *, integer *, integer *, 
 	    doublereal *, integer *, doublereal *, doublereal *, integer *, 
-	    doublereal *), dlarfp_(integer *, doublereal *, 
-	    doublereal *, integer *, doublereal *), xerbla_(char *, integer *);
+	    doublereal *), _starpu_dlarfp_(integer *, doublereal *, 
+	    doublereal *, integer *, doublereal *), _starpu_xerbla_(char *, integer *);
 
 
 /*  -- LAPACK routine (version 3.2) -- */
@@ -120,7 +120,7 @@
     }
     if (*info != 0) {
 	i__1 = -(*info);
-	xerbla_("DGELQ2", &i__1);
+	_starpu_xerbla_("DGELQ2", &i__1);
 	return 0;
     }
 
@@ -134,7 +134,7 @@
 	i__2 = *n - i__ + 1;
 /* Computing MIN */
 	i__3 = i__ + 1;
-	dlarfp_(&i__2, &a[i__ + i__ * a_dim1], &a[i__ + min(i__3, *n)* a_dim1]
+	_starpu_dlarfp_(&i__2, &a[i__ + i__ * a_dim1], &a[i__ + min(i__3, *n)* a_dim1]
 , lda, &tau[i__]);
 	if (i__ < *m) {
 
@@ -144,7 +144,7 @@
 	    a[i__ + i__ * a_dim1] = 1.;
 	    i__2 = *m - i__;
 	    i__3 = *n - i__ + 1;
-	    dlarf_("Right", &i__2, &i__3, &a[i__ + i__ * a_dim1], lda, &tau[
+	    _starpu_dlarf_("Right", &i__2, &i__3, &a[i__ + i__ * a_dim1], lda, &tau[
 		    i__], &a[i__ + 1 + i__ * a_dim1], lda, &work[1]);
 	    a[i__ + i__ * a_dim1] = aii;
 	}
@@ -154,4 +154,4 @@
 
 /*     End of DGELQ2 */
 
-} /* dgelq2_ */
+} /* _starpu_dgelq2_ */

min-dgels/additional/dgelqf.c

@@ -20,7 +20,7 @@ static integer c_n1 = -1;
 static integer c__3 = 3;
 static integer c__2 = 2;
 
-/* Subroutine */ int dgelqf_(integer *m, integer *n, doublereal *a, integer *
+/* Subroutine */ int _starpu_dgelqf_(integer *m, integer *n, doublereal *a, integer *
 	lda, doublereal *tau, doublereal *work, integer *lwork, integer *info)
 {
     /* System generated locals */
@@ -28,13 +28,13 @@ static integer c__2 = 2;
 
     /* Local variables */
     integer i__, k, ib, nb, nx, iws, nbmin, iinfo;
-    extern /* Subroutine */ int dgelq2_(integer *, integer *, doublereal *, 
-	    integer *, doublereal *, doublereal *, integer *), dlarfb_(char *, 
+    extern /* Subroutine */ int _starpu_dgelq2_(integer *, integer *, doublereal *, 
+	    integer *, doublereal *, doublereal *, integer *), _starpu_dlarfb_(char *, 
 	     char *, char *, char *, integer *, integer *, integer *, 
 	    doublereal *, integer *, doublereal *, integer *, doublereal *, 
-	    integer *, doublereal *, integer *), dlarft_(char *, char *, integer *, integer *, doublereal 
-	    *, integer *, doublereal *, doublereal *, integer *), xerbla_(char *, integer *);
-    extern integer ilaenv_(integer *, char *, char *, integer *, integer *, 
+	    integer *, doublereal *, integer *), _starpu_dlarft_(char *, char *, integer *, integer *, doublereal 
+	    *, integer *, doublereal *, doublereal *, integer *), _starpu_xerbla_(char *, integer *);
+    extern integer _starpu_ilaenv_(integer *, char *, char *, integer *, integer *, 
 	    integer *, integer *);
     integer ldwork, lwkopt;
     logical lquery;
@@ -134,7 +134,7 @@ static integer c__2 = 2;
 
     /* Function Body */
     *info = 0;
-    nb = ilaenv_(&c__1, "DGELQF", " ", m, n, &c_n1, &c_n1);
+    nb = _starpu_ilaenv_(&c__1, "DGELQF", " ", m, n, &c_n1, &c_n1);
     lwkopt = *m * nb;
     work[1] = (doublereal) lwkopt;
     lquery = *lwork == -1;
@@ -149,7 +149,7 @@ static integer c__2 = 2;
     }
     if (*info != 0) {
 	i__1 = -(*info);
-	xerbla_("DGELQF", &i__1);
+	_starpu_xerbla_("DGELQF", &i__1);
 	return 0;
     } else if (lquery) {
 	return 0;
@@ -171,7 +171,7 @@ static integer c__2 = 2;
 /*        Determine when to cross over from blocked to unblocked code. */
 
 /* Computing MAX */
-	i__1 = 0, i__2 = ilaenv_(&c__3, "DGELQF", " ", m, n, &c_n1, &c_n1);
+	i__1 = 0, i__2 = _starpu_ilaenv_(&c__3, "DGELQF", " ", m, n, &c_n1, &c_n1);
 	nx = max(i__1,i__2);
 	if (nx < k) {
 
@@ -186,7 +186,7 @@ static integer c__2 = 2;
 
 		nb = *lwork / ldwork;
 /* Computing MAX */
-		i__1 = 2, i__2 = ilaenv_(&c__2, "DGELQF", " ", m, n, &c_n1, &
+		i__1 = 2, i__2 = _starpu_ilaenv_(&c__2, "DGELQF", " ", m, n, &c_n1, &
 			c_n1);
 		nbmin = max(i__1,i__2);
 	    }
@@ -208,7 +208,7 @@ static integer c__2 = 2;
 /*           A(i:i+ib-1,i:n) */
 
 	    i__3 = *n - i__ + 1;
-	    dgelq2_(&ib, &i__3, &a[i__ + i__ * a_dim1], lda, &tau[i__], &work[
+	    _starpu_dgelq2_(&ib, &i__3, &a[i__ + i__ * a_dim1], lda, &tau[i__], &work[
 		    1], &iinfo);
 	    if (i__ + ib <= *m) {
 
@@ -216,14 +216,14 @@ static integer c__2 = 2;
 /*              H = H(i) H(i+1) . . . H(i+ib-1) */
 
 		i__3 = *n - i__ + 1;
-		dlarft_("Forward", "Rowwise", &i__3, &ib, &a[i__ + i__ * 
+		_starpu_dlarft_("Forward", "Rowwise", &i__3, &ib, &a[i__ + i__ * 
 			a_dim1], lda, &tau[i__], &work[1], &ldwork);
 
 /*              Apply H to A(i+ib:m,i:n) from the right */
 
 		i__3 = *m - i__ - ib + 1;
 		i__4 = *n - i__ + 1;
-		dlarfb_("Right", "No transpose", "Forward", "Rowwise", &i__3, 
+		_starpu_dlarfb_("Right", "No transpose", "Forward", "Rowwise", &i__3, 
 			&i__4, &ib, &a[i__ + i__ * a_dim1], lda, &work[1], &
 			ldwork, &a[i__ + ib + i__ * a_dim1], lda, &work[ib + 
 			1], &ldwork);
@@ -239,7 +239,7 @@ static integer c__2 = 2;
     if (i__ <= k) {
 	i__2 = *m - i__ + 1;
 	i__1 = *n - i__ + 1;
-	dgelq2_(&i__2, &i__1, &a[i__ + i__ * a_dim1], lda, &tau[i__], &work[1]
+	_starpu_dgelq2_(&i__2, &i__1, &a[i__ + i__ * a_dim1], lda, &tau[i__], &work[1]
 , &iinfo);
     }
 
@@ -248,4 +248,4 @@ static integer c__2 = 2;
 
 /*     End of DGELQF */
 
-} /* dgelqf_ */
+} /* _starpu_dgelqf_ */

min-dgels/additional/dgels.c

@@ -20,7 +20,7 @@ static integer c_n1 = -1;
 static doublereal c_b33 = 0.;
 static integer c__0 = 0;
 
-/* Subroutine */ int dgels_(char *trans, integer *m, integer *n, integer *
+/* Subroutine */ int _starpu_dgels_(char *trans, integer *m, integer *n, integer *
 	nrhs, doublereal *a, integer *lda, doublereal *b, integer *ldb, 
 	doublereal *work, integer *lwork, integer *info)
 {
@@ -33,33 +33,33 @@ static integer c__0 = 0;
     integer brow;
     logical tpsd;
     integer iascl, ibscl;
-    extern logical lsame_(char *, char *);
+    extern logical _starpu_lsame_(char *, char *);
     integer wsize;
     doublereal rwork[1];
-    extern /* Subroutine */ int dlabad_(doublereal *, doublereal *);
-    extern doublereal dlamch_(char *), dlange_(char *, integer *, 
+    extern /* Subroutine */ int _starpu_dlabad_(doublereal *, doublereal *);
+    extern doublereal _starpu_dlamch_(char *), _starpu_dlange_(char *, integer *, 
 	    integer *, doublereal *, integer *, doublereal *);
-    extern /* Subroutine */ int dgelqf_(integer *, integer *, doublereal *, 
+    extern /* Subroutine */ int _starpu_dgelqf_(integer *, integer *, doublereal *, 
 	    integer *, doublereal *, doublereal *, integer *, integer *), 
-	    dlascl_(char *, integer *, integer *, doublereal *, doublereal *, 
+	    _starpu_dlascl_(char *, integer *, integer *, doublereal *, doublereal *, 
 	    integer *, integer *, doublereal *, integer *, integer *),
-	     dgeqrf_(integer *, integer *, doublereal *, integer *, 
-	    doublereal *, doublereal *, integer *, integer *), dlaset_(char *, 
+	     _starpu_dgeqrf_(integer *, integer *, doublereal *, integer *, 
+	    doublereal *, doublereal *, integer *, integer *), _starpu_dlaset_(char *, 
 	     integer *, integer *, doublereal *, doublereal *, doublereal *, 
-	    integer *), xerbla_(char *, integer *);
-    extern integer ilaenv_(integer *, char *, char *, integer *, integer *, 
+	    integer *), _starpu_xerbla_(char *, integer *);
+    extern integer _starpu_ilaenv_(integer *, char *, char *, integer *, integer *, 
 	    integer *, integer *);
     integer scllen;
     doublereal bignum;
-    extern /* Subroutine */ int dormlq_(char *, char *, integer *, integer *, 
+    extern /* Subroutine */ int _starpu_dormlq_(char *, char *, integer *, integer *, 
 	    integer *, doublereal *, integer *, doublereal *, doublereal *, 
 	    integer *, doublereal *, integer *, integer *), 
-	    dormqr_(char *, char *, integer *, integer *, integer *, 
+	    _starpu_dormqr_(char *, char *, integer *, integer *, integer *, 
 	    doublereal *, integer *, doublereal *, doublereal *, integer *, 
 	    doublereal *, integer *, integer *);
     doublereal smlnum;
     logical lquery;
-    extern /* Subroutine */ int dtrtrs_(char *, char *, char *, integer *, 
+    extern /* Subroutine */ int _starpu_dtrtrs_(char *, char *, char *, integer *, 
 	    integer *, doublereal *, integer *, doublereal *, integer *, 
 	    integer *);
 
@@ -205,7 +205,7 @@ static integer c__0 = 0;
     *info = 0;
     mn = min(*m,*n);
     lquery = *lwork == -1;
-    if (! (lsame_(trans, "N") || lsame_(trans, "T"))) {
+    if (! (_starpu_lsame_(trans, "N") || _starpu_lsame_(trans, "T"))) {
 	*info = -1;
     } else if (*m < 0) {
 	*info = -2;
@@ -234,33 +234,33 @@ static integer c__0 = 0;
     if (*info == 0 || *info == -10) {
 
 	tpsd = TRUE_;
-	if (lsame_(trans, "N")) {
+	if (_starpu_lsame_(trans, "N")) {
 	    tpsd = FALSE_;
 	}
 
 	if (*m >= *n) {
-	    nb = ilaenv_(&c__1, "DGEQRF", " ", m, n, &c_n1, &c_n1);
+	    nb = _starpu_ilaenv_(&c__1, "DGEQRF", " ", m, n, &c_n1, &c_n1);
 	    if (tpsd) {
 /* Computing MAX */
-		i__1 = nb, i__2 = ilaenv_(&c__1, "DORMQR", "LN", m, nrhs, n, &
+		i__1 = nb, i__2 = _starpu_ilaenv_(&c__1, "DORMQR", "LN", m, nrhs, n, &
 			c_n1);
 		nb = max(i__1,i__2);
 	    } else {
 /* Computing MAX */
-		i__1 = nb, i__2 = ilaenv_(&c__1, "DORMQR", "LT", m, nrhs, n, &
+		i__1 = nb, i__2 = _starpu_ilaenv_(&c__1, "DORMQR", "LT", m, nrhs, n, &
 			c_n1);
 		nb = max(i__1,i__2);
 	    }
 	} else {
-	    nb = ilaenv_(&c__1, "DGELQF", " ", m, n, &c_n1, &c_n1);
+	    nb = _starpu_ilaenv_(&c__1, "DGELQF", " ", m, n, &c_n1, &c_n1);
 	    if (tpsd) {
 /* Computing MAX */
-		i__1 = nb, i__2 = ilaenv_(&c__1, "DORMLQ", "LT", n, nrhs, m, &
+		i__1 = nb, i__2 = _starpu_ilaenv_(&c__1, "DORMLQ", "LT", n, nrhs, m, &
 			c_n1);
 		nb = max(i__1,i__2);
 	    } else {
 /* Computing MAX */
-		i__1 = nb, i__2 = ilaenv_(&c__1, "DORMLQ", "LN", n, nrhs, m, &
+		i__1 = nb, i__2 = _starpu_ilaenv_(&c__1, "DORMLQ", "LN", n, nrhs, m, &
 			c_n1);
 		nb = max(i__1,i__2);
 	    }
@@ -275,7 +275,7 @@ static integer c__0 = 0;
 
     if (*info != 0) {
 	i__1 = -(*info);
-	xerbla_("DGELS ", &i__1);
+	_starpu_xerbla_("DGELS ", &i__1);
 	return 0;
     } else if (lquery) {
 	return 0;
@@ -287,32 +287,32 @@ static integer c__0 = 0;
     i__1 = min(*m,*n);
     if (min(i__1,*nrhs) == 0) {
 	i__1 = max(*m,*n);
-	dlaset_("Full", &i__1, nrhs, &c_b33, &c_b33, &b[b_offset], ldb);
+	_starpu_dlaset_("Full", &i__1, nrhs, &c_b33, &c_b33, &b[b_offset], ldb);
 	return 0;
     }
 
 /*     Get machine parameters */
 
-    smlnum = dlamch_("S") / dlamch_("P");
+    smlnum = _starpu_dlamch_("S") / _starpu_dlamch_("P");
     bignum = 1. / smlnum;
-    dlabad_(&smlnum, &bignum);
+    _starpu_dlabad_(&smlnum, &bignum);
 
 /*     Scale A, B if max element outside range [SMLNUM,BIGNUM] */
 
-    anrm = dlange_("M", m, n, &a[a_offset], lda, rwork);
+    anrm = _starpu_dlange_("M", m, n, &a[a_offset], lda, rwork);
     iascl = 0;
     if (anrm > 0. && anrm < smlnum) {
 
 /*        Scale matrix norm up to SMLNUM */
 
-	dlascl_("G", &c__0, &c__0, &anrm, &smlnum, m, n, &a[a_offset], lda, 
+	_starpu_dlascl_("G", &c__0, &c__0, &anrm, &smlnum, m, n, &a[a_offset], lda, 
 		info);
 	iascl = 1;
     } else if (anrm > bignum) {
 
 /*        Scale matrix norm down to BIGNUM */
 
-	dlascl_("G", &c__0, &c__0, &anrm, &bignum, m, n, &a[a_offset], lda, 
+	_starpu_dlascl_("G", &c__0, &c__0, &anrm, &bignum, m, n, &a[a_offset], lda, 
 		info);
 	iascl = 2;
     } else if (anrm == 0.) {
@@ -320,7 +320,7 @@ static integer c__0 = 0;
 /*        Matrix all zero. Return zero solution. */
 
 	i__1 = max(*m,*n);
-	dlaset_("F", &i__1, nrhs, &c_b33, &c_b33, &b[b_offset], ldb);
+	_starpu_dlaset_("F", &i__1, nrhs, &c_b33, &c_b33, &b[b_offset], ldb);
 	goto L50;
     }
 
@@ -328,20 +328,20 @@ static integer c__0 = 0;
     if (tpsd) {
 	brow = *n;
     }
-    bnrm = dlange_("M", &brow, nrhs, &b[b_offset], ldb, rwork);
+    bnrm = _starpu_dlange_("M", &brow, nrhs, &b[b_offset], ldb, rwork);
     ibscl = 0;
     if (bnrm > 0. && bnrm < smlnum) {
 
 /*        Scale matrix norm up to SMLNUM */
 
-	dlascl_("G", &c__0, &c__0, &bnrm, &smlnum, &brow, nrhs, &b[b_offset], 
+	_starpu_dlascl_("G", &c__0, &c__0, &bnrm, &smlnum, &brow, nrhs, &b[b_offset], 
 		ldb, info);
 	ibscl = 1;
     } else if (bnrm > bignum) {
 
 /*        Scale matrix norm down to BIGNUM */
 
-	dlascl_("G", &c__0, &c__0, &bnrm, &bignum, &brow, nrhs, &b[b_offset], 
+	_starpu_dlascl_("G", &c__0, &c__0, &bnrm, &bignum, &brow, nrhs, &b[b_offset], 
 		ldb, info);
 	ibscl = 2;
     }
@@ -351,7 +351,7 @@ static integer c__0 = 0;
 /*        compute QR factorization of A */
 
 	i__1 = *lwork - mn;
-	dgeqrf_(m, n, &a[a_offset], lda, &work[1], &work[mn + 1], &i__1, info)
+	_starpu_dgeqrf_(m, n, &a[a_offset], lda, &work[1], &work[mn + 1], &i__1, info)
 		;
 
 /*        workspace at least N, optimally N*NB */
@@ -363,14 +363,14 @@ static integer c__0 = 0;
 /*           B(1:M,1:NRHS) := Q' * B(1:M,1:NRHS) */
 
 	    i__1 = *lwork - mn;
-	    dormqr_("Left", "Transpose", m, nrhs, n, &a[a_offset], lda, &work[
+	    _starpu_dormqr_("Left", "Transpose", m, nrhs, n, &a[a_offset], lda, &work[
 		    1], &b[b_offset], ldb, &work[mn + 1], &i__1, info);
 
 /*           workspace at least NRHS, optimally NRHS*NB */
 
 /*           B(1:N,1:NRHS) := inv(R) * B(1:N,1:NRHS) */
 
-	    dtrtrs_("Upper", "No transpose", "Non-unit", n, nrhs, &a[a_offset]
+	    _starpu_dtrtrs_("Upper", "No transpose", "Non-unit", n, nrhs, &a[a_offset]
 , lda, &b[b_offset], ldb, info);
 
 	    if (*info > 0) {
@@ -385,7 +385,7 @@ static integer c__0 = 0;
 
 /*           B(1:N,1:NRHS) := inv(R') * B(1:N,1:NRHS) */
 
-	    dtrtrs_("Upper", "Transpose", "Non-unit", n, nrhs, &a[a_offset], 
+	    _starpu_dtrtrs_("Upper", "Transpose", "Non-unit", n, nrhs, &a[a_offset], 
 		    lda, &b[b_offset], ldb, info);
 
 	    if (*info > 0) {
@@ -407,7 +407,7 @@ static integer c__0 = 0;
 /*           B(1:M,1:NRHS) := Q(1:N,:) * B(1:N,1:NRHS) */
 
 	    i__1 = *lwork - mn;
-	    dormqr_("Left", "No transpose", m, nrhs, n, &a[a_offset], lda, &
+	    _starpu_dormqr_("Left", "No transpose", m, nrhs, n, &a[a_offset], lda, &
 		    work[1], &b[b_offset], ldb, &work[mn + 1], &i__1, info);
 
 /*           workspace at least NRHS, optimally NRHS*NB */
@@ -421,7 +421,7 @@ static integer c__0 = 0;
 /*        Compute LQ factorization of A */
 
 	i__1 = *lwork - mn;
-	dgelqf_(m, n, &a[a_offset], lda, &work[1], &work[mn + 1], &i__1, info)
+	_starpu_dgelqf_(m, n, &a[a_offset], lda, &work[1], &work[mn + 1], &i__1, info)
 		;
 
 /*        workspace at least M, optimally M*NB. */
@@ -432,7 +432,7 @@ static integer c__0 = 0;
 
 /*           B(1:M,1:NRHS) := inv(L) * B(1:M,1:NRHS) */
 
-	    dtrtrs_("Lower", "No transpose", "Non-unit", m, nrhs, &a[a_offset]
+	    _starpu_dtrtrs_("Lower", "No transpose", "Non-unit", m, nrhs, &a[a_offset]
 , lda, &b[b_offset], ldb, info);
 
 	    if (*info > 0) {
@@ -454,7 +454,7 @@ static integer c__0 = 0;
 /*           B(1:N,1:NRHS) := Q(1:N,:)' * B(1:M,1:NRHS) */
 
 	    i__1 = *lwork - mn;
-	    dormlq_("Left", "Transpose", n, nrhs, m, &a[a_offset], lda, &work[
+	    _starpu_dormlq_("Left", "Transpose", n, nrhs, m, &a[a_offset], lda, &work[
 		    1], &b[b_offset], ldb, &work[mn + 1], &i__1, info);
 
 /*           workspace at least NRHS, optimally NRHS*NB */
@@ -468,14 +468,14 @@ static integer c__0 = 0;
 /*           B(1:N,1:NRHS) := Q * B(1:N,1:NRHS) */
 
 	    i__1 = *lwork - mn;
-	    dormlq_("Left", "No transpose", n, nrhs, m, &a[a_offset], lda, &
+	    _starpu_dormlq_("Left", "No transpose", n, nrhs, m, &a[a_offset], lda, &
 		    work[1], &b[b_offset], ldb, &work[mn + 1], &i__1, info);
 
 /*           workspace at least NRHS, optimally NRHS*NB */
 
 /*           B(1:M,1:NRHS) := inv(L') * B(1:M,1:NRHS) */
 
-	    dtrtrs_("Lower", "Transpose", "Non-unit", m, nrhs, &a[a_offset], 
+	    _starpu_dtrtrs_("Lower", "Transpose", "Non-unit", m, nrhs, &a[a_offset], 
 		    lda, &b[b_offset], ldb, info);
 
 	    if (*info > 0) {
@@ -491,17 +491,17 @@ static integer c__0 = 0;
 /*     Undo scaling */
 
     if (iascl == 1) {
-	dlascl_("G", &c__0, &c__0, &anrm, &smlnum, &scllen, nrhs, &b[b_offset]
+	_starpu_dlascl_("G", &c__0, &c__0, &anrm, &smlnum, &scllen, nrhs, &b[b_offset]
 , ldb, info);
     } else if (iascl == 2) {
-	dlascl_("G", &c__0, &c__0, &anrm, &bignum, &scllen, nrhs, &b[b_offset]
+	_starpu_dlascl_("G", &c__0, &c__0, &anrm, &bignum, &scllen, nrhs, &b[b_offset]
 , ldb, info);
     }
     if (ibscl == 1) {
-	dlascl_("G", &c__0, &c__0, &smlnum, &bnrm, &scllen, nrhs, &b[b_offset]
+	_starpu_dlascl_("G", &c__0, &c__0, &smlnum, &bnrm, &scllen, nrhs, &b[b_offset]
 , ldb, info);
     } else if (ibscl == 2) {
-	dlascl_("G", &c__0, &c__0, &bignum, &bnrm, &scllen, nrhs, &b[b_offset]
+	_starpu_dlascl_("G", &c__0, &c__0, &bignum, &bnrm, &scllen, nrhs, &b[b_offset]
 , ldb, info);
     }
 
@@ -512,4 +512,4 @@ L50:
 
 /*     End of DGELS */
 
-} /* dgels_ */
+} /* _starpu_dgels_ */

min-dgels/additional/dgemm.c

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-/* Subroutine */ int dgemm_(char *transa, char *transb, integer *m, integer *
+/* Subroutine */ int _starpu_dgemm_(char *transa, char *transb, integer *m, integer *
 	n, integer *k, doublereal *alpha, doublereal *a, integer *lda, 
 	doublereal *b, integer *ldb, doublereal *beta, doublereal *c__, 
 	integer *ldc)
@@ -27,9 +27,9 @@
     logical nota, notb;
     doublereal temp;
     integer ncola;
-    extern logical lsame_(char *, char *);
+    extern logical _starpu_lsame_(char *, char *);
     integer nrowa, nrowb;
-    extern /* Subroutine */ int xerbla_(char *, integer *);
+    extern /* Subroutine */ int _starpu_xerbla_(char *, integer *);
 
 /*     .. Scalar Arguments .. */
 /*     .. */
@@ -183,8 +183,8 @@
     c__ -= c_offset;
 
     /* Function Body */
-    nota = lsame_(transa, "N");
-    notb = lsame_(transb, "N");
+    nota = _starpu_lsame_(transa, "N");
+    notb = _starpu_lsame_(transb, "N");
     if (nota) {
 	nrowa = *m;
 	ncola = *k;
@@ -201,11 +201,11 @@
 /*     Test the input parameters. */
 
     info = 0;
-    if (! nota && ! lsame_(transa, "C") && ! lsame_(
+    if (! nota && ! _starpu_lsame_(transa, "C") && ! _starpu_lsame_(
 	    transa, "T")) {
 	info = 1;
-    } else if (! notb && ! lsame_(transb, "C") && ! 
-	    lsame_(transb, "T")) {
+    } else if (! notb && ! _starpu_lsame_(transb, "C") && ! 
+	    _starpu_lsame_(transb, "T")) {
 	info = 2;
     } else if (*m < 0) {
 	info = 3;
@@ -221,7 +221,7 @@
 	info = 13;
     }
     if (info != 0) {
-	xerbla_("DGEMM ", &info);
+	_starpu_xerbla_("DGEMM ", &info);
 	return 0;
     }
 
@@ -386,4 +386,4 @@
 
 /*     End of DGEMM . */
 
-} /* dgemm_ */
+} /* _starpu_dgemm_ */

min-dgels/additional/dgemv.c

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-/* Subroutine */ int dgemv_(char *trans, integer *m, integer *n, doublereal *
+/* Subroutine */ int _starpu_dgemv_(char *trans, integer *m, integer *n, doublereal *
 	alpha, doublereal *a, integer *lda, doublereal *x, integer *incx, 
 	doublereal *beta, doublereal *y, integer *incy)
 {
@@ -24,8 +24,8 @@
     integer i__, j, ix, iy, jx, jy, kx, ky, info;
     doublereal temp;
     integer lenx, leny;
-    extern logical lsame_(char *, char *);
-    extern /* Subroutine */ int xerbla_(char *, integer *);
+    extern logical _starpu_lsame_(char *, char *);
+    extern /* Subroutine */ int _starpu_xerbla_(char *, integer *);
 
 /*     .. Scalar Arguments .. */
 /*     .. */
@@ -145,7 +145,7 @@
 
     /* Function Body */
     info = 0;
-    if (! lsame_(trans, "N") && ! lsame_(trans, "T") && ! lsame_(trans, "C")
+    if (! _starpu_lsame_(trans, "N") && ! _starpu_lsame_(trans, "T") && ! _starpu_lsame_(trans, "C")
 	    ) {
 	info = 1;
     } else if (*m < 0) {
@@ -160,7 +160,7 @@
 	info = 11;
     }
     if (info != 0) {
-	xerbla_("DGEMV ", &info);
+	_starpu_xerbla_("DGEMV ", &info);
 	return 0;
     }
 
@@ -173,7 +173,7 @@
 /*     Set  LENX  and  LENY, the lengths of the vectors x and y, and set */
 /*     up the start points in  X  and  Y. */
 
-    if (lsame_(trans, "N")) {
+    if (_starpu_lsame_(trans, "N")) {
 	lenx = *n;
 	leny = *m;
     } else {
@@ -233,7 +233,7 @@
     if (*alpha == 0.) {
 	return 0;
     }
-    if (lsame_(trans, "N")) {
+    if (_starpu_lsame_(trans, "N")) {
 
 /*        Form  y := alpha*A*x + y. */
 
@@ -309,4 +309,4 @@
 
 /*     End of DGEMV . */
 
-} /* dgemv_ */
+} /* _starpu_dgemv_ */

min-dgels/additional/dgeqr2.c

@@ -17,7 +17,7 @@
 
 static integer c__1 = 1;
 
-/* Subroutine */ int dgeqr2_(integer *m, integer *n, doublereal *a, integer *
+/* Subroutine */ int _starpu_dgeqr2_(integer *m, integer *n, doublereal *a, integer *
 	lda, doublereal *tau, doublereal *work, integer *info)
 {
     /* System generated locals */
@@ -26,10 +26,10 @@ static integer c__1 = 1;
     /* Local variables */
     integer i__, k;
     doublereal aii;
-    extern /* Subroutine */ int dlarf_(char *, integer *, integer *, 
+    extern /* Subroutine */ int _starpu_dlarf_(char *, integer *, integer *, 
 	    doublereal *, integer *, doublereal *, doublereal *, integer *, 
-	    doublereal *), dlarfp_(integer *, doublereal *, 
-	    doublereal *, integer *, doublereal *), xerbla_(char *, integer *);
+	    doublereal *), _starpu_dlarfp_(integer *, doublereal *, 
+	    doublereal *, integer *, doublereal *), _starpu_xerbla_(char *, integer *);
 
 
 /*  -- LAPACK routine (version 3.2) -- */
@@ -124,7 +124,7 @@ static integer c__1 = 1;
     }
     if (*info != 0) {
 	i__1 = -(*info);
-	xerbla_("DGEQR2", &i__1);
+	_starpu_xerbla_("DGEQR2", &i__1);
 	return 0;
     }
 
@@ -138,7 +138,7 @@ static integer c__1 = 1;
 	i__2 = *m - i__ + 1;
 /* Computing MIN */
 	i__3 = i__ + 1;
-	dlarfp_(&i__2, &a[i__ + i__ * a_dim1], &a[min(i__3, *m)+ i__ * a_dim1]
+	_starpu_dlarfp_(&i__2, &a[i__ + i__ * a_dim1], &a[min(i__3, *m)+ i__ * a_dim1]
 , &c__1, &tau[i__]);
 	if (i__ < *n) {
 
@@ -148,7 +148,7 @@ static integer c__1 = 1;
 	    a[i__ + i__ * a_dim1] = 1.;
 	    i__2 = *m - i__ + 1;
 	    i__3 = *n - i__;
-	    dlarf_("Left", &i__2, &i__3, &a[i__ + i__ * a_dim1], &c__1, &tau[
+	    _starpu_dlarf_("Left", &i__2, &i__3, &a[i__ + i__ * a_dim1], &c__1, &tau[
 		    i__], &a[i__ + (i__ + 1) * a_dim1], lda, &work[1]);
 	    a[i__ + i__ * a_dim1] = aii;
 	}
@@ -158,4 +158,4 @@ static integer c__1 = 1;
 
 /*     End of DGEQR2 */
 
-} /* dgeqr2_ */
+} /* _starpu_dgeqr2_ */

min-dgels/additional/dgeqrf.c

@@ -20,7 +20,7 @@ static integer c_n1 = -1;
 static integer c__3 = 3;
 static integer c__2 = 2;
 
-/* Subroutine */ int dgeqrf_(integer *m, integer *n, doublereal *a, integer *
+/* Subroutine */ int _starpu_dgeqrf_(integer *m, integer *n, doublereal *a, integer *
 	lda, doublereal *tau, doublereal *work, integer *lwork, integer *info)
 {
     /* System generated locals */
@@ -28,13 +28,13 @@ static integer c__2 = 2;
 
     /* Local variables */
     integer i__, k, ib, nb, nx, iws, nbmin, iinfo;
-    extern /* Subroutine */ int dgeqr2_(integer *, integer *, doublereal *, 
-	    integer *, doublereal *, doublereal *, integer *), dlarfb_(char *, 
+    extern /* Subroutine */ int _starpu_dgeqr2_(integer *, integer *, doublereal *, 
+	    integer *, doublereal *, doublereal *, integer *), _starpu_dlarfb_(char *, 
 	     char *, char *, char *, integer *, integer *, integer *, 
 	    doublereal *, integer *, doublereal *, integer *, doublereal *, 
-	    integer *, doublereal *, integer *), dlarft_(char *, char *, integer *, integer *, doublereal 
-	    *, integer *, doublereal *, doublereal *, integer *), xerbla_(char *, integer *);
-    extern integer ilaenv_(integer *, char *, char *, integer *, integer *, 
+	    integer *, doublereal *, integer *), _starpu_dlarft_(char *, char *, integer *, integer *, doublereal 
+	    *, integer *, doublereal *, doublereal *, integer *), _starpu_xerbla_(char *, integer *);
+    extern integer _starpu_ilaenv_(integer *, char *, char *, integer *, integer *, 
 	    integer *, integer *);
     integer ldwork, lwkopt;
     logical lquery;
@@ -135,7 +135,7 @@ static integer c__2 = 2;
 
     /* Function Body */
     *info = 0;
-    nb = ilaenv_(&c__1, "DGEQRF", " ", m, n, &c_n1, &c_n1);
+    nb = _starpu_ilaenv_(&c__1, "DGEQRF", " ", m, n, &c_n1, &c_n1);
     lwkopt = *n * nb;
     work[1] = (doublereal) lwkopt;
     lquery = *lwork == -1;
@@ -150,7 +150,7 @@ static integer c__2 = 2;
     }
     if (*info != 0) {
 	i__1 = -(*info);
-	xerbla_("DGEQRF", &i__1);
+	_starpu_xerbla_("DGEQRF", &i__1);
 	return 0;
     } else if (lquery) {
 	return 0;
@@ -172,7 +172,7 @@ static integer c__2 = 2;
 /*        Determine when to cross over from blocked to unblocked code. */
 
 /* Computing MAX */
-	i__1 = 0, i__2 = ilaenv_(&c__3, "DGEQRF", " ", m, n, &c_n1, &c_n1);
+	i__1 = 0, i__2 = _starpu_ilaenv_(&c__3, "DGEQRF", " ", m, n, &c_n1, &c_n1);
 	nx = max(i__1,i__2);
 	if (nx < k) {
 
@@ -187,7 +187,7 @@ static integer c__2 = 2;
 
 		nb = *lwork / ldwork;
 /* Computing MAX */
-		i__1 = 2, i__2 = ilaenv_(&c__2, "DGEQRF", " ", m, n, &c_n1, &
+		i__1 = 2, i__2 = _starpu_ilaenv_(&c__2, "DGEQRF", " ", m, n, &c_n1, &
 			c_n1);
 		nbmin = max(i__1,i__2);
 	    }
@@ -209,7 +209,7 @@ static integer c__2 = 2;
 /*           A(i:m,i:i+ib-1) */
 
 	    i__3 = *m - i__ + 1;
-	    dgeqr2_(&i__3, &ib, &a[i__ + i__ * a_dim1], lda, &tau[i__], &work[
+	    _starpu_dgeqr2_(&i__3, &ib, &a[i__ + i__ * a_dim1], lda, &tau[i__], &work[
 		    1], &iinfo);
 	    if (i__ + ib <= *n) {
 
@@ -217,14 +217,14 @@ static integer c__2 = 2;
 /*              H = H(i) H(i+1) . . . H(i+ib-1) */
 
 		i__3 = *m - i__ + 1;
-		dlarft_("Forward", "Columnwise", &i__3, &ib, &a[i__ + i__ * 
+		_starpu_dlarft_("Forward", "Columnwise", &i__3, &ib, &a[i__ + i__ * 
 			a_dim1], lda, &tau[i__], &work[1], &ldwork);
 
 /*              Apply H' to A(i:m,i+ib:n) from the left */
 
 		i__3 = *m - i__ + 1;
 		i__4 = *n - i__ - ib + 1;
-		dlarfb_("Left", "Transpose", "Forward", "Columnwise", &i__3, &
+		_starpu_dlarfb_("Left", "Transpose", "Forward", "Columnwise", &i__3, &
 			i__4, &ib, &a[i__ + i__ * a_dim1], lda, &work[1], &
 			ldwork, &a[i__ + (i__ + ib) * a_dim1], lda, &work[ib 
 			+ 1], &ldwork);
@@ -240,7 +240,7 @@ static integer c__2 = 2;
     if (i__ <= k) {
 	i__2 = *m - i__ + 1;
 	i__1 = *n - i__ + 1;
-	dgeqr2_(&i__2, &i__1, &a[i__ + i__ * a_dim1], lda, &tau[i__], &work[1]
+	_starpu_dgeqr2_(&i__2, &i__1, &a[i__ + i__ * a_dim1], lda, &tau[i__], &work[1]
 , &iinfo);
     }
 
@@ -249,4 +249,4 @@ static integer c__2 = 2;
 
 /*     End of DGEQRF */
 
-} /* dgeqrf_ */
+} /* _starpu_dgeqrf_ */

min-dgels/additional/dger.c

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-/* Subroutine */ int dger_(integer *m, integer *n, doublereal *alpha, 
+/* Subroutine */ int _starpu_dger_(integer *m, integer *n, doublereal *alpha, 
 	doublereal *x, integer *incx, doublereal *y, integer *incy, 
 	doublereal *a, integer *lda)
 {
@@ -23,7 +23,7 @@
     /* Local variables */
     integer i__, j, ix, jy, kx, info;
     doublereal temp;
-    extern /* Subroutine */ int xerbla_(char *, integer *);
+    extern /* Subroutine */ int _starpu_xerbla_(char *, integer *);
 
 /*     .. Scalar Arguments .. */
 /*     .. */
@@ -132,7 +132,7 @@
 	info = 9;
     }
     if (info != 0) {
-	xerbla_("DGER  ", &info);
+	_starpu_xerbla_("DGER  ", &info);
 	return 0;
     }
 
@@ -191,4 +191,4 @@
 
 /*     End of DGER  . */
 
-} /* dger_ */
+} /* _starpu_dger_ */

min-dgels/additional/disnan.c

@@ -13,13 +13,13 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-logical disnan_(doublereal *din)
+logical _starpu_disnan_(doublereal *din)
 {
     /* System generated locals */
     logical ret_val;
 
     /* Local variables */
-    extern logical dlaisnan_(doublereal *, doublereal *);
+    extern logical _starpu_dlaisnan_(doublereal *, doublereal *);
 
 
 /*  -- LAPACK auxiliary routine (version 3.2) -- */
@@ -47,6 +47,6 @@ logical disnan_(doublereal *din)
 /*  .. External Functions .. */
 /*  .. */
 /*  .. Executable Statements .. */
-    ret_val = dlaisnan_(din, din);
+    ret_val = _starpu_dlaisnan_(din, din);
     return ret_val;
-} /* disnan_ */
+} /* _starpu_disnan_ */

min-dgels/additional/dlabad.c

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-/* Subroutine */ int dlabad_(doublereal *small, doublereal *large)
+/* Subroutine */ int _starpu_dlabad_(doublereal *small, doublereal *large)
 {
     /* Builtin functions */
     double d_lg10(doublereal *), sqrt(doublereal);
@@ -69,4 +69,4 @@
 
 /*     End of DLABAD */
 
-} /* dlabad_ */
+} /* _starpu_dlabad_ */

min-dgels/additional/dlaisnan.c

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-logical dlaisnan_(doublereal *din1, doublereal *din2)
+logical _starpu_dlaisnan_(doublereal *din1, doublereal *din2)
 {
     /* System generated locals */
     logical ret_val;
@@ -55,4 +55,4 @@ logical dlaisnan_(doublereal *din1, doublereal *din2)
 /*  .. Executable Statements .. */
     ret_val = *din1 != *din2;
     return ret_val;
-} /* dlaisnan_ */
+} /* _starpu_dlaisnan_ */

min-dgels/additional/dlamch.c

@@ -18,7 +18,7 @@
 static integer c__1 = 1;
 static doublereal c_b32 = 0.;
 
-doublereal dlamch_(char *cmach)
+doublereal _starpu_dlamch_(char *cmach)
 {
     /* Initialized data */
 
@@ -41,10 +41,10 @@ doublereal dlamch_(char *cmach)
     logical lrnd;
     static doublereal rmin, rmax;
     doublereal rmach;
-    extern logical lsame_(char *, char *);
+    extern logical _starpu_lsame_(char *, char *);
     doublereal small;
     static doublereal sfmin;
-    extern /* Subroutine */ int dlamc2_(integer *, integer *, logical *, 
+    extern /* Subroutine */ int _starpu_dlamc2_(integer *, integer *, logical *, 
 	    doublereal *, integer *, doublereal *, integer *, doublereal *);
 
 
@@ -106,7 +106,7 @@ doublereal dlamch_(char *cmach)
 /*     .. Executable Statements .. */
 
     if (first) {
-	dlamc2_(&beta, &it, &lrnd, &eps, &imin, &rmin, &imax, &rmax);
+	_starpu_dlamc2_(&beta, &it, &lrnd, &eps, &imin, &rmin, &imax, &rmax);
 	base = (doublereal) beta;
 	t = (doublereal) it;
 	if (lrnd) {
@@ -132,25 +132,25 @@ doublereal dlamch_(char *cmach)
 	}
     }
 
-    if (lsame_(cmach, "E")) {
+    if (_starpu_lsame_(cmach, "E")) {
 	rmach = eps;
-    } else if (lsame_(cmach, "S")) {
+    } else if (_starpu_lsame_(cmach, "S")) {
 	rmach = sfmin;
-    } else if (lsame_(cmach, "B")) {
+    } else if (_starpu_lsame_(cmach, "B")) {
 	rmach = base;
-    } else if (lsame_(cmach, "P")) {
+    } else if (_starpu_lsame_(cmach, "P")) {
 	rmach = prec;
-    } else if (lsame_(cmach, "N")) {
+    } else if (_starpu_lsame_(cmach, "N")) {
 	rmach = t;
-    } else if (lsame_(cmach, "R")) {
+    } else if (_starpu_lsame_(cmach, "R")) {
 	rmach = rnd;
-    } else if (lsame_(cmach, "M")) {
+    } else if (_starpu_lsame_(cmach, "M")) {
 	rmach = emin;
-    } else if (lsame_(cmach, "U")) {
+    } else if (_starpu_lsame_(cmach, "U")) {
 	rmach = rmin;
-    } else if (lsame_(cmach, "L")) {
+    } else if (_starpu_lsame_(cmach, "L")) {
 	rmach = emax;
-    } else if (lsame_(cmach, "O")) {
+    } else if (_starpu_lsame_(cmach, "O")) {
 	rmach = rmax;
     }
 
@@ -160,12 +160,12 @@ doublereal dlamch_(char *cmach)
 
 /*     End of DLAMCH */
 
-} /* dlamch_ */
+} /* _starpu_dlamch_ */
 
 
 /* *********************************************************************** */
 
-/* Subroutine */ int dlamc1_(integer *beta, integer *t, logical *rnd, logical 
+/* Subroutine */ int _starpu_dlamc1_(integer *beta, integer *t, logical *rnd, logical 
 	*ieee1)
 {
     /* Initialized data */
@@ -182,7 +182,7 @@ doublereal dlamch_(char *cmach)
     static logical lrnd;
     static integer lbeta;
     doublereal savec;
-    extern doublereal dlamc3_(doublereal *, doublereal *);
+    extern doublereal _starpu_dlamc3_(doublereal *, doublereal *);
     static logical lieee1;
 
 
@@ -265,9 +265,9 @@ doublereal dlamch_(char *cmach)
 L10:
 	if (c__ == one) {
 	    a *= 2;
-	    c__ = dlamc3_(&a, &one);
+	    c__ = _starpu_dlamc3_(&a, &one);
 	    d__1 = -a;
-	    c__ = dlamc3_(&c__, &d__1);
+	    c__ = _starpu_dlamc3_(&c__, &d__1);
 	    goto L10;
 	}
 /* +       END WHILE */
@@ -278,13 +278,13 @@ L10:
 /*           fl( a + b ) .gt. a. */
 
 	b = 1.;
-	c__ = dlamc3_(&a, &b);
+	c__ = _starpu_dlamc3_(&a, &b);
 
 /* +       WHILE( C.EQ.A )LOOP */
 L20:
 	if (c__ == a) {
 	    b *= 2;
-	    c__ = dlamc3_(&a, &b);
+	    c__ = _starpu_dlamc3_(&a, &b);
 	    goto L20;
 	}
 /* +       END WHILE */
@@ -297,7 +297,7 @@ L20:
 	qtr = one / 4;
 	savec = c__;
 	d__1 = -a;
-	c__ = dlamc3_(&c__, &d__1);
+	c__ = _starpu_dlamc3_(&c__, &d__1);
 	lbeta = (integer) (c__ + qtr);
 
 /*        Now determine whether rounding or chopping occurs,  by adding a */
@@ -306,8 +306,8 @@ L20:
 	b = (doublereal) lbeta;
 	d__1 = b / 2;
 	d__2 = -b / 100;
-	f = dlamc3_(&d__1, &d__2);
-	c__ = dlamc3_(&f, &a);
+	f = _starpu_dlamc3_(&d__1, &d__2);
+	c__ = _starpu_dlamc3_(&f, &a);
 	if (c__ == a) {
 	    lrnd = TRUE_;
 	} else {
@@ -315,8 +315,8 @@ L20:
 	}
 	d__1 = b / 2;
 	d__2 = b / 100;
-	f = dlamc3_(&d__1, &d__2);
-	c__ = dlamc3_(&f, &a);
+	f = _starpu_dlamc3_(&d__1, &d__2);
+	c__ = _starpu_dlamc3_(&f, &a);
 	if (lrnd && c__ == a) {
 	    lrnd = FALSE_;
 	}
@@ -328,9 +328,9 @@ L20:
 /*        A, but adding B/2 to SAVEC should change SAVEC. */
 
 	d__1 = b / 2;
-	t1 = dlamc3_(&d__1, &a);
+	t1 = _starpu_dlamc3_(&d__1, &a);
 	d__1 = b / 2;
-	t2 = dlamc3_(&d__1, &savec);
+	t2 = _starpu_dlamc3_(&d__1, &savec);
 	lieee1 = t1 == a && t2 > savec && lrnd;
 
 /*        Now find  the  mantissa, t.  It should  be the  integer part of */
@@ -349,9 +349,9 @@ L30:
 	if (c__ == one) {
 	    ++lt;
 	    a *= lbeta;
-	    c__ = dlamc3_(&a, &one);
+	    c__ = _starpu_dlamc3_(&a, &one);
 	    d__1 = -a;
-	    c__ = dlamc3_(&c__, &d__1);
+	    c__ = _starpu_dlamc3_(&c__, &d__1);
 	    goto L30;
 	}
 /* +       END WHILE */
@@ -367,12 +367,12 @@ L30:
 
 /*     End of DLAMC1 */
 
-} /* dlamc1_ */
+} /* _starpu_dlamc1_ */
 
 
 /* *********************************************************************** */
 
-/* Subroutine */ int dlamc2_(integer *beta, integer *t, logical *rnd, 
+/* Subroutine */ int _starpu_dlamc2_(integer *beta, integer *t, logical *rnd, 
 	doublereal *eps, integer *emin, doublereal *rmin, integer *emax, 
 	doublereal *rmax)
 {
@@ -415,12 +415,12 @@ L30:
     doublereal third;
     static doublereal lrmin, lrmax;
     doublereal sixth;
-    extern /* Subroutine */ int dlamc1_(integer *, integer *, logical *, 
+    extern /* Subroutine */ int _starpu_dlamc1_(integer *, integer *, logical *, 
 	    logical *);
-    extern doublereal dlamc3_(doublereal *, doublereal *);
+    extern doublereal _starpu_dlamc3_(doublereal *, doublereal *);
     logical lieee1;
-    extern /* Subroutine */ int dlamc4_(integer *, doublereal *, integer *), 
-	    dlamc5_(integer *, integer *, integer *, logical *, integer *, 
+    extern /* Subroutine */ int _starpu_dlamc4_(integer *, doublereal *, integer *), 
+	    _starpu_dlamc5_(integer *, integer *, integer *, logical *, integer *, 
 	    doublereal *);
     integer ngnmin, ngpmin;
 
@@ -516,7 +516,7 @@ L30:
 
 /*        DLAMC1 returns the parameters  LBETA, LT, LRND and LIEEE1. */
 
-	dlamc1_(&lbeta, &lt, &lrnd, &lieee1);
+	_starpu_dlamc1_(&lbeta, &lt, &lrnd, &lieee1);
 
 /*        Start to find EPS. */
 
@@ -530,11 +530,11 @@ L30:
 	b = two / 3;
 	half = one / 2;
 	d__1 = -half;
-	sixth = dlamc3_(&b, &d__1);
-	third = dlamc3_(&sixth, &sixth);
+	sixth = _starpu_dlamc3_(&b, &d__1);
+	third = _starpu_dlamc3_(&sixth, &sixth);
 	d__1 = -half;
-	b = dlamc3_(&third, &d__1);
-	b = dlamc3_(&b, &sixth);
+	b = _starpu_dlamc3_(&third, &d__1);
+	b = _starpu_dlamc3_(&b, &sixth);
 	b = abs(b);
 	if (b < leps) {
 	    b = leps;
@@ -552,13 +552,13 @@ L10:
 /* Computing 2nd power */
 	    d__5 = leps;
 	    d__2 = d__4 * (d__3 * d__3) * (d__5 * d__5);
-	    c__ = dlamc3_(&d__1, &d__2);
+	    c__ = _starpu_dlamc3_(&d__1, &d__2);
 	    d__1 = -c__;
-	    c__ = dlamc3_(&half, &d__1);
-	    b = dlamc3_(&half, &c__);
+	    c__ = _starpu_dlamc3_(&half, &d__1);
+	    b = _starpu_dlamc3_(&half, &c__);
 	    d__1 = -b;
-	    c__ = dlamc3_(&half, &d__1);
-	    b = dlamc3_(&half, &c__);
+	    c__ = _starpu_dlamc3_(&half, &d__1);
+	    b = _starpu_dlamc3_(&half, &c__);
 	    goto L10;
 	}
 /* +       END WHILE */
@@ -577,16 +577,16 @@ L10:
 	small = one;
 	for (i__ = 1; i__ <= 3; ++i__) {
 	    d__1 = small * rbase;
-	    small = dlamc3_(&d__1, &zero);
+	    small = _starpu_dlamc3_(&d__1, &zero);
 /* L20: */
 	}
-	a = dlamc3_(&one, &small);
-	dlamc4_(&ngpmin, &one, &lbeta);
+	a = _starpu_dlamc3_(&one, &small);
+	_starpu_dlamc4_(&ngpmin, &one, &lbeta);
 	d__1 = -one;
-	dlamc4_(&ngnmin, &d__1, &lbeta);
-	dlamc4_(&gpmin, &a, &lbeta);
+	_starpu_dlamc4_(&ngnmin, &d__1, &lbeta);
+	_starpu_dlamc4_(&gpmin, &a, &lbeta);
 	d__1 = -a;
-	dlamc4_(&gnmin, &d__1, &lbeta);
+	_starpu_dlamc4_(&gnmin, &d__1, &lbeta);
 	ieee = FALSE_;
 
 	if (ngpmin == ngnmin && gpmin == gnmin) {
@@ -661,13 +661,13 @@ L10:
 	i__1 = 1 - lemin;
 	for (i__ = 1; i__ <= i__1; ++i__) {
 	    d__1 = lrmin * rbase;
-	    lrmin = dlamc3_(&d__1, &zero);
+	    lrmin = _starpu_dlamc3_(&d__1, &zero);
 /* L30: */
 	}
 
 /*        Finally, call DLAMC5 to compute EMAX and RMAX. */
 
-	dlamc5_(&lbeta, &lt, &lemin, &ieee, &lemax, &lrmax);
+	_starpu_dlamc5_(&lbeta, &lt, &lemin, &ieee, &lemax, &lrmax);
     }
 
     *beta = lbeta;
@@ -684,12 +684,12 @@ L10:
 
 /*     End of DLAMC2 */
 
-} /* dlamc2_ */
+} /* _starpu_dlamc2_ */
 
 
 /* *********************************************************************** */
 
-doublereal dlamc3_(doublereal *a, doublereal *b)
+doublereal _starpu_dlamc3_(doublereal *a, doublereal *b)
 {
     /* System generated locals */
     doublereal ret_val;
@@ -726,12 +726,12 @@ doublereal dlamc3_(doublereal *a, doublereal *b)
 
 /*     End of DLAMC3 */
 
-} /* dlamc3_ */
+} /* _starpu_dlamc3_ */
 
 
 /* *********************************************************************** */
 
-/* Subroutine */ int dlamc4_(integer *emin, doublereal *start, integer *base)
+/* Subroutine */ int _starpu_dlamc4_(integer *emin, doublereal *start, integer *base)
 {
     /* System generated locals */
     integer i__1;
@@ -741,7 +741,7 @@ doublereal dlamc3_(doublereal *a, doublereal *b)
     doublereal a;
     integer i__;
     doublereal b1, b2, c1, c2, d1, d2, one, zero, rbase;
-    extern doublereal dlamc3_(doublereal *, doublereal *);
+    extern doublereal _starpu_dlamc3_(doublereal *, doublereal *);
 
 
 /*  -- LAPACK auxiliary routine (version 3.2) -- */
@@ -784,7 +784,7 @@ doublereal dlamc3_(doublereal *a, doublereal *b)
     zero = 0.;
     *emin = 1;
     d__1 = a * rbase;
-    b1 = dlamc3_(&d__1, &zero);
+    b1 = _starpu_dlamc3_(&d__1, &zero);
     c1 = a;
     c2 = a;
     d1 = a;
@@ -796,9 +796,9 @@ L10:
 	--(*emin);
 	a = b1;
 	d__1 = a / *base;
-	b1 = dlamc3_(&d__1, &zero);
+	b1 = _starpu_dlamc3_(&d__1, &zero);
 	d__1 = b1 * *base;
-	c1 = dlamc3_(&d__1, &zero);
+	c1 = _starpu_dlamc3_(&d__1, &zero);
 	d1 = zero;
 	i__1 = *base;
 	for (i__ = 1; i__ <= i__1; ++i__) {
@@ -806,9 +806,9 @@ L10:
 /* L20: */
 	}
 	d__1 = a * rbase;
-	b2 = dlamc3_(&d__1, &zero);
+	b2 = _starpu_dlamc3_(&d__1, &zero);
 	d__1 = b2 / rbase;
-	c2 = dlamc3_(&d__1, &zero);
+	c2 = _starpu_dlamc3_(&d__1, &zero);
 	d2 = zero;
 	i__1 = *base;
 	for (i__ = 1; i__ <= i__1; ++i__) {
@@ -823,12 +823,12 @@ L10:
 
 /*     End of DLAMC4 */
 
-} /* dlamc4_ */
+} /* _starpu_dlamc4_ */
 
 
 /* *********************************************************************** */
 
-/* Subroutine */ int dlamc5_(integer *beta, integer *p, integer *emin, 
+/* Subroutine */ int _starpu_dlamc5_(integer *beta, integer *p, integer *emin, 
 	logical *ieee, integer *emax, doublereal *rmax)
 {
     /* System generated locals */
@@ -841,7 +841,7 @@ L10:
     integer try__, lexp;
     doublereal oldy;
     integer uexp, nbits;
-    extern doublereal dlamc3_(doublereal *, doublereal *);
+    extern doublereal _starpu_dlamc3_(doublereal *, doublereal *);
     doublereal recbas;
     integer exbits, expsum;
 
@@ -977,7 +977,7 @@ L10:
 	if (y < 1.) {
 	    oldy = y;
 	}
-	y = dlamc3_(&y, &z__);
+	y = _starpu_dlamc3_(&y, &z__);
 /* L20: */
     }
     if (y >= 1.) {
@@ -989,7 +989,7 @@ L10:
     i__1 = *emax;
     for (i__ = 1; i__ <= i__1; ++i__) {
 	d__1 = y * *beta;
-	y = dlamc3_(&d__1, &c_b32);
+	y = _starpu_dlamc3_(&d__1, &c_b32);
 /* L30: */
     }
 
@@ -998,4 +998,4 @@ L10:
 
 /*     End of DLAMC5 */
 
-} /* dlamc5_ */
+} /* _starpu_dlamc5_ */

min-dgels/additional/dlange.c

@@ -17,7 +17,7 @@
 
 static integer c__1 = 1;
 
-doublereal dlange_(char *norm, integer *m, integer *n, doublereal *a, integer 
+doublereal _starpu_dlange_(char *norm, integer *m, integer *n, doublereal *a, integer 
 	*lda, doublereal *work)
 {
     /* System generated locals */
@@ -30,9 +30,9 @@ doublereal dlange_(char *norm, integer *m, integer *n, doublereal *a, integer
     /* Local variables */
     integer i__, j;
     doublereal sum, scale;
-    extern logical lsame_(char *, char *);
+    extern logical _starpu_lsame_(char *, char *);
     doublereal value;
-    extern /* Subroutine */ int dlassq_(integer *, doublereal *, integer *, 
+    extern /* Subroutine */ int _starpu_dlassq_(integer *, doublereal *, integer *, 
 	    doublereal *, doublereal *);
 
 
@@ -118,7 +118,7 @@ doublereal dlange_(char *norm, integer *m, integer *n, doublereal *a, integer
     /* Function Body */
     if (min(*m,*n) == 0) {
 	value = 0.;
-    } else if (lsame_(norm, "M")) {
+    } else if (_starpu_lsame_(norm, "M")) {
 
 /*        Find max(abs(A(i,j))). */
 
@@ -134,7 +134,7 @@ doublereal dlange_(char *norm, integer *m, integer *n, doublereal *a, integer
 	    }
 /* L20: */
 	}
-    } else if (lsame_(norm, "O") || *(unsigned char *)
+    } else if (_starpu_lsame_(norm, "O") || *(unsigned char *)
 	    norm == '1') {
 
 /*        Find norm1(A). */
@@ -151,7 +151,7 @@ doublereal dlange_(char *norm, integer *m, integer *n, doublereal *a, integer
 	    value = max(value,sum);
 /* L40: */
 	}
-    } else if (lsame_(norm, "I")) {
+    } else if (_starpu_lsame_(norm, "I")) {
 
 /*        Find normI(A). */
 
@@ -177,7 +177,7 @@ doublereal dlange_(char *norm, integer *m, integer *n, doublereal *a, integer
 	    value = max(d__1,d__2);
 /* L80: */
 	}
-    } else if (lsame_(norm, "F") || lsame_(norm, "E")) {
+    } else if (_starpu_lsame_(norm, "F") || _starpu_lsame_(norm, "E")) {
 
 /*        Find normF(A). */
 
@@ -185,7 +185,7 @@ doublereal dlange_(char *norm, integer *m, integer *n, doublereal *a, integer
 	sum = 1.;
 	i__1 = *n;
 	for (j = 1; j <= i__1; ++j) {
-	    dlassq_(m, &a[j * a_dim1 + 1], &c__1, &scale, &sum);
+	    _starpu_dlassq_(m, &a[j * a_dim1 + 1], &c__1, &scale, &sum);
 /* L90: */
 	}
 	value = scale * sqrt(sum);
@@ -196,4 +196,4 @@ doublereal dlange_(char *norm, integer *m, integer *n, doublereal *a, integer
 
 /*     End of DLANGE */
 
-} /* dlange_ */
+} /* _starpu_dlange_ */

min-dgels/additional/dlapy2.c

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-doublereal dlapy2_(doublereal *x, doublereal *y)
+doublereal _starpu_dlapy2_(doublereal *x, doublereal *y)
 {
     /* System generated locals */
     doublereal ret_val, d__1;
@@ -70,4 +70,4 @@ doublereal dlapy2_(doublereal *x, doublereal *y)
 
 /*     End of DLAPY2 */
 
-} /* dlapy2_ */
+} /* _starpu_dlapy2_ */

min-dgels/additional/dlarf.c

@@ -19,7 +19,7 @@ static doublereal c_b4 = 1.;
 static doublereal c_b5 = 0.;
 static integer c__1 = 1;
 
-/* Subroutine */ int dlarf_(char *side, integer *m, integer *n, doublereal *v, 
+/* Subroutine */ int _starpu_dlarf_(char *side, integer *m, integer *n, doublereal *v, 
 	 integer *incv, doublereal *tau, doublereal *c__, integer *ldc, 
 	doublereal *work)
 {
@@ -30,16 +30,16 @@ static integer c__1 = 1;
     /* Local variables */
     integer i__;
     logical applyleft;
-    extern /* Subroutine */ int dger_(integer *, integer *, doublereal *, 
+    extern /* Subroutine */ int _starpu_dger_(integer *, integer *, doublereal *, 
 	    doublereal *, integer *, doublereal *, integer *, doublereal *, 
 	    integer *);
-    extern logical lsame_(char *, char *);
-    extern /* Subroutine */ int dgemv_(char *, integer *, integer *, 
+    extern logical _starpu_lsame_(char *, char *);
+    extern /* Subroutine */ int _starpu_dgemv_(char *, integer *, integer *, 
 	    doublereal *, doublereal *, integer *, doublereal *, integer *, 
 	    doublereal *, doublereal *, integer *);
     integer lastc, lastv;
-    extern integer iladlc_(integer *, integer *, doublereal *, integer *), 
-	    iladlr_(integer *, integer *, doublereal *, integer *);
+    extern integer _starpu_iladlc_(integer *, integer *, doublereal *, integer *), 
+	    _starpu_iladlr_(integer *, integer *, doublereal *, integer *);
 
 
 /*  -- LAPACK auxiliary routine (version 3.2) -- */
@@ -120,7 +120,7 @@ static integer c__1 = 1;
     --work;
 
     /* Function Body */
-    applyleft = lsame_(side, "L");
+    applyleft = _starpu_lsame_(side, "L");
     lastv = 0;
     lastc = 0;
     if (*tau != 0.) {
@@ -143,10 +143,10 @@ static integer c__1 = 1;
 	}
 	if (applyleft) {
 /*     Scan for the last non-zero column in C(1:lastv,:). */
-	    lastc = iladlc_(&lastv, n, &c__[c_offset], ldc);
+	    lastc = _starpu_iladlc_(&lastv, n, &c__[c_offset], ldc);
 	} else {
 /*     Scan for the last non-zero row in C(:,1:lastv). */
-	    lastc = iladlr_(m, &lastv, &c__[c_offset], ldc);
+	    lastc = _starpu_iladlr_(m, &lastv, &c__[c_offset], ldc);
 	}
     }
 /*     Note that lastc.eq.0 renders the BLAS operations null; no special */
@@ -159,13 +159,13 @@ static integer c__1 = 1;
 
 /*           w(1:lastc,1) := C(1:lastv,1:lastc)' * v(1:lastv,1) */
 
-	    dgemv_("Transpose", &lastv, &lastc, &c_b4, &c__[c_offset], ldc, &
+	    _starpu_dgemv_("Transpose", &lastv, &lastc, &c_b4, &c__[c_offset], ldc, &
 		    v[1], incv, &c_b5, &work[1], &c__1);
 
 /*           C(1:lastv,1:lastc) := C(...) - v(1:lastv,1) * w(1:lastc,1)' */
 
 	    d__1 = -(*tau);
-	    dger_(&lastv, &lastc, &d__1, &v[1], incv, &work[1], &c__1, &c__[
+	    _starpu_dger_(&lastv, &lastc, &d__1, &v[1], incv, &work[1], &c__1, &c__[
 		    c_offset], ldc);
 	}
     } else {
@@ -176,13 +176,13 @@ static integer c__1 = 1;
 
 /*           w(1:lastc,1) := C(1:lastc,1:lastv) * v(1:lastv,1) */
 
-	    dgemv_("No transpose", &lastc, &lastv, &c_b4, &c__[c_offset], ldc, 
+	    _starpu_dgemv_("No transpose", &lastc, &lastv, &c_b4, &c__[c_offset], ldc, 
 		     &v[1], incv, &c_b5, &work[1], &c__1);
 
 /*           C(1:lastc,1:lastv) := C(...) - w(1:lastc,1) * v(1:lastv,1)' */
 
 	    d__1 = -(*tau);
-	    dger_(&lastc, &lastv, &d__1, &work[1], &c__1, &v[1], incv, &c__[
+	    _starpu_dger_(&lastc, &lastv, &d__1, &work[1], &c__1, &v[1], incv, &c__[
 		    c_offset], ldc);
 	}
     }
@@ -190,4 +190,4 @@ static integer c__1 = 1;
 
 /*     End of DLARF */
 
-} /* dlarf_ */
+} /* _starpu_dlarf_ */

min-dgels/additional/dlarfb.c

@@ -19,7 +19,7 @@ static integer c__1 = 1;
 static doublereal c_b14 = 1.;
 static doublereal c_b25 = -1.;
 
-/* Subroutine */ int dlarfb_(char *side, char *trans, char *direct, char *
+/* Subroutine */ int _starpu_dlarfb_(char *side, char *trans, char *direct, char *
 	storev, integer *m, integer *n, integer *k, doublereal *v, integer *
 	ldv, doublereal *t, integer *ldt, doublereal *c__, integer *ldc, 
 	doublereal *work, integer *ldwork)
@@ -30,18 +30,18 @@ static doublereal c_b25 = -1.;
 
     /* Local variables */
     integer i__, j;
-    extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, 
+    extern /* Subroutine */ int _starpu_dgemm_(char *, char *, integer *, integer *, 
 	    integer *, doublereal *, doublereal *, integer *, doublereal *, 
 	    integer *, doublereal *, doublereal *, integer *);
-    extern logical lsame_(char *, char *);
+    extern logical _starpu_lsame_(char *, char *);
     integer lastc;
-    extern /* Subroutine */ int dcopy_(integer *, doublereal *, integer *, 
-	    doublereal *, integer *), dtrmm_(char *, char *, char *, char *, 
+    extern /* Subroutine */ int _starpu_dcopy_(integer *, doublereal *, integer *, 
+	    doublereal *, integer *), _starpu_dtrmm_(char *, char *, char *, char *, 
 	    integer *, integer *, doublereal *, doublereal *, integer *, 
 	    doublereal *, integer *);
     integer lastv;
-    extern integer iladlc_(integer *, integer *, doublereal *, integer *), 
-	    iladlr_(integer *, integer *, doublereal *, integer *);
+    extern integer _starpu_iladlc_(integer *, integer *, doublereal *, integer *), 
+	    _starpu_iladlr_(integer *, integer *, doublereal *, integer *);
     char transt[1];
 
 
@@ -159,29 +159,29 @@ static doublereal c_b25 = -1.;
 	return 0;
     }
 
-    if (lsame_(trans, "N")) {
+    if (_starpu_lsame_(trans, "N")) {
 	*(unsigned char *)transt = 'T';
     } else {
 	*(unsigned char *)transt = 'N';
     }
 
-    if (lsame_(storev, "C")) {
+    if (_starpu_lsame_(storev, "C")) {
 
-	if (lsame_(direct, "F")) {
+	if (_starpu_lsame_(direct, "F")) {
 
 /*           Let  V =  ( V1 )    (first K rows) */
 /*                     ( V2 ) */
 /*           where  V1  is unit lower triangular. */
 
-	    if (lsame_(side, "L")) {
+	    if (_starpu_lsame_(side, "L")) {
 
 /*              Form  H * C  or  H' * C  where  C = ( C1 ) */
 /*                                                  ( C2 ) */
 
 /* Computing MAX */
-		i__1 = *k, i__2 = iladlr_(m, k, &v[v_offset], ldv);
+		i__1 = *k, i__2 = _starpu_iladlr_(m, k, &v[v_offset], ldv);
 		lastv = max(i__1,i__2);
-		lastc = iladlc_(&lastv, n, &c__[c_offset], ldc);
+		lastc = _starpu_iladlc_(&lastv, n, &c__[c_offset], ldc);
 
 /*              W := C' * V  =  (C1'*V1 + C2'*V2)  (stored in WORK) */
 
@@ -189,28 +189,28 @@ static doublereal c_b25 = -1.;
 
 		i__1 = *k;
 		for (j = 1; j <= i__1; ++j) {
-		    dcopy_(&lastc, &c__[j + c_dim1], ldc, &work[j * work_dim1 
+		    _starpu_dcopy_(&lastc, &c__[j + c_dim1], ldc, &work[j * work_dim1 
 			    + 1], &c__1);
 /* L10: */
 		}
 
 /*              W := W * V1 */
 
-		dtrmm_("Right", "Lower", "No transpose", "Unit", &lastc, k, &
+		_starpu_dtrmm_("Right", "Lower", "No transpose", "Unit", &lastc, k, &
 			c_b14, &v[v_offset], ldv, &work[work_offset], ldwork);
 		if (lastv > *k) {
 
 /*                 W := W + C2'*V2 */
 
 		    i__1 = lastv - *k;
-		    dgemm_("Transpose", "No transpose", &lastc, k, &i__1, &
+		    _starpu_dgemm_("Transpose", "No transpose", &lastc, k, &i__1, &
 			    c_b14, &c__[*k + 1 + c_dim1], ldc, &v[*k + 1 + 
 			    v_dim1], ldv, &c_b14, &work[work_offset], ldwork);
 		}
 
 /*              W := W * T'  or  W * T */
 
-		dtrmm_("Right", "Upper", transt, "Non-unit", &lastc, k, &
+		_starpu_dtrmm_("Right", "Upper", transt, "Non-unit", &lastc, k, &
 			c_b14, &t[t_offset], ldt, &work[work_offset], ldwork);
 
 /*              C := C - V * W' */
@@ -220,7 +220,7 @@ static doublereal c_b25 = -1.;
 /*                 C2 := C2 - V2 * W' */
 
 		    i__1 = lastv - *k;
-		    dgemm_("No transpose", "Transpose", &i__1, &lastc, k, &
+		    _starpu_dgemm_("No transpose", "Transpose", &i__1, &lastc, k, &
 			    c_b25, &v[*k + 1 + v_dim1], ldv, &work[
 			    work_offset], ldwork, &c_b14, &c__[*k + 1 + 
 			    c_dim1], ldc);
@@ -228,7 +228,7 @@ static doublereal c_b25 = -1.;
 
 /*              W := W * V1' */
 
-		dtrmm_("Right", "Lower", "Transpose", "Unit", &lastc, k, &
+		_starpu_dtrmm_("Right", "Lower", "Transpose", "Unit", &lastc, k, &
 			c_b14, &v[v_offset], ldv, &work[work_offset], ldwork);
 
 /*              C1 := C1 - W' */
@@ -243,14 +243,14 @@ static doublereal c_b25 = -1.;
 /* L30: */
 		}
 
-	    } else if (lsame_(side, "R")) {
+	    } else if (_starpu_lsame_(side, "R")) {
 
 /*              Form  C * H  or  C * H'  where  C = ( C1  C2 ) */
 
 /* Computing MAX */
-		i__1 = *k, i__2 = iladlr_(n, k, &v[v_offset], ldv);
+		i__1 = *k, i__2 = _starpu_iladlr_(n, k, &v[v_offset], ldv);
 		lastv = max(i__1,i__2);
-		lastc = iladlr_(m, &lastv, &c__[c_offset], ldc);
+		lastc = _starpu_iladlr_(m, &lastv, &c__[c_offset], ldc);
 
 /*              W := C * V  =  (C1*V1 + C2*V2)  (stored in WORK) */
 
@@ -258,21 +258,21 @@ static doublereal c_b25 = -1.;
 
 		i__1 = *k;
 		for (j = 1; j <= i__1; ++j) {
-		    dcopy_(&lastc, &c__[j * c_dim1 + 1], &c__1, &work[j * 
+		    _starpu_dcopy_(&lastc, &c__[j * c_dim1 + 1], &c__1, &work[j * 
 			    work_dim1 + 1], &c__1);
 /* L40: */
 		}
 
 /*              W := W * V1 */
 
-		dtrmm_("Right", "Lower", "No transpose", "Unit", &lastc, k, &
+		_starpu_dtrmm_("Right", "Lower", "No transpose", "Unit", &lastc, k, &
 			c_b14, &v[v_offset], ldv, &work[work_offset], ldwork);
 		if (lastv > *k) {
 
 /*                 W := W + C2 * V2 */
 
 		    i__1 = lastv - *k;
-		    dgemm_("No transpose", "No transpose", &lastc, k, &i__1, &
+		    _starpu_dgemm_("No transpose", "No transpose", &lastc, k, &i__1, &
 			    c_b14, &c__[(*k + 1) * c_dim1 + 1], ldc, &v[*k + 
 			    1 + v_dim1], ldv, &c_b14, &work[work_offset], 
 			    ldwork);
@@ -280,7 +280,7 @@ static doublereal c_b25 = -1.;
 
 /*              W := W * T  or  W * T' */
 
-		dtrmm_("Right", "Upper", trans, "Non-unit", &lastc, k, &c_b14, 
+		_starpu_dtrmm_("Right", "Upper", trans, "Non-unit", &lastc, k, &c_b14, 
 			 &t[t_offset], ldt, &work[work_offset], ldwork);
 
 /*              C := C - W * V' */
@@ -290,7 +290,7 @@ static doublereal c_b25 = -1.;
 /*                 C2 := C2 - W * V2' */
 
 		    i__1 = lastv - *k;
-		    dgemm_("No transpose", "Transpose", &lastc, &i__1, k, &
+		    _starpu_dgemm_("No transpose", "Transpose", &lastc, &i__1, k, &
 			    c_b25, &work[work_offset], ldwork, &v[*k + 1 + 
 			    v_dim1], ldv, &c_b14, &c__[(*k + 1) * c_dim1 + 1], 
 			     ldc);
@@ -298,7 +298,7 @@ static doublereal c_b25 = -1.;
 
 /*              W := W * V1' */
 
-		dtrmm_("Right", "Lower", "Transpose", "Unit", &lastc, k, &
+		_starpu_dtrmm_("Right", "Lower", "Transpose", "Unit", &lastc, k, &
 			c_b14, &v[v_offset], ldv, &work[work_offset], ldwork);
 
 /*              C1 := C1 - W */
@@ -320,15 +320,15 @@ static doublereal c_b25 = -1.;
 /*                     ( V2 )    (last K rows) */
 /*           where  V2  is unit upper triangular. */
 
-	    if (lsame_(side, "L")) {
+	    if (_starpu_lsame_(side, "L")) {
 
 /*              Form  H * C  or  H' * C  where  C = ( C1 ) */
 /*                                                  ( C2 ) */
 
 /* Computing MAX */
-		i__1 = *k, i__2 = iladlr_(m, k, &v[v_offset], ldv);
+		i__1 = *k, i__2 = _starpu_iladlr_(m, k, &v[v_offset], ldv);
 		lastv = max(i__1,i__2);
-		lastc = iladlc_(&lastv, n, &c__[c_offset], ldc);
+		lastc = _starpu_iladlc_(&lastv, n, &c__[c_offset], ldc);
 
 /*              W := C' * V  =  (C1'*V1 + C2'*V2)  (stored in WORK) */
 
@@ -336,14 +336,14 @@ static doublereal c_b25 = -1.;
 
 		i__1 = *k;
 		for (j = 1; j <= i__1; ++j) {
-		    dcopy_(&lastc, &c__[lastv - *k + j + c_dim1], ldc, &work[
+		    _starpu_dcopy_(&lastc, &c__[lastv - *k + j + c_dim1], ldc, &work[
 			    j * work_dim1 + 1], &c__1);
 /* L70: */
 		}
 
 /*              W := W * V2 */
 
-		dtrmm_("Right", "Upper", "No transpose", "Unit", &lastc, k, &
+		_starpu_dtrmm_("Right", "Upper", "No transpose", "Unit", &lastc, k, &
 			c_b14, &v[lastv - *k + 1 + v_dim1], ldv, &work[
 			work_offset], ldwork);
 		if (lastv > *k) {
@@ -351,14 +351,14 @@ static doublereal c_b25 = -1.;
 /*                 W := W + C1'*V1 */
 
 		    i__1 = lastv - *k;
-		    dgemm_("Transpose", "No transpose", &lastc, k, &i__1, &
+		    _starpu_dgemm_("Transpose", "No transpose", &lastc, k, &i__1, &
 			    c_b14, &c__[c_offset], ldc, &v[v_offset], ldv, &
 			    c_b14, &work[work_offset], ldwork);
 		}
 
 /*              W := W * T'  or  W * T */
 
-		dtrmm_("Right", "Lower", transt, "Non-unit", &lastc, k, &
+		_starpu_dtrmm_("Right", "Lower", transt, "Non-unit", &lastc, k, &
 			c_b14, &t[t_offset], ldt, &work[work_offset], ldwork);
 
 /*              C := C - V * W' */
@@ -368,14 +368,14 @@ static doublereal c_b25 = -1.;
 /*                 C1 := C1 - V1 * W' */
 
 		    i__1 = lastv - *k;
-		    dgemm_("No transpose", "Transpose", &i__1, &lastc, k, &
+		    _starpu_dgemm_("No transpose", "Transpose", &i__1, &lastc, k, &
 			    c_b25, &v[v_offset], ldv, &work[work_offset], 
 			    ldwork, &c_b14, &c__[c_offset], ldc);
 		}
 
 /*              W := W * V2' */
 
-		dtrmm_("Right", "Upper", "Transpose", "Unit", &lastc, k, &
+		_starpu_dtrmm_("Right", "Upper", "Transpose", "Unit", &lastc, k, &
 			c_b14, &v[lastv - *k + 1 + v_dim1], ldv, &work[
 			work_offset], ldwork);
 
@@ -392,14 +392,14 @@ static doublereal c_b25 = -1.;
 /* L90: */
 		}
 
-	    } else if (lsame_(side, "R")) {
+	    } else if (_starpu_lsame_(side, "R")) {
 
 /*              Form  C * H  or  C * H'  where  C = ( C1  C2 ) */
 
 /* Computing MAX */
-		i__1 = *k, i__2 = iladlr_(n, k, &v[v_offset], ldv);
+		i__1 = *k, i__2 = _starpu_iladlr_(n, k, &v[v_offset], ldv);
 		lastv = max(i__1,i__2);
-		lastc = iladlr_(m, &lastv, &c__[c_offset], ldc);
+		lastc = _starpu_iladlr_(m, &lastv, &c__[c_offset], ldc);
 
 /*              W := C * V  =  (C1*V1 + C2*V2)  (stored in WORK) */
 
@@ -407,14 +407,14 @@ static doublereal c_b25 = -1.;
 
 		i__1 = *k;
 		for (j = 1; j <= i__1; ++j) {
-		    dcopy_(&lastc, &c__[(*n - *k + j) * c_dim1 + 1], &c__1, &
+		    _starpu_dcopy_(&lastc, &c__[(*n - *k + j) * c_dim1 + 1], &c__1, &
 			    work[j * work_dim1 + 1], &c__1);
 /* L100: */
 		}
 
 /*              W := W * V2 */
 
-		dtrmm_("Right", "Upper", "No transpose", "Unit", &lastc, k, &
+		_starpu_dtrmm_("Right", "Upper", "No transpose", "Unit", &lastc, k, &
 			c_b14, &v[lastv - *k + 1 + v_dim1], ldv, &work[
 			work_offset], ldwork);
 		if (lastv > *k) {
@@ -422,14 +422,14 @@ static doublereal c_b25 = -1.;
 /*                 W := W + C1 * V1 */
 
 		    i__1 = lastv - *k;
-		    dgemm_("No transpose", "No transpose", &lastc, k, &i__1, &
+		    _starpu_dgemm_("No transpose", "No transpose", &lastc, k, &i__1, &
 			    c_b14, &c__[c_offset], ldc, &v[v_offset], ldv, &
 			    c_b14, &work[work_offset], ldwork);
 		}
 
 /*              W := W * T  or  W * T' */
 
-		dtrmm_("Right", "Lower", trans, "Non-unit", &lastc, k, &c_b14, 
+		_starpu_dtrmm_("Right", "Lower", trans, "Non-unit", &lastc, k, &c_b14, 
 			 &t[t_offset], ldt, &work[work_offset], ldwork);
 
 /*              C := C - W * V' */
@@ -439,14 +439,14 @@ static doublereal c_b25 = -1.;
 /*                 C1 := C1 - W * V1' */
 
 		    i__1 = lastv - *k;
-		    dgemm_("No transpose", "Transpose", &lastc, &i__1, k, &
+		    _starpu_dgemm_("No transpose", "Transpose", &lastc, &i__1, k, &
 			    c_b25, &work[work_offset], ldwork, &v[v_offset], 
 			    ldv, &c_b14, &c__[c_offset], ldc);
 		}
 
 /*              W := W * V2' */
 
-		dtrmm_("Right", "Upper", "Transpose", "Unit", &lastc, k, &
+		_starpu_dtrmm_("Right", "Upper", "Transpose", "Unit", &lastc, k, &
 			c_b14, &v[lastv - *k + 1 + v_dim1], ldv, &work[
 			work_offset], ldwork);
 
@@ -465,22 +465,22 @@ static doublereal c_b25 = -1.;
 	    }
 	}
 
-    } else if (lsame_(storev, "R")) {
+    } else if (_starpu_lsame_(storev, "R")) {
 
-	if (lsame_(direct, "F")) {
+	if (_starpu_lsame_(direct, "F")) {
 
 /*           Let  V =  ( V1  V2 )    (V1: first K columns) */
 /*           where  V1  is unit upper triangular. */
 
-	    if (lsame_(side, "L")) {
+	    if (_starpu_lsame_(side, "L")) {
 
 /*              Form  H * C  or  H' * C  where  C = ( C1 ) */
 /*                                                  ( C2 ) */
 
 /* Computing MAX */
-		i__1 = *k, i__2 = iladlc_(k, m, &v[v_offset], ldv);
+		i__1 = *k, i__2 = _starpu_iladlc_(k, m, &v[v_offset], ldv);
 		lastv = max(i__1,i__2);
-		lastc = iladlc_(&lastv, n, &c__[c_offset], ldc);
+		lastc = _starpu_iladlc_(&lastv, n, &c__[c_offset], ldc);
 
 /*              W := C' * V'  =  (C1'*V1' + C2'*V2') (stored in WORK) */
 
@@ -488,28 +488,28 @@ static doublereal c_b25 = -1.;
 
 		i__1 = *k;
 		for (j = 1; j <= i__1; ++j) {
-		    dcopy_(&lastc, &c__[j + c_dim1], ldc, &work[j * work_dim1 
+		    _starpu_dcopy_(&lastc, &c__[j + c_dim1], ldc, &work[j * work_dim1 
 			    + 1], &c__1);
 /* L130: */
 		}
 
 /*              W := W * V1' */
 
-		dtrmm_("Right", "Upper", "Transpose", "Unit", &lastc, k, &
+		_starpu_dtrmm_("Right", "Upper", "Transpose", "Unit", &lastc, k, &
 			c_b14, &v[v_offset], ldv, &work[work_offset], ldwork);
 		if (lastv > *k) {
 
 /*                 W := W + C2'*V2' */
 
 		    i__1 = lastv - *k;
-		    dgemm_("Transpose", "Transpose", &lastc, k, &i__1, &c_b14, 
+		    _starpu_dgemm_("Transpose", "Transpose", &lastc, k, &i__1, &c_b14, 
 			     &c__[*k + 1 + c_dim1], ldc, &v[(*k + 1) * v_dim1 
 			    + 1], ldv, &c_b14, &work[work_offset], ldwork);
 		}
 
 /*              W := W * T'  or  W * T */
 
-		dtrmm_("Right", "Upper", transt, "Non-unit", &lastc, k, &
+		_starpu_dtrmm_("Right", "Upper", transt, "Non-unit", &lastc, k, &
 			c_b14, &t[t_offset], ldt, &work[work_offset], ldwork);
 
 /*              C := C - V' * W' */
@@ -519,7 +519,7 @@ static doublereal c_b25 = -1.;
 /*                 C2 := C2 - V2' * W' */
 
 		    i__1 = lastv - *k;
-		    dgemm_("Transpose", "Transpose", &i__1, &lastc, k, &c_b25, 
+		    _starpu_dgemm_("Transpose", "Transpose", &i__1, &lastc, k, &c_b25, 
 			     &v[(*k + 1) * v_dim1 + 1], ldv, &work[
 			    work_offset], ldwork, &c_b14, &c__[*k + 1 + 
 			    c_dim1], ldc);
@@ -527,7 +527,7 @@ static doublereal c_b25 = -1.;
 
 /*              W := W * V1 */
 
-		dtrmm_("Right", "Upper", "No transpose", "Unit", &lastc, k, &
+		_starpu_dtrmm_("Right", "Upper", "No transpose", "Unit", &lastc, k, &
 			c_b14, &v[v_offset], ldv, &work[work_offset], ldwork);
 
 /*              C1 := C1 - W' */
@@ -542,14 +542,14 @@ static doublereal c_b25 = -1.;
 /* L150: */
 		}
 
-	    } else if (lsame_(side, "R")) {
+	    } else if (_starpu_lsame_(side, "R")) {
 
 /*              Form  C * H  or  C * H'  where  C = ( C1  C2 ) */
 
 /* Computing MAX */
-		i__1 = *k, i__2 = iladlc_(k, n, &v[v_offset], ldv);
+		i__1 = *k, i__2 = _starpu_iladlc_(k, n, &v[v_offset], ldv);
 		lastv = max(i__1,i__2);
-		lastc = iladlr_(m, &lastv, &c__[c_offset], ldc);
+		lastc = _starpu_iladlr_(m, &lastv, &c__[c_offset], ldc);
 
 /*              W := C * V'  =  (C1*V1' + C2*V2')  (stored in WORK) */
 
@@ -557,21 +557,21 @@ static doublereal c_b25 = -1.;
 
 		i__1 = *k;
 		for (j = 1; j <= i__1; ++j) {
-		    dcopy_(&lastc, &c__[j * c_dim1 + 1], &c__1, &work[j * 
+		    _starpu_dcopy_(&lastc, &c__[j * c_dim1 + 1], &c__1, &work[j * 
 			    work_dim1 + 1], &c__1);
 /* L160: */
 		}
 
 /*              W := W * V1' */
 
-		dtrmm_("Right", "Upper", "Transpose", "Unit", &lastc, k, &
+		_starpu_dtrmm_("Right", "Upper", "Transpose", "Unit", &lastc, k, &
 			c_b14, &v[v_offset], ldv, &work[work_offset], ldwork);
 		if (lastv > *k) {
 
 /*                 W := W + C2 * V2' */
 
 		    i__1 = lastv - *k;
-		    dgemm_("No transpose", "Transpose", &lastc, k, &i__1, &
+		    _starpu_dgemm_("No transpose", "Transpose", &lastc, k, &i__1, &
 			    c_b14, &c__[(*k + 1) * c_dim1 + 1], ldc, &v[(*k + 
 			    1) * v_dim1 + 1], ldv, &c_b14, &work[work_offset], 
 			     ldwork);
@@ -579,7 +579,7 @@ static doublereal c_b25 = -1.;
 
 /*              W := W * T  or  W * T' */
 
-		dtrmm_("Right", "Upper", trans, "Non-unit", &lastc, k, &c_b14, 
+		_starpu_dtrmm_("Right", "Upper", trans, "Non-unit", &lastc, k, &c_b14, 
 			 &t[t_offset], ldt, &work[work_offset], ldwork);
 
 /*              C := C - W * V */
@@ -589,7 +589,7 @@ static doublereal c_b25 = -1.;
 /*                 C2 := C2 - W * V2 */
 
 		    i__1 = lastv - *k;
-		    dgemm_("No transpose", "No transpose", &lastc, &i__1, k, &
+		    _starpu_dgemm_("No transpose", "No transpose", &lastc, &i__1, k, &
 			    c_b25, &work[work_offset], ldwork, &v[(*k + 1) * 
 			    v_dim1 + 1], ldv, &c_b14, &c__[(*k + 1) * c_dim1 
 			    + 1], ldc);
@@ -597,7 +597,7 @@ static doublereal c_b25 = -1.;
 
 /*              W := W * V1 */
 
-		dtrmm_("Right", "Upper", "No transpose", "Unit", &lastc, k, &
+		_starpu_dtrmm_("Right", "Upper", "No transpose", "Unit", &lastc, k, &
 			c_b14, &v[v_offset], ldv, &work[work_offset], ldwork);
 
 /*              C1 := C1 - W */
@@ -619,15 +619,15 @@ static doublereal c_b25 = -1.;
 /*           Let  V =  ( V1  V2 )    (V2: last K columns) */
 /*           where  V2  is unit lower triangular. */
 
-	    if (lsame_(side, "L")) {
+	    if (_starpu_lsame_(side, "L")) {
 
 /*              Form  H * C  or  H' * C  where  C = ( C1 ) */
 /*                                                  ( C2 ) */
 
 /* Computing MAX */
-		i__1 = *k, i__2 = iladlc_(k, m, &v[v_offset], ldv);
+		i__1 = *k, i__2 = _starpu_iladlc_(k, m, &v[v_offset], ldv);
 		lastv = max(i__1,i__2);
-		lastc = iladlc_(&lastv, n, &c__[c_offset], ldc);
+		lastc = _starpu_iladlc_(&lastv, n, &c__[c_offset], ldc);
 
 /*              W := C' * V'  =  (C1'*V1' + C2'*V2') (stored in WORK) */
 
@@ -635,14 +635,14 @@ static doublereal c_b25 = -1.;
 
 		i__1 = *k;
 		for (j = 1; j <= i__1; ++j) {
-		    dcopy_(&lastc, &c__[lastv - *k + j + c_dim1], ldc, &work[
+		    _starpu_dcopy_(&lastc, &c__[lastv - *k + j + c_dim1], ldc, &work[
 			    j * work_dim1 + 1], &c__1);
 /* L190: */
 		}
 
 /*              W := W * V2' */
 
-		dtrmm_("Right", "Lower", "Transpose", "Unit", &lastc, k, &
+		_starpu_dtrmm_("Right", "Lower", "Transpose", "Unit", &lastc, k, &
 			c_b14, &v[(lastv - *k + 1) * v_dim1 + 1], ldv, &work[
 			work_offset], ldwork);
 		if (lastv > *k) {
@@ -650,14 +650,14 @@ static doublereal c_b25 = -1.;
 /*                 W := W + C1'*V1' */
 
 		    i__1 = lastv - *k;
-		    dgemm_("Transpose", "Transpose", &lastc, k, &i__1, &c_b14, 
+		    _starpu_dgemm_("Transpose", "Transpose", &lastc, k, &i__1, &c_b14, 
 			     &c__[c_offset], ldc, &v[v_offset], ldv, &c_b14, &
 			    work[work_offset], ldwork);
 		}
 
 /*              W := W * T'  or  W * T */
 
-		dtrmm_("Right", "Lower", transt, "Non-unit", &lastc, k, &
+		_starpu_dtrmm_("Right", "Lower", transt, "Non-unit", &lastc, k, &
 			c_b14, &t[t_offset], ldt, &work[work_offset], ldwork);
 
 /*              C := C - V' * W' */
@@ -667,14 +667,14 @@ static doublereal c_b25 = -1.;
 /*                 C1 := C1 - V1' * W' */
 
 		    i__1 = lastv - *k;
-		    dgemm_("Transpose", "Transpose", &i__1, &lastc, k, &c_b25, 
+		    _starpu_dgemm_("Transpose", "Transpose", &i__1, &lastc, k, &c_b25, 
 			     &v[v_offset], ldv, &work[work_offset], ldwork, &
 			    c_b14, &c__[c_offset], ldc);
 		}
 
 /*              W := W * V2 */
 
-		dtrmm_("Right", "Lower", "No transpose", "Unit", &lastc, k, &
+		_starpu_dtrmm_("Right", "Lower", "No transpose", "Unit", &lastc, k, &
 			c_b14, &v[(lastv - *k + 1) * v_dim1 + 1], ldv, &work[
 			work_offset], ldwork);
 
@@ -691,14 +691,14 @@ static doublereal c_b25 = -1.;
 /* L210: */
 		}
 
-	    } else if (lsame_(side, "R")) {
+	    } else if (_starpu_lsame_(side, "R")) {
 
 /*              Form  C * H  or  C * H'  where  C = ( C1  C2 ) */
 
 /* Computing MAX */
-		i__1 = *k, i__2 = iladlc_(k, n, &v[v_offset], ldv);
+		i__1 = *k, i__2 = _starpu_iladlc_(k, n, &v[v_offset], ldv);
 		lastv = max(i__1,i__2);
-		lastc = iladlr_(m, &lastv, &c__[c_offset], ldc);
+		lastc = _starpu_iladlr_(m, &lastv, &c__[c_offset], ldc);
 
 /*              W := C * V'  =  (C1*V1' + C2*V2')  (stored in WORK) */
 
@@ -706,14 +706,14 @@ static doublereal c_b25 = -1.;
 
 		i__1 = *k;
 		for (j = 1; j <= i__1; ++j) {
-		    dcopy_(&lastc, &c__[(lastv - *k + j) * c_dim1 + 1], &c__1, 
+		    _starpu_dcopy_(&lastc, &c__[(lastv - *k + j) * c_dim1 + 1], &c__1, 
 			     &work[j * work_dim1 + 1], &c__1);
 /* L220: */
 		}
 
 /*              W := W * V2' */
 
-		dtrmm_("Right", "Lower", "Transpose", "Unit", &lastc, k, &
+		_starpu_dtrmm_("Right", "Lower", "Transpose", "Unit", &lastc, k, &
 			c_b14, &v[(lastv - *k + 1) * v_dim1 + 1], ldv, &work[
 			work_offset], ldwork);
 		if (lastv > *k) {
@@ -721,14 +721,14 @@ static doublereal c_b25 = -1.;
 /*                 W := W + C1 * V1' */
 
 		    i__1 = lastv - *k;
-		    dgemm_("No transpose", "Transpose", &lastc, k, &i__1, &
+		    _starpu_dgemm_("No transpose", "Transpose", &lastc, k, &i__1, &
 			    c_b14, &c__[c_offset], ldc, &v[v_offset], ldv, &
 			    c_b14, &work[work_offset], ldwork);
 		}
 
 /*              W := W * T  or  W * T' */
 
-		dtrmm_("Right", "Lower", trans, "Non-unit", &lastc, k, &c_b14, 
+		_starpu_dtrmm_("Right", "Lower", trans, "Non-unit", &lastc, k, &c_b14, 
 			 &t[t_offset], ldt, &work[work_offset], ldwork);
 
 /*              C := C - W * V */
@@ -738,14 +738,14 @@ static doublereal c_b25 = -1.;
 /*                 C1 := C1 - W * V1 */
 
 		    i__1 = lastv - *k;
-		    dgemm_("No transpose", "No transpose", &lastc, &i__1, k, &
+		    _starpu_dgemm_("No transpose", "No transpose", &lastc, &i__1, k, &
 			    c_b25, &work[work_offset], ldwork, &v[v_offset], 
 			    ldv, &c_b14, &c__[c_offset], ldc);
 		}
 
 /*              W := W * V2 */
 
-		dtrmm_("Right", "Lower", "No transpose", "Unit", &lastc, k, &
+		_starpu_dtrmm_("Right", "Lower", "No transpose", "Unit", &lastc, k, &
 			c_b14, &v[(lastv - *k + 1) * v_dim1 + 1], ldv, &work[
 			work_offset], ldwork);
 
@@ -771,4 +771,4 @@ static doublereal c_b25 = -1.;
 
 /*     End of DLARFB */
 
-} /* dlarfb_ */
+} /* _starpu_dlarfb_ */

min-dgels/additional/dlarfg.c

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-/* Subroutine */ int dlarfg_(integer *n, doublereal *alpha, doublereal *x, 
+/* Subroutine */ int _starpu_dlarfg_(integer *n, doublereal *alpha, doublereal *x, 
 	integer *incx, doublereal *tau)
 {
     /* System generated locals */
@@ -26,11 +26,11 @@
     /* Local variables */
     integer j, knt;
     doublereal beta;
-    extern doublereal dnrm2_(integer *, doublereal *, integer *);
-    extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, 
+    extern doublereal _starpu_dnrm2_(integer *, doublereal *, integer *);
+    extern /* Subroutine */ int _starpu_dscal_(integer *, doublereal *, doublereal *, 
 	    integer *);
     doublereal xnorm;
-    extern doublereal dlapy2_(doublereal *, doublereal *), dlamch_(char *);
+    extern doublereal _starpu_dlapy2_(doublereal *, doublereal *), _starpu_dlamch_(char *);
     doublereal safmin, rsafmn;
 
 
@@ -111,7 +111,7 @@
     }
 
     i__1 = *n - 1;
-    xnorm = dnrm2_(&i__1, &x[1], incx);
+    xnorm = _starpu_dnrm2_(&i__1, &x[1], incx);
 
     if (xnorm == 0.) {
 
@@ -122,9 +122,9 @@
 
 /*        general case */
 
-	d__1 = dlapy2_(alpha, &xnorm);
+	d__1 = _starpu_dlapy2_(alpha, &xnorm);
 	beta = -d_sign(&d__1, alpha);
-	safmin = dlamch_("S") / dlamch_("E");
+	safmin = _starpu_dlamch_("S") / _starpu_dlamch_("E");
 	knt = 0;
 	if (abs(beta) < safmin) {
 
@@ -134,7 +134,7 @@
 L10:
 	    ++knt;
 	    i__1 = *n - 1;
-	    dscal_(&i__1, &rsafmn, &x[1], incx);
+	    _starpu_dscal_(&i__1, &rsafmn, &x[1], incx);
 	    beta *= rsafmn;
 	    *alpha *= rsafmn;
 	    if (abs(beta) < safmin) {
@@ -144,14 +144,14 @@ L10:
 /*           New BETA is at most 1, at least SAFMIN */
 
 	    i__1 = *n - 1;
-	    xnorm = dnrm2_(&i__1, &x[1], incx);
-	    d__1 = dlapy2_(alpha, &xnorm);
+	    xnorm = _starpu_dnrm2_(&i__1, &x[1], incx);
+	    d__1 = _starpu_dlapy2_(alpha, &xnorm);
 	    beta = -d_sign(&d__1, alpha);
 	}
 	*tau = (beta - *alpha) / beta;
 	i__1 = *n - 1;
 	d__1 = 1. / (*alpha - beta);
-	dscal_(&i__1, &d__1, &x[1], incx);
+	_starpu_dscal_(&i__1, &d__1, &x[1], incx);
 
 /*        If ALPHA is subnormal, it may lose relative accuracy */
 
@@ -167,4 +167,4 @@ L10:
 
 /*     End of DLARFG */
 
-} /* dlarfg_ */
+} /* _starpu_dlarfg_ */

min-dgels/additional/dlarfp.c

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-/* Subroutine */ int dlarfp_(integer *n, doublereal *alpha, doublereal *x, 
+/* Subroutine */ int _starpu_dlarfp_(integer *n, doublereal *alpha, doublereal *x, 
 	integer *incx, doublereal *tau)
 {
     /* System generated locals */
@@ -26,11 +26,11 @@
     /* Local variables */
     integer j, knt;
     doublereal beta;
-    extern doublereal dnrm2_(integer *, doublereal *, integer *);
-    extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, 
+    extern doublereal _starpu_dnrm2_(integer *, doublereal *, integer *);
+    extern /* Subroutine */ int _starpu_dscal_(integer *, doublereal *, doublereal *, 
 	    integer *);
     doublereal xnorm;
-    extern doublereal dlapy2_(doublereal *, doublereal *), dlamch_(char *);
+    extern doublereal _starpu_dlapy2_(doublereal *, doublereal *), _starpu_dlamch_(char *);
     doublereal safmin, rsafmn;
 
 
@@ -111,7 +111,7 @@
     }
 
     i__1 = *n - 1;
-    xnorm = dnrm2_(&i__1, &x[1], incx);
+    xnorm = _starpu_dnrm2_(&i__1, &x[1], incx);
 
     if (xnorm == 0.) {
 
@@ -136,9 +136,9 @@
 
 /*        general case */
 
-	d__1 = dlapy2_(alpha, &xnorm);
+	d__1 = _starpu_dlapy2_(alpha, &xnorm);
 	beta = d_sign(&d__1, alpha);
-	safmin = dlamch_("S") / dlamch_("E");
+	safmin = _starpu_dlamch_("S") / _starpu_dlamch_("E");
 	knt = 0;
 	if (abs(beta) < safmin) {
 
@@ -148,7 +148,7 @@
 L10:
 	    ++knt;
 	    i__1 = *n - 1;
-	    dscal_(&i__1, &rsafmn, &x[1], incx);
+	    _starpu_dscal_(&i__1, &rsafmn, &x[1], incx);
 	    beta *= rsafmn;
 	    *alpha *= rsafmn;
 	    if (abs(beta) < safmin) {
@@ -158,8 +158,8 @@ L10:
 /*           New BETA is at most 1, at least SAFMIN */
 
 	    i__1 = *n - 1;
-	    xnorm = dnrm2_(&i__1, &x[1], incx);
-	    d__1 = dlapy2_(alpha, &xnorm);
+	    xnorm = _starpu_dnrm2_(&i__1, &x[1], incx);
+	    d__1 = _starpu_dlapy2_(alpha, &xnorm);
 	    beta = d_sign(&d__1, alpha);
 	}
 	*alpha += beta;
@@ -173,7 +173,7 @@ L10:
 	}
 	i__1 = *n - 1;
 	d__1 = 1. / *alpha;
-	dscal_(&i__1, &d__1, &x[1], incx);
+	_starpu_dscal_(&i__1, &d__1, &x[1], incx);
 
 /*        If BETA is subnormal, it may lose relative accuracy */
 
@@ -189,4 +189,4 @@ L10:
 
 /*     End of DLARFP */
 
-} /* dlarfp_ */
+} /* _starpu_dlarfp_ */

min-dgels/additional/dlarft.c

@@ -18,7 +18,7 @@
 static integer c__1 = 1;
 static doublereal c_b8 = 0.;
 
-/* Subroutine */ int dlarft_(char *direct, char *storev, integer *n, integer *
+/* Subroutine */ int _starpu_dlarft_(char *direct, char *storev, integer *n, integer *
 	k, doublereal *v, integer *ldv, doublereal *tau, doublereal *t, 
 	integer *ldt)
 {
@@ -29,12 +29,12 @@ static doublereal c_b8 = 0.;
     /* Local variables */
     integer i__, j, prevlastv;
     doublereal vii;
-    extern logical lsame_(char *, char *);
-    extern /* Subroutine */ int dgemv_(char *, integer *, integer *, 
+    extern logical _starpu_lsame_(char *, char *);
+    extern /* Subroutine */ int _starpu_dgemv_(char *, integer *, integer *, 
 	    doublereal *, doublereal *, integer *, doublereal *, integer *, 
 	    doublereal *, doublereal *, integer *);
     integer lastv;
-    extern /* Subroutine */ int dtrmv_(char *, char *, char *, integer *, 
+    extern /* Subroutine */ int _starpu_dtrmv_(char *, char *, char *, integer *, 
 	    doublereal *, integer *, doublereal *, integer *);
 
 
@@ -163,7 +163,7 @@ static doublereal c_b8 = 0.;
 	return 0;
     }
 
-    if (lsame_(direct, "F")) {
+    if (_starpu_lsame_(direct, "F")) {
 	prevlastv = *n;
 	i__1 = *k;
 	for (i__ = 1; i__ <= i__1; ++i__) {
@@ -183,7 +183,7 @@ static doublereal c_b8 = 0.;
 
 		vii = v[i__ + i__ * v_dim1];
 		v[i__ + i__ * v_dim1] = 1.;
-		if (lsame_(storev, "C")) {
+		if (_starpu_lsame_(storev, "C")) {
 /*                 Skip any trailing zeros. */
 		    i__2 = i__ + 1;
 		    for (lastv = *n; lastv >= i__2; --lastv) {
@@ -198,7 +198,7 @@ static doublereal c_b8 = 0.;
 		    i__2 = j - i__ + 1;
 		    i__3 = i__ - 1;
 		    d__1 = -tau[i__];
-		    dgemv_("Transpose", &i__2, &i__3, &d__1, &v[i__ + v_dim1], 
+		    _starpu_dgemv_("Transpose", &i__2, &i__3, &d__1, &v[i__ + v_dim1], 
 			     ldv, &v[i__ + i__ * v_dim1], &c__1, &c_b8, &t[
 			    i__ * t_dim1 + 1], &c__1);
 		} else {
@@ -216,7 +216,7 @@ static doublereal c_b8 = 0.;
 		    i__2 = i__ - 1;
 		    i__3 = j - i__ + 1;
 		    d__1 = -tau[i__];
-		    dgemv_("No transpose", &i__2, &i__3, &d__1, &v[i__ * 
+		    _starpu_dgemv_("No transpose", &i__2, &i__3, &d__1, &v[i__ * 
 			    v_dim1 + 1], ldv, &v[i__ + i__ * v_dim1], ldv, &
 			    c_b8, &t[i__ * t_dim1 + 1], &c__1);
 		}
@@ -225,7 +225,7 @@ static doublereal c_b8 = 0.;
 /*              T(1:i-1,i) := T(1:i-1,1:i-1) * T(1:i-1,i) */
 
 		i__2 = i__ - 1;
-		dtrmv_("Upper", "No transpose", "Non-unit", &i__2, &t[
+		_starpu_dtrmv_("Upper", "No transpose", "Non-unit", &i__2, &t[
 			t_offset], ldt, &t[i__ * t_dim1 + 1], &c__1);
 		t[i__ + i__ * t_dim1] = tau[i__];
 		if (i__ > 1) {
@@ -253,7 +253,7 @@ static doublereal c_b8 = 0.;
 /*              general case */
 
 		if (i__ < *k) {
-		    if (lsame_(storev, "C")) {
+		    if (_starpu_lsame_(storev, "C")) {
 			vii = v[*n - *k + i__ + i__ * v_dim1];
 			v[*n - *k + i__ + i__ * v_dim1] = 1.;
 /*                    Skip any leading zeros. */
@@ -271,7 +271,7 @@ static doublereal c_b8 = 0.;
 			i__1 = *n - *k + i__ - j + 1;
 			i__2 = *k - i__;
 			d__1 = -tau[i__];
-			dgemv_("Transpose", &i__1, &i__2, &d__1, &v[j + (i__ 
+			_starpu_dgemv_("Transpose", &i__1, &i__2, &d__1, &v[j + (i__ 
 				+ 1) * v_dim1], ldv, &v[j + i__ * v_dim1], &
 				c__1, &c_b8, &t[i__ + 1 + i__ * t_dim1], &
 				c__1);
@@ -294,7 +294,7 @@ static doublereal c_b8 = 0.;
 			i__1 = *k - i__;
 			i__2 = *n - *k + i__ - j + 1;
 			d__1 = -tau[i__];
-			dgemv_("No transpose", &i__1, &i__2, &d__1, &v[i__ + 
+			_starpu_dgemv_("No transpose", &i__1, &i__2, &d__1, &v[i__ + 
 				1 + j * v_dim1], ldv, &v[i__ + j * v_dim1], 
 				ldv, &c_b8, &t[i__ + 1 + i__ * t_dim1], &c__1);
 			v[i__ + (*n - *k + i__) * v_dim1] = vii;
@@ -303,7 +303,7 @@ static doublereal c_b8 = 0.;
 /*                 T(i+1:k,i) := T(i+1:k,i+1:k) * T(i+1:k,i) */
 
 		    i__1 = *k - i__;
-		    dtrmv_("Lower", "No transpose", "Non-unit", &i__1, &t[i__ 
+		    _starpu_dtrmv_("Lower", "No transpose", "Non-unit", &i__1, &t[i__ 
 			    + 1 + (i__ + 1) * t_dim1], ldt, &t[i__ + 1 + i__ *
 			     t_dim1], &c__1)
 			    ;
@@ -322,4 +322,4 @@ static doublereal c_b8 = 0.;
 
 /*     End of DLARFT */
 
-} /* dlarft_ */
+} /* _starpu_dlarft_ */

min-dgels/additional/dlascl.c

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-/* Subroutine */ int dlascl_(char *type__, integer *kl, integer *ku, 
+/* Subroutine */ int _starpu_dlascl_(char *type__, integer *kl, integer *ku, 
 	doublereal *cfrom, doublereal *cto, integer *m, integer *n, 
 	doublereal *a, integer *lda, integer *info)
 {
@@ -25,13 +25,13 @@
     doublereal mul, cto1;
     logical done;
     doublereal ctoc;
-    extern logical lsame_(char *, char *);
+    extern logical _starpu_lsame_(char *, char *);
     integer itype;
     doublereal cfrom1;
-    extern doublereal dlamch_(char *);
+    extern doublereal _starpu_dlamch_(char *);
     doublereal cfromc;
-    extern logical disnan_(doublereal *);
-    extern /* Subroutine */ int xerbla_(char *, integer *);
+    extern logical _starpu_disnan_(doublereal *);
+    extern /* Subroutine */ int _starpu_xerbla_(char *, integer *);
     doublereal bignum, smlnum;
 
 
@@ -127,19 +127,19 @@
     /* Function Body */
     *info = 0;
 
-    if (lsame_(type__, "G")) {
+    if (_starpu_lsame_(type__, "G")) {
 	itype = 0;
-    } else if (lsame_(type__, "L")) {
+    } else if (_starpu_lsame_(type__, "L")) {
 	itype = 1;
-    } else if (lsame_(type__, "U")) {
+    } else if (_starpu_lsame_(type__, "U")) {
 	itype = 2;
-    } else if (lsame_(type__, "H")) {
+    } else if (_starpu_lsame_(type__, "H")) {
 	itype = 3;
-    } else if (lsame_(type__, "B")) {
+    } else if (_starpu_lsame_(type__, "B")) {
 	itype = 4;
-    } else if (lsame_(type__, "Q")) {
+    } else if (_starpu_lsame_(type__, "Q")) {
 	itype = 5;
-    } else if (lsame_(type__, "Z")) {
+    } else if (_starpu_lsame_(type__, "Z")) {
 	itype = 6;
     } else {
 	itype = -1;
@@ -147,9 +147,9 @@
 
     if (itype == -1) {
 	*info = -1;
-    } else if (*cfrom == 0. || disnan_(cfrom)) {
+    } else if (*cfrom == 0. || _starpu_disnan_(cfrom)) {
 	*info = -4;
-    } else if (disnan_(cto)) {
+    } else if (_starpu_disnan_(cto)) {
 	*info = -5;
     } else if (*m < 0) {
 	*info = -6;
@@ -177,7 +177,7 @@
 
     if (*info != 0) {
 	i__1 = -(*info);
-	xerbla_("DLASCL", &i__1);
+	_starpu_xerbla_("DLASCL", &i__1);
 	return 0;
     }
 
@@ -189,7 +189,7 @@
 
 /*     Get machine parameters */
 
-    smlnum = dlamch_("S");
+    smlnum = _starpu_dlamch_("S");
     bignum = 1. / smlnum;
 
     cfromc = *cfrom;
@@ -351,4 +351,4 @@ L10:
 
 /*     End of DLASCL */
 
-} /* dlascl_ */
+} /* _starpu_dlascl_ */

min-dgels/additional/dlaset.c

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-/* Subroutine */ int dlaset_(char *uplo, integer *m, integer *n, doublereal *
+/* Subroutine */ int _starpu_dlaset_(char *uplo, integer *m, integer *n, doublereal *
 	alpha, doublereal *beta, doublereal *a, integer *lda)
 {
     /* System generated locals */
@@ -21,7 +21,7 @@
 
     /* Local variables */
     integer i__, j;
-    extern logical lsame_(char *, char *);
+    extern logical _starpu_lsame_(char *, char *);
 
 
 /*  -- LAPACK auxiliary routine (version 3.2) -- */
@@ -90,7 +90,7 @@
     a -= a_offset;
 
     /* Function Body */
-    if (lsame_(uplo, "U")) {
+    if (_starpu_lsame_(uplo, "U")) {
 
 /*        Set the strictly upper triangular or trapezoidal part of the */
 /*        array to ALPHA. */
@@ -107,7 +107,7 @@
 /* L20: */
 	}
 
-    } else if (lsame_(uplo, "L")) {
+    } else if (_starpu_lsame_(uplo, "L")) {
 
 /*        Set the strictly lower triangular or trapezoidal part of the */
 /*        array to ALPHA. */
@@ -149,4 +149,4 @@
 
 /*     End of DLASET */
 
-} /* dlaset_ */
+} /* _starpu_dlaset_ */

min-dgels/additional/dlassq.c

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-/* Subroutine */ int dlassq_(integer *n, doublereal *x, integer *incx, 
+/* Subroutine */ int _starpu_dlassq_(integer *n, doublereal *x, integer *incx, 
 	doublereal *scale, doublereal *sumsq)
 {
     /* System generated locals */
@@ -113,4 +113,4 @@
 
 /*     End of DLASSQ */
 
-} /* dlassq_ */
+} /* _starpu_dlassq_ */

min-dgels/additional/dnrm2.c

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-doublereal dnrm2_(integer *n, doublereal *x, integer *incx)
+doublereal _starpu_dnrm2_(integer *n, doublereal *x, integer *incx)
 {
     /* System generated locals */
     integer i__1, i__2;
@@ -92,4 +92,4 @@ doublereal dnrm2_(integer *n, doublereal *x, integer *incx)
 
 /*     End of DNRM2. */
 
-} /* dnrm2_ */
+} /* _starpu_dnrm2_ */

min-dgels/additional/dorm2r.c

@@ -17,7 +17,7 @@
 
 static integer c__1 = 1;
 
-/* Subroutine */ int dorm2r_(char *side, char *trans, integer *m, integer *n, 
+/* Subroutine */ int _starpu_dorm2r_(char *side, char *trans, integer *m, integer *n, 
 	integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
 	c__, integer *ldc, doublereal *work, integer *info)
 {
@@ -28,11 +28,11 @@ static integer c__1 = 1;
     integer i__, i1, i2, i3, ic, jc, mi, ni, nq;
     doublereal aii;
     logical left;
-    extern /* Subroutine */ int dlarf_(char *, integer *, integer *, 
+    extern /* Subroutine */ int _starpu_dlarf_(char *, integer *, integer *, 
 	    doublereal *, integer *, doublereal *, doublereal *, integer *, 
 	    doublereal *);
-    extern logical lsame_(char *, char *);
-    extern /* Subroutine */ int xerbla_(char *, integer *);
+    extern logical _starpu_lsame_(char *, char *);
+    extern /* Subroutine */ int _starpu_xerbla_(char *, integer *);
     logical notran;
 
 
@@ -147,8 +147,8 @@ static integer c__1 = 1;
 
     /* Function Body */
     *info = 0;
-    left = lsame_(side, "L");
-    notran = lsame_(trans, "N");
+    left = _starpu_lsame_(side, "L");
+    notran = _starpu_lsame_(trans, "N");
 
 /*     NQ is the order of Q */
 
@@ -157,9 +157,9 @@ static integer c__1 = 1;
     } else {
 	nq = *n;
     }
-    if (! left && ! lsame_(side, "R")) {
+    if (! left && ! _starpu_lsame_(side, "R")) {
 	*info = -1;
-    } else if (! notran && ! lsame_(trans, "T")) {
+    } else if (! notran && ! _starpu_lsame_(trans, "T")) {
 	*info = -2;
     } else if (*m < 0) {
 	*info = -3;
@@ -174,7 +174,7 @@ static integer c__1 = 1;
     }
     if (*info != 0) {
 	i__1 = -(*info);
-	xerbla_("DORM2R", &i__1);
+	_starpu_xerbla_("DORM2R", &i__1);
 	return 0;
     }
 
@@ -223,7 +223,7 @@ static integer c__1 = 1;
 
 	aii = a[i__ + i__ * a_dim1];
 	a[i__ + i__ * a_dim1] = 1.;
-	dlarf_(side, &mi, &ni, &a[i__ + i__ * a_dim1], &c__1, &tau[i__], &c__[
+	_starpu_dlarf_(side, &mi, &ni, &a[i__ + i__ * a_dim1], &c__1, &tau[i__], &c__[
 		ic + jc * c_dim1], ldc, &work[1]);
 	a[i__ + i__ * a_dim1] = aii;
 /* L10: */
@@ -232,4 +232,4 @@ static integer c__1 = 1;
 
 /*     End of DORM2R */
 
-} /* dorm2r_ */
+} /* _starpu_dorm2r_ */

min-dgels/additional/dorml2.c

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-/* Subroutine */ int dorml2_(char *side, char *trans, integer *m, integer *n, 
+/* Subroutine */ int _starpu_dorml2_(char *side, char *trans, integer *m, integer *n, 
 	integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
 	c__, integer *ldc, doublereal *work, integer *info)
 {
@@ -24,11 +24,11 @@
     integer i__, i1, i2, i3, ic, jc, mi, ni, nq;
     doublereal aii;
     logical left;
-    extern /* Subroutine */ int dlarf_(char *, integer *, integer *, 
+    extern /* Subroutine */ int _starpu_dlarf_(char *, integer *, integer *, 
 	    doublereal *, integer *, doublereal *, doublereal *, integer *, 
 	    doublereal *);
-    extern logical lsame_(char *, char *);
-    extern /* Subroutine */ int xerbla_(char *, integer *);
+    extern logical _starpu_lsame_(char *, char *);
+    extern /* Subroutine */ int _starpu_xerbla_(char *, integer *);
     logical notran;
 
 
@@ -143,8 +143,8 @@
 
     /* Function Body */
     *info = 0;
-    left = lsame_(side, "L");
-    notran = lsame_(trans, "N");
+    left = _starpu_lsame_(side, "L");
+    notran = _starpu_lsame_(trans, "N");
 
 /*     NQ is the order of Q */
 
@@ -153,9 +153,9 @@
     } else {
 	nq = *n;
     }
-    if (! left && ! lsame_(side, "R")) {
+    if (! left && ! _starpu_lsame_(side, "R")) {
 	*info = -1;
-    } else if (! notran && ! lsame_(trans, "T")) {
+    } else if (! notran && ! _starpu_lsame_(trans, "T")) {
 	*info = -2;
     } else if (*m < 0) {
 	*info = -3;
@@ -170,7 +170,7 @@
     }
     if (*info != 0) {
 	i__1 = -(*info);
-	xerbla_("DORML2", &i__1);
+	_starpu_xerbla_("DORML2", &i__1);
 	return 0;
     }
 
@@ -219,7 +219,7 @@
 
 	aii = a[i__ + i__ * a_dim1];
 	a[i__ + i__ * a_dim1] = 1.;
-	dlarf_(side, &mi, &ni, &a[i__ + i__ * a_dim1], lda, &tau[i__], &c__[
+	_starpu_dlarf_(side, &mi, &ni, &a[i__ + i__ * a_dim1], lda, &tau[i__], &c__[
 		ic + jc * c_dim1], ldc, &work[1]);
 	a[i__ + i__ * a_dim1] = aii;
 /* L10: */
@@ -228,4 +228,4 @@
 
 /*     End of DORML2 */
 
-} /* dorml2_ */
+} /* _starpu_dorml2_ */

min-dgels/additional/dormlq.c

@@ -20,7 +20,7 @@ static integer c_n1 = -1;
 static integer c__2 = 2;
 static integer c__65 = 65;
 
-/* Subroutine */ int dormlq_(char *side, char *trans, integer *m, integer *n, 
+/* Subroutine */ int _starpu_dormlq_(char *side, char *trans, integer *m, integer *n, 
 	integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
 	c__, integer *ldc, doublereal *work, integer *lwork, integer *info)
 {
@@ -38,16 +38,16 @@ static integer c__65 = 65;
     doublereal t[4160]	/* was [65][64] */;
     integer i1, i2, i3, ib, ic, jc, nb, mi, ni, nq, nw, iws;
     logical left;
-    extern logical lsame_(char *, char *);
+    extern logical _starpu_lsame_(char *, char *);
     integer nbmin, iinfo;
-    extern /* Subroutine */ int dorml2_(char *, char *, integer *, integer *, 
+    extern /* Subroutine */ int _starpu_dorml2_(char *, char *, integer *, integer *, 
 	    integer *, doublereal *, integer *, doublereal *, doublereal *, 
-	    integer *, doublereal *, integer *), dlarfb_(char 
+	    integer *, doublereal *, integer *), _starpu_dlarfb_(char 
 	    *, char *, char *, char *, integer *, integer *, integer *, 
 	    doublereal *, integer *, doublereal *, integer *, doublereal *, 
-	    integer *, doublereal *, integer *), dlarft_(char *, char *, integer *, integer *, doublereal 
-	    *, integer *, doublereal *, doublereal *, integer *), xerbla_(char *, integer *);
-    extern integer ilaenv_(integer *, char *, char *, integer *, integer *, 
+	    integer *, doublereal *, integer *), _starpu_dlarft_(char *, char *, integer *, integer *, doublereal 
+	    *, integer *, doublereal *, doublereal *, integer *), _starpu_xerbla_(char *, integer *);
+    extern integer _starpu_ilaenv_(integer *, char *, char *, integer *, integer *, 
 	    integer *, integer *);
     logical notran;
     integer ldwork;
@@ -177,8 +177,8 @@ static integer c__65 = 65;
 
     /* Function Body */
     *info = 0;
-    left = lsame_(side, "L");
-    notran = lsame_(trans, "N");
+    left = _starpu_lsame_(side, "L");
+    notran = _starpu_lsame_(trans, "N");
     lquery = *lwork == -1;
 
 /*     NQ is the order of Q and NW is the minimum dimension of WORK */
@@ -190,9 +190,9 @@ static integer c__65 = 65;
 	nq = *n;
 	nw = *m;
     }
-    if (! left && ! lsame_(side, "R")) {
+    if (! left && ! _starpu_lsame_(side, "R")) {
 	*info = -1;
-    } else if (! notran && ! lsame_(trans, "T")) {
+    } else if (! notran && ! _starpu_lsame_(trans, "T")) {
 	*info = -2;
     } else if (*m < 0) {
 	*info = -3;
@@ -218,7 +218,7 @@ static integer c__65 = 65;
 	i__3[0] = 1, a__1[0] = side;
 	i__3[1] = 1, a__1[1] = trans;
 	s_cat(ch__1, a__1, i__3, &c__2, (ftnlen)2);
-	i__1 = 64, i__2 = ilaenv_(&c__1, "DORMLQ", ch__1, m, n, k, &c_n1);
+	i__1 = 64, i__2 = _starpu_ilaenv_(&c__1, "DORMLQ", ch__1, m, n, k, &c_n1);
 	nb = min(i__1,i__2);
 	lwkopt = max(1,nw) * nb;
 	work[1] = (doublereal) lwkopt;
@@ -226,7 +226,7 @@ static integer c__65 = 65;
 
     if (*info != 0) {
 	i__1 = -(*info);
-	xerbla_("DORMLQ", &i__1);
+	_starpu_xerbla_("DORMLQ", &i__1);
 	return 0;
     } else if (lquery) {
 	return 0;
@@ -250,7 +250,7 @@ static integer c__65 = 65;
 	    i__3[0] = 1, a__1[0] = side;
 	    i__3[1] = 1, a__1[1] = trans;
 	    s_cat(ch__1, a__1, i__3, &c__2, (ftnlen)2);
-	    i__1 = 2, i__2 = ilaenv_(&c__2, "DORMLQ", ch__1, m, n, k, &c_n1);
+	    i__1 = 2, i__2 = _starpu_ilaenv_(&c__2, "DORMLQ", ch__1, m, n, k, &c_n1);
 	    nbmin = max(i__1,i__2);
 	}
     } else {
@@ -261,7 +261,7 @@ static integer c__65 = 65;
 
 /*        Use unblocked code */
 
-	dorml2_(side, trans, m, n, k, &a[a_offset], lda, &tau[1], &c__[
+	_starpu_dorml2_(side, trans, m, n, k, &a[a_offset], lda, &tau[1], &c__[
 		c_offset], ldc, &work[1], &iinfo);
     } else {
 
@@ -302,7 +302,7 @@ static integer c__65 = 65;
 /*           H = H(i) H(i+1) . . . H(i+ib-1) */
 
 	    i__4 = nq - i__ + 1;
-	    dlarft_("Forward", "Rowwise", &i__4, &ib, &a[i__ + i__ * a_dim1], 
+	    _starpu_dlarft_("Forward", "Rowwise", &i__4, &ib, &a[i__ + i__ * a_dim1], 
 		    lda, &tau[i__], t, &c__65);
 	    if (left) {
 
@@ -320,7 +320,7 @@ static integer c__65 = 65;
 
 /*           Apply H or H' */
 
-	    dlarfb_(side, transt, "Forward", "Rowwise", &mi, &ni, &ib, &a[i__ 
+	    _starpu_dlarfb_(side, transt, "Forward", "Rowwise", &mi, &ni, &ib, &a[i__ 
 		    + i__ * a_dim1], lda, t, &c__65, &c__[ic + jc * c_dim1], 
 		    ldc, &work[1], &ldwork);
 /* L10: */
@@ -331,4 +331,4 @@ static integer c__65 = 65;
 
 /*     End of DORMLQ */
 
-} /* dormlq_ */
+} /* _starpu_dormlq_ */

min-dgels/additional/dormqr.c

@@ -20,7 +20,7 @@ static integer c_n1 = -1;
 static integer c__2 = 2;
 static integer c__65 = 65;
 
-/* Subroutine */ int dormqr_(char *side, char *trans, integer *m, integer *n, 
+/* Subroutine */ int _starpu_dormqr_(char *side, char *trans, integer *m, integer *n, 
 	integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
 	c__, integer *ldc, doublereal *work, integer *lwork, integer *info)
 {
@@ -38,16 +38,16 @@ static integer c__65 = 65;
     doublereal t[4160]	/* was [65][64] */;
     integer i1, i2, i3, ib, ic, jc, nb, mi, ni, nq, nw, iws;
     logical left;
-    extern logical lsame_(char *, char *);
+    extern logical _starpu_lsame_(char *, char *);
     integer nbmin, iinfo;
-    extern /* Subroutine */ int dorm2r_(char *, char *, integer *, integer *, 
+    extern /* Subroutine */ int _starpu_dorm2r_(char *, char *, integer *, integer *, 
 	    integer *, doublereal *, integer *, doublereal *, doublereal *, 
-	    integer *, doublereal *, integer *), dlarfb_(char 
+	    integer *, doublereal *, integer *), _starpu_dlarfb_(char 
 	    *, char *, char *, char *, integer *, integer *, integer *, 
 	    doublereal *, integer *, doublereal *, integer *, doublereal *, 
-	    integer *, doublereal *, integer *), dlarft_(char *, char *, integer *, integer *, doublereal 
-	    *, integer *, doublereal *, doublereal *, integer *), xerbla_(char *, integer *);
-    extern integer ilaenv_(integer *, char *, char *, integer *, integer *, 
+	    integer *, doublereal *, integer *), _starpu_dlarft_(char *, char *, integer *, integer *, doublereal 
+	    *, integer *, doublereal *, doublereal *, integer *), _starpu_xerbla_(char *, integer *);
+    extern integer _starpu_ilaenv_(integer *, char *, char *, integer *, integer *, 
 	    integer *, integer *);
     logical notran;
     integer ldwork, lwkopt;
@@ -175,8 +175,8 @@ static integer c__65 = 65;
 
     /* Function Body */
     *info = 0;
-    left = lsame_(side, "L");
-    notran = lsame_(trans, "N");
+    left = _starpu_lsame_(side, "L");
+    notran = _starpu_lsame_(trans, "N");
     lquery = *lwork == -1;
 
 /*     NQ is the order of Q and NW is the minimum dimension of WORK */
@@ -188,9 +188,9 @@ static integer c__65 = 65;
 	nq = *n;
 	nw = *m;
     }
-    if (! left && ! lsame_(side, "R")) {
+    if (! left && ! _starpu_lsame_(side, "R")) {
 	*info = -1;
-    } else if (! notran && ! lsame_(trans, "T")) {
+    } else if (! notran && ! _starpu_lsame_(trans, "T")) {
 	*info = -2;
     } else if (*m < 0) {
 	*info = -3;
@@ -216,7 +216,7 @@ static integer c__65 = 65;
 	i__3[0] = 1, a__1[0] = side;
 	i__3[1] = 1, a__1[1] = trans;
 	s_cat(ch__1, a__1, i__3, &c__2, (ftnlen)2);
-	i__1 = 64, i__2 = ilaenv_(&c__1, "DORMQR", ch__1, m, n, k, &c_n1);
+	i__1 = 64, i__2 = _starpu_ilaenv_(&c__1, "DORMQR", ch__1, m, n, k, &c_n1);
 	nb = min(i__1,i__2);
 	lwkopt = max(1,nw) * nb;
 	work[1] = (doublereal) lwkopt;
@@ -224,7 +224,7 @@ static integer c__65 = 65;
 
     if (*info != 0) {
 	i__1 = -(*info);
-	xerbla_("DORMQR", &i__1);
+	_starpu_xerbla_("DORMQR", &i__1);
 	return 0;
     } else if (lquery) {
 	return 0;
@@ -248,7 +248,7 @@ static integer c__65 = 65;
 	    i__3[0] = 1, a__1[0] = side;
 	    i__3[1] = 1, a__1[1] = trans;
 	    s_cat(ch__1, a__1, i__3, &c__2, (ftnlen)2);
-	    i__1 = 2, i__2 = ilaenv_(&c__2, "DORMQR", ch__1, m, n, k, &c_n1);
+	    i__1 = 2, i__2 = _starpu_ilaenv_(&c__2, "DORMQR", ch__1, m, n, k, &c_n1);
 	    nbmin = max(i__1,i__2);
 	}
     } else {
@@ -259,7 +259,7 @@ static integer c__65 = 65;
 
 /*        Use unblocked code */
 
-	dorm2r_(side, trans, m, n, k, &a[a_offset], lda, &tau[1], &c__[
+	_starpu_dorm2r_(side, trans, m, n, k, &a[a_offset], lda, &tau[1], &c__[
 		c_offset], ldc, &work[1], &iinfo);
     } else {
 
@@ -294,7 +294,7 @@ static integer c__65 = 65;
 /*           H = H(i) H(i+1) . . . H(i+ib-1) */
 
 	    i__4 = nq - i__ + 1;
-	    dlarft_("Forward", "Columnwise", &i__4, &ib, &a[i__ + i__ * 
+	    _starpu_dlarft_("Forward", "Columnwise", &i__4, &ib, &a[i__ + i__ * 
 		    a_dim1], lda, &tau[i__], t, &c__65)
 		    ;
 	    if (left) {
@@ -313,7 +313,7 @@ static integer c__65 = 65;
 
 /*           Apply H or H' */
 
-	    dlarfb_(side, trans, "Forward", "Columnwise", &mi, &ni, &ib, &a[
+	    _starpu_dlarfb_(side, trans, "Forward", "Columnwise", &mi, &ni, &ib, &a[
 		    i__ + i__ * a_dim1], lda, t, &c__65, &c__[ic + jc * 
 		    c_dim1], ldc, &work[1], &ldwork);
 /* L10: */
@@ -324,4 +324,4 @@ static integer c__65 = 65;
 
 /*     End of DORMQR */
 
-} /* dormqr_ */
+} /* _starpu_dormqr_ */

min-dgels/additional/dscal.c

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-/* Subroutine */ int dscal_(integer *n, doublereal *da, doublereal *dx, 
+/* Subroutine */ int _starpu_dscal_(integer *n, doublereal *da, doublereal *dx, 
 	integer *incx)
 {
     /* System generated locals */
@@ -93,4 +93,4 @@ L40:
 /* L50: */
     }
     return 0;
-} /* dscal_ */
+} /* _starpu_dscal_ */

min-dgels/additional/dtrmm.c

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-/* Subroutine */ int dtrmm_(char *side, char *uplo, char *transa, char *diag, 
+/* Subroutine */ int _starpu_dtrmm_(char *side, char *uplo, char *transa, char *diag, 
 	integer *m, integer *n, doublereal *alpha, doublereal *a, integer *
 	lda, doublereal *b, integer *ldb)
 {
@@ -24,10 +24,10 @@
     integer i__, j, k, info;
     doublereal temp;
     logical lside;
-    extern logical lsame_(char *, char *);
+    extern logical _starpu_lsame_(char *, char *);
     integer nrowa;
     logical upper;
-    extern /* Subroutine */ int xerbla_(char *, integer *);
+    extern /* Subroutine */ int _starpu_xerbla_(char *, integer *);
     logical nounit;
 
 /*     .. Scalar Arguments .. */
@@ -173,24 +173,24 @@
     b -= b_offset;
 
     /* Function Body */
-    lside = lsame_(side, "L");
+    lside = _starpu_lsame_(side, "L");
     if (lside) {
 	nrowa = *m;
     } else {
 	nrowa = *n;
     }
-    nounit = lsame_(diag, "N");
-    upper = lsame_(uplo, "U");
+    nounit = _starpu_lsame_(diag, "N");
+    upper = _starpu_lsame_(uplo, "U");
 
     info = 0;
-    if (! lside && ! lsame_(side, "R")) {
+    if (! lside && ! _starpu_lsame_(side, "R")) {
 	info = 1;
-    } else if (! upper && ! lsame_(uplo, "L")) {
+    } else if (! upper && ! _starpu_lsame_(uplo, "L")) {
 	info = 2;
-    } else if (! lsame_(transa, "N") && ! lsame_(transa, 
-	     "T") && ! lsame_(transa, "C")) {
+    } else if (! _starpu_lsame_(transa, "N") && ! _starpu_lsame_(transa, 
+	     "T") && ! _starpu_lsame_(transa, "C")) {
 	info = 3;
-    } else if (! lsame_(diag, "U") && ! lsame_(diag, 
+    } else if (! _starpu_lsame_(diag, "U") && ! _starpu_lsame_(diag, 
 	    "N")) {
 	info = 4;
     } else if (*m < 0) {
@@ -203,7 +203,7 @@
 	info = 11;
     }
     if (info != 0) {
-	xerbla_("DTRMM ", &info);
+	_starpu_xerbla_("DTRMM ", &info);
 	return 0;
     }
 
@@ -231,7 +231,7 @@
 /*     Start the operations. */
 
     if (lside) {
-	if (lsame_(transa, "N")) {
+	if (_starpu_lsame_(transa, "N")) {
 
 /*           Form  B := alpha*A*B. */
 
@@ -323,7 +323,7 @@
 	    }
 	}
     } else {
-	if (lsame_(transa, "N")) {
+	if (_starpu_lsame_(transa, "N")) {
 
 /*           Form  B := alpha*B*A. */
 
@@ -450,4 +450,4 @@
 
 /*     End of DTRMM . */
 
-} /* dtrmm_ */
+} /* _starpu_dtrmm_ */

min-dgels/additional/dtrmv.c

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-/* Subroutine */ int dtrmv_(char *uplo, char *trans, char *diag, integer *n, 
+/* Subroutine */ int _starpu_dtrmv_(char *uplo, char *trans, char *diag, integer *n, 
 	doublereal *a, integer *lda, doublereal *x, integer *incx)
 {
     /* System generated locals */
@@ -22,8 +22,8 @@
     /* Local variables */
     integer i__, j, ix, jx, kx, info;
     doublereal temp;
-    extern logical lsame_(char *, char *);
-    extern /* Subroutine */ int xerbla_(char *, integer *);
+    extern logical _starpu_lsame_(char *, char *);
+    extern /* Subroutine */ int _starpu_xerbla_(char *, integer *);
     logical nounit;
 
 /*     .. Scalar Arguments .. */
@@ -143,12 +143,12 @@
 
     /* Function Body */
     info = 0;
-    if (! lsame_(uplo, "U") && ! lsame_(uplo, "L")) {
+    if (! _starpu_lsame_(uplo, "U") && ! _starpu_lsame_(uplo, "L")) {
 	info = 1;
-    } else if (! lsame_(trans, "N") && ! lsame_(trans, 
-	    "T") && ! lsame_(trans, "C")) {
+    } else if (! _starpu_lsame_(trans, "N") && ! _starpu_lsame_(trans, 
+	    "T") && ! _starpu_lsame_(trans, "C")) {
 	info = 2;
-    } else if (! lsame_(diag, "U") && ! lsame_(diag, 
+    } else if (! _starpu_lsame_(diag, "U") && ! _starpu_lsame_(diag, 
 	    "N")) {
 	info = 3;
     } else if (*n < 0) {
@@ -159,7 +159,7 @@
 	info = 8;
     }
     if (info != 0) {
-	xerbla_("DTRMV ", &info);
+	_starpu_xerbla_("DTRMV ", &info);
 	return 0;
     }
 
@@ -169,7 +169,7 @@
 	return 0;
     }
 
-    nounit = lsame_(diag, "N");
+    nounit = _starpu_lsame_(diag, "N");
 
 /*     Set up the start point in X if the increment is not unity. This */
 /*     will be  ( N - 1 )*INCX  too small for descending loops. */
@@ -183,11 +183,11 @@
 /*     Start the operations. In this version the elements of A are */
 /*     accessed sequentially with one pass through A. */
 
-    if (lsame_(trans, "N")) {
+    if (_starpu_lsame_(trans, "N")) {
 
 /*        Form  x := A*x. */
 
-	if (lsame_(uplo, "U")) {
+	if (_starpu_lsame_(uplo, "U")) {
 	    if (*incx == 1) {
 		i__1 = *n;
 		for (j = 1; j <= i__1; ++j) {
@@ -267,7 +267,7 @@
 
 /*        Form  x := A'*x. */
 
-	if (lsame_(uplo, "U")) {
+	if (_starpu_lsame_(uplo, "U")) {
 	    if (*incx == 1) {
 		for (j = *n; j >= 1; --j) {
 		    temp = x[j];
@@ -342,4 +342,4 @@
 
 /*     End of DTRMV . */
 
-} /* dtrmv_ */
+} /* _starpu_dtrmv_ */

min-dgels/additional/dtrsm.c

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-/* Subroutine */ int dtrsm_(char *side, char *uplo, char *transa, char *diag, 
+/* Subroutine */ int _starpu_dtrsm_(char *side, char *uplo, char *transa, char *diag, 
 	integer *m, integer *n, doublereal *alpha, doublereal *a, integer *
 	lda, doublereal *b, integer *ldb)
 {
@@ -24,10 +24,10 @@
     integer i__, j, k, info;
     doublereal temp;
     logical lside;
-    extern logical lsame_(char *, char *);
+    extern logical _starpu_lsame_(char *, char *);
     integer nrowa;
     logical upper;
-    extern /* Subroutine */ int xerbla_(char *, integer *);
+    extern /* Subroutine */ int _starpu_xerbla_(char *, integer *);
     logical nounit;
 
 /*     .. Scalar Arguments .. */
@@ -176,24 +176,24 @@
     b -= b_offset;
 
     /* Function Body */
-    lside = lsame_(side, "L");
+    lside = _starpu_lsame_(side, "L");
     if (lside) {
 	nrowa = *m;
     } else {
 	nrowa = *n;
     }
-    nounit = lsame_(diag, "N");
-    upper = lsame_(uplo, "U");
+    nounit = _starpu_lsame_(diag, "N");
+    upper = _starpu_lsame_(uplo, "U");
 
     info = 0;
-    if (! lside && ! lsame_(side, "R")) {
+    if (! lside && ! _starpu_lsame_(side, "R")) {
 	info = 1;
-    } else if (! upper && ! lsame_(uplo, "L")) {
+    } else if (! upper && ! _starpu_lsame_(uplo, "L")) {
 	info = 2;
-    } else if (! lsame_(transa, "N") && ! lsame_(transa, 
-	     "T") && ! lsame_(transa, "C")) {
+    } else if (! _starpu_lsame_(transa, "N") && ! _starpu_lsame_(transa, 
+	     "T") && ! _starpu_lsame_(transa, "C")) {
 	info = 3;
-    } else if (! lsame_(diag, "U") && ! lsame_(diag, 
+    } else if (! _starpu_lsame_(diag, "U") && ! _starpu_lsame_(diag, 
 	    "N")) {
 	info = 4;
     } else if (*m < 0) {
@@ -206,7 +206,7 @@
 	info = 11;
     }
     if (info != 0) {
-	xerbla_("DTRSM ", &info);
+	_starpu_xerbla_("DTRSM ", &info);
 	return 0;
     }
 
@@ -234,7 +234,7 @@
 /*     Start the operations. */
 
     if (lside) {
-	if (lsame_(transa, "N")) {
+	if (_starpu_lsame_(transa, "N")) {
 
 /*           Form  B := alpha*inv( A )*B. */
 
@@ -338,7 +338,7 @@
 	    }
 	}
     } else {
-	if (lsame_(transa, "N")) {
+	if (_starpu_lsame_(transa, "N")) {
 
 /*           Form  B := alpha*B*inv( A ). */
 
@@ -487,4 +487,4 @@
 
 /*     End of DTRSM . */
 
-} /* dtrsm_ */
+} /* _starpu_dtrsm_ */

min-dgels/additional/dtrtrs.c

@@ -17,7 +17,7 @@
 
 static doublereal c_b12 = 1.;
 
-/* Subroutine */ int dtrtrs_(char *uplo, char *trans, char *diag, integer *n, 
+/* Subroutine */ int _starpu_dtrtrs_(char *uplo, char *trans, char *diag, integer *n, 
 	integer *nrhs, doublereal *a, integer *lda, doublereal *b, integer *
 	ldb, integer *info)
 {
@@ -25,10 +25,10 @@ static doublereal c_b12 = 1.;
     integer a_dim1, a_offset, b_dim1, b_offset, i__1;
 
     /* Local variables */
-    extern logical lsame_(char *, char *);
-    extern /* Subroutine */ int dtrsm_(char *, char *, char *, char *, 
+    extern logical _starpu_lsame_(char *, char *);
+    extern /* Subroutine */ int _starpu_dtrsm_(char *, char *, char *, char *, 
 	    integer *, integer *, doublereal *, doublereal *, integer *, 
-	    doublereal *, integer *), xerbla_(
+	    doublereal *, integer *), _starpu_xerbla_(
 	    char *, integer *);
     logical nounit;
 
@@ -129,13 +129,13 @@ static doublereal c_b12 = 1.;
 
     /* Function Body */
     *info = 0;
-    nounit = lsame_(diag, "N");
-    if (! lsame_(uplo, "U") && ! lsame_(uplo, "L")) {
+    nounit = _starpu_lsame_(diag, "N");
+    if (! _starpu_lsame_(uplo, "U") && ! _starpu_lsame_(uplo, "L")) {
 	*info = -1;
-    } else if (! lsame_(trans, "N") && ! lsame_(trans, 
-	    "T") && ! lsame_(trans, "C")) {
+    } else if (! _starpu_lsame_(trans, "N") && ! _starpu_lsame_(trans, 
+	    "T") && ! _starpu_lsame_(trans, "C")) {
 	*info = -2;
-    } else if (! nounit && ! lsame_(diag, "U")) {
+    } else if (! nounit && ! _starpu_lsame_(diag, "U")) {
 	*info = -3;
     } else if (*n < 0) {
 	*info = -4;
@@ -148,7 +148,7 @@ static doublereal c_b12 = 1.;
     }
     if (*info != 0) {
 	i__1 = -(*info);
-	xerbla_("DTRTRS", &i__1);
+	_starpu_xerbla_("DTRTRS", &i__1);
 	return 0;
     }
 
@@ -173,11 +173,11 @@ static doublereal c_b12 = 1.;
 
 /*     Solve A * x = b  or  A' * x = b. */
 
-    dtrsm_("Left", uplo, trans, diag, n, nrhs, &c_b12, &a[a_offset], lda, &b[
+    _starpu_dtrsm_("Left", uplo, trans, diag, n, nrhs, &c_b12, &a[a_offset], lda, &b[
 	    b_offset], ldb);
 
     return 0;
 
 /*     End of DTRTRS */
 
-} /* dtrtrs_ */
+} /* _starpu_dtrtrs_ */

min-dgels/additional/ieeeck.c

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-integer ieeeck_(integer *ispec, real *zero, real *one)
+integer _starpu_ieeeck_(integer *ispec, real *zero, real *one)
 {
     /* System generated locals */
     integer ret_val;
@@ -163,4 +163,4 @@ integer ieeeck_(integer *ispec, real *zero, real *one)
     }
 
     return ret_val;
-} /* ieeeck_ */
+} /* _starpu_ieeeck_ */

min-dgels/additional/iladlc.c

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-integer iladlc_(integer *m, integer *n, doublereal *a, integer *lda)
+integer _starpu_iladlc_(integer *m, integer *n, doublereal *a, integer *lda)
 {
     /* System generated locals */
     integer a_dim1, a_offset, ret_val, i__1;
@@ -85,4 +85,4 @@ integer iladlc_(integer *m, integer *n, doublereal *a, integer *lda)
 	}
     }
     return ret_val;
-} /* iladlc_ */
+} /* _starpu_iladlc_ */

min-dgels/additional/iladlr.c

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-integer iladlr_(integer *m, integer *n, doublereal *a, integer *lda)
+integer _starpu_iladlr_(integer *m, integer *n, doublereal *a, integer *lda)
 {
     /* System generated locals */
     integer a_dim1, a_offset, ret_val, i__1;
@@ -87,4 +87,4 @@ integer iladlr_(integer *m, integer *n, doublereal *a, integer *lda)
 	}
     }
     return ret_val;
-} /* iladlr_ */
+} /* _starpu_iladlr_ */

min-dgels/additional/ilaenv.c

@@ -21,7 +21,7 @@ static real c_b163 = 0.f;
 static real c_b164 = 1.f;
 static integer c__0 = 0;
 
-integer ilaenv_(integer *ispec, char *name__, char *opts, integer *n1, 
+integer _starpu_ilaenv_(integer *ispec, char *name__, char *opts, integer *n1, 
 	integer *n2, integer *n3, integer *n4)
 {
     /* System generated locals */
@@ -38,9 +38,9 @@ integer ilaenv_(integer *ispec, char *name__, char *opts, integer *n1,
     logical cname;
     integer nbmin;
     logical sname;
-    extern integer ieeeck_(integer *, real *, real *);
+    extern integer _starpu_ieeeck_(integer *, real *, real *);
     char subnam[1];
-    extern integer iparmq_(integer *, char *, char *, integer *, integer *, 
+    extern integer _starpu_iparmq_(integer *, char *, char *, integer *, integer *, 
 	    integer *, integer *);
 
     ftnlen name_len, opts_len;
@@ -626,7 +626,7 @@ L140:
 /*     ILAENV = 0 */
     ret_val = 1;
     if (ret_val == 1) {
-	ret_val = ieeeck_(&c__1, &c_b163, &c_b164);
+	ret_val = _starpu_ieeeck_(&c__1, &c_b163, &c_b164);
     }
     return ret_val;
 
@@ -637,7 +637,7 @@ L150:
 /*     ILAENV = 0 */
     ret_val = 1;
     if (ret_val == 1) {
-	ret_val = ieeeck_(&c__0, &c_b163, &c_b164);
+	ret_val = _starpu_ieeeck_(&c__0, &c_b163, &c_b164);
     }
     return ret_val;
 
@@ -645,10 +645,10 @@ L160:
 
 /*     12 <= ISPEC <= 16: xHSEQR or one of its subroutines. */
 
-    ret_val = iparmq_(ispec, name__, opts, n1, n2, n3, n4)
+    ret_val = _starpu_iparmq_(ispec, name__, opts, n1, n2, n3, n4)
 	    ;
     return ret_val;
 
 /*     End of ILAENV */
 
-} /* ilaenv_ */
+} /* _starpu_ilaenv_ */

min-dgels/additional/iparmq.c

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-integer iparmq_(integer *ispec, char *name__, char *opts, integer *n, integer 
+integer _starpu_iparmq_(integer *ispec, char *name__, char *opts, integer *n, integer 
 	*ilo, integer *ihi, integer *lwork)
 {
     /* System generated locals */
@@ -279,4 +279,4 @@ integer iparmq_(integer *ispec, char *name__, char *opts, integer *n, integer
 /*     ==== End of IPARMQ ==== */
 
     return ret_val;
-} /* iparmq_ */
+} /* _starpu_iparmq_ */

min-dgels/additional/lsame.c

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-logical lsame_(char *ca, char *cb)
+logical _starpu_lsame_(char *ca, char *cb)
 {
     /* System generated locals */
     logical ret_val;
@@ -114,4 +114,4 @@ logical lsame_(char *ca, char *cb)
 /*     End of LSAME */
 
     return ret_val;
-} /* lsame_ */
+} /* _starpu_lsame_ */

min-dgels/additional/mindgels.h

@@ -3,6 +3,6 @@
 
 #include "f2c.h"
 
-int dgels_(char *trans, integer *m, integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *work, integer *lwork, integer *info);
+int _starpu_dgels_(char *trans, integer *m, integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *work, integer *lwork, integer *info);
 
 #endif

min-dgels/additional/xerbla.c

@@ -18,7 +18,7 @@
 
 static integer c__1 = 1;
 
-/* Subroutine */ int xerbla_(char *srname, integer *info)
+/* Subroutine */ int _starpu_xerbla_(char *srname, integer *info)
 {
     
 
@@ -62,4 +62,4 @@ static integer c__1 = 1;
 /*     End of XERBLA */
 
     return 0;
-} /* xerbla_ */
+} /* _starpu_xerbla_ */

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

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-doublereal dasum_(integer *n, doublereal *dx, integer *incx)
+doublereal _starpu_dasum_(integer *n, doublereal *dx, integer *incx)
 {
     /* System generated locals */
     integer i__1, i__2;
@@ -98,4 +98,4 @@ L40:
 L60:
     ret_val = dtemp;
     return ret_val;
-} /* dasum_ */
+} /* _starpu_dasum_ */

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

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-/* Subroutine */ int daxpy_(integer *n, doublereal *da, doublereal *dx, 
+/* Subroutine */ int _starpu_daxpy_(integer *n, doublereal *da, doublereal *dx, 
 	integer *incx, doublereal *dy, integer *incy)
 {
     /* System generated locals */
@@ -104,4 +104,4 @@ L40:
 /* L50: */
     }
     return 0;
-} /* daxpy_ */
+} /* _starpu_daxpy_ */

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

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-doublereal dcabs1_(doublecomplex *z__)
+doublereal _starpu_dcabs1_(doublecomplex *z__)
 {
     /* System generated locals */
     doublereal ret_val, d__1, d__2;
@@ -33,4 +33,4 @@ doublereal dcabs1_(doublecomplex *z__)
 
     ret_val = (d__1 = z__->r, abs(d__1)) + (d__2 = d_imag(z__), abs(d__2));
     return ret_val;
-} /* dcabs1_ */
+} /* _starpu_dcabs1_ */

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

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-/* Subroutine */ int dcopy_(integer *n, doublereal *dx, integer *incx, 
+/* Subroutine */ int _starpu_dcopy_(integer *n, doublereal *dx, integer *incx, 
 	doublereal *dy, integer *incy)
 {
     /* System generated locals */
@@ -104,4 +104,4 @@ L40:
 /* L50: */
     }
     return 0;
-} /* dcopy_ */
+} /* _starpu_dcopy_ */

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

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-doublereal ddot_(integer *n, doublereal *dx, integer *incx, doublereal *dy, 
+doublereal _starpu_ddot_(integer *n, doublereal *dx, integer *incx, doublereal *dy, 
 	integer *incy)
 {
     /* System generated locals */
@@ -107,4 +107,4 @@ L40:
 L60:
     ret_val = dtemp;
     return ret_val;
-} /* ddot_ */
+} /* _starpu_ddot_ */

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

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-/* Subroutine */ int dgbmv_(char *trans, integer *m, integer *n, integer *kl, 
+/* Subroutine */ int _starpu_dgbmv_(char *trans, integer *m, integer *n, integer *kl, 
 	integer *ku, doublereal *alpha, doublereal *a, integer *lda, 
 	doublereal *x, integer *incx, doublereal *beta, doublereal *y, 
 	integer *incy)
@@ -25,8 +25,8 @@
     integer i__, j, k, ix, iy, jx, jy, kx, ky, kup1, info;
     doublereal temp;
     integer lenx, leny;
-    extern logical lsame_(char *, char *);
-    extern /* Subroutine */ int xerbla_(char *, integer *);
+    extern logical _starpu_lsame_(char *, char *);
+    extern /* Subroutine */ int _starpu_xerbla_(char *, integer *);
 
 /*     .. Scalar Arguments .. */
 /*     .. */
@@ -171,7 +171,7 @@
 
     /* Function Body */
     info = 0;
-    if (! lsame_(trans, "N") && ! lsame_(trans, "T") && ! lsame_(trans, "C")
+    if (! _starpu_lsame_(trans, "N") && ! _starpu_lsame_(trans, "T") && ! _starpu_lsame_(trans, "C")
 	    ) {
 	info = 1;
     } else if (*m < 0) {
@@ -190,7 +190,7 @@
 	info = 13;
     }
     if (info != 0) {
-	xerbla_("DGBMV ", &info);
+	_starpu_xerbla_("DGBMV ", &info);
 	return 0;
     }
 
@@ -203,7 +203,7 @@
 /*     Set  LENX  and  LENY, the lengths of the vectors x and y, and set */
 /*     up the start points in  X  and  Y. */
 
-    if (lsame_(trans, "N")) {
+    if (_starpu_lsame_(trans, "N")) {
 	lenx = *n;
 	leny = *m;
     } else {
@@ -264,7 +264,7 @@
 	return 0;
     }
     kup1 = *ku + 1;
-    if (lsame_(trans, "N")) {
+    if (_starpu_lsame_(trans, "N")) {
 
 /*        Form  y := alpha*A*x + y. */
 
@@ -366,4 +366,4 @@
 
 /*     End of DGBMV . */
 
-} /* dgbmv_ */
+} /* _starpu_dgbmv_ */

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

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-/* Subroutine */ int dgemm_(char *transa, char *transb, integer *m, integer *
+/* Subroutine */ int _starpu_dgemm_(char *transa, char *transb, integer *m, integer *
 	n, integer *k, doublereal *alpha, doublereal *a, integer *lda, 
 	doublereal *b, integer *ldb, doublereal *beta, doublereal *c__, 
 	integer *ldc)
@@ -27,9 +27,9 @@
     logical nota, notb;
     doublereal temp;
     integer ncola;
-    extern logical lsame_(char *, char *);
+    extern logical _starpu_lsame_(char *, char *);
     integer nrowa, nrowb;
-    extern /* Subroutine */ int xerbla_(char *, integer *);
+    extern /* Subroutine */ int _starpu_xerbla_(char *, integer *);
 
 /*     .. Scalar Arguments .. */
 /*     .. */
@@ -183,8 +183,8 @@
     c__ -= c_offset;
 
     /* Function Body */
-    nota = lsame_(transa, "N");
-    notb = lsame_(transb, "N");
+    nota = _starpu_lsame_(transa, "N");
+    notb = _starpu_lsame_(transb, "N");
     if (nota) {
 	nrowa = *m;
 	ncola = *k;
@@ -201,11 +201,11 @@
 /*     Test the input parameters. */
 
     info = 0;
-    if (! nota && ! lsame_(transa, "C") && ! lsame_(
+    if (! nota && ! _starpu_lsame_(transa, "C") && ! _starpu_lsame_(
 	    transa, "T")) {
 	info = 1;
-    } else if (! notb && ! lsame_(transb, "C") && ! 
-	    lsame_(transb, "T")) {
+    } else if (! notb && ! _starpu_lsame_(transb, "C") && ! 
+	    _starpu_lsame_(transb, "T")) {
 	info = 2;
     } else if (*m < 0) {
 	info = 3;
@@ -221,7 +221,7 @@
 	info = 13;
     }
     if (info != 0) {
-	xerbla_("DGEMM ", &info);
+	_starpu_xerbla_("DGEMM ", &info);
 	return 0;
     }
 
@@ -386,4 +386,4 @@
 
 /*     End of DGEMM . */
 
-} /* dgemm_ */
+} /* _starpu_dgemm_ */

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

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-/* Subroutine */ int dgemv_(char *trans, integer *m, integer *n, doublereal *
+/* Subroutine */ int _starpu_dgemv_(char *trans, integer *m, integer *n, doublereal *
 	alpha, doublereal *a, integer *lda, doublereal *x, integer *incx, 
 	doublereal *beta, doublereal *y, integer *incy)
 {
@@ -24,8 +24,8 @@
     integer i__, j, ix, iy, jx, jy, kx, ky, info;
     doublereal temp;
     integer lenx, leny;
-    extern logical lsame_(char *, char *);
-    extern /* Subroutine */ int xerbla_(char *, integer *);
+    extern logical _starpu_lsame_(char *, char *);
+    extern /* Subroutine */ int _starpu_xerbla_(char *, integer *);
 
 /*     .. Scalar Arguments .. */
 /*     .. */
@@ -145,7 +145,7 @@
 
     /* Function Body */
     info = 0;
-    if (! lsame_(trans, "N") && ! lsame_(trans, "T") && ! lsame_(trans, "C")
+    if (! _starpu_lsame_(trans, "N") && ! _starpu_lsame_(trans, "T") && ! _starpu_lsame_(trans, "C")
 	    ) {
 	info = 1;
     } else if (*m < 0) {
@@ -160,7 +160,7 @@
 	info = 11;
     }
     if (info != 0) {
-	xerbla_("DGEMV ", &info);
+	_starpu_xerbla_("DGEMV ", &info);
 	return 0;
     }
 
@@ -173,7 +173,7 @@
 /*     Set  LENX  and  LENY, the lengths of the vectors x and y, and set */
 /*     up the start points in  X  and  Y. */
 
-    if (lsame_(trans, "N")) {
+    if (_starpu_lsame_(trans, "N")) {
 	lenx = *n;
 	leny = *m;
     } else {
@@ -233,7 +233,7 @@
     if (*alpha == 0.) {
 	return 0;
     }
-    if (lsame_(trans, "N")) {
+    if (_starpu_lsame_(trans, "N")) {
 
 /*        Form  y := alpha*A*x + y. */
 
@@ -309,4 +309,4 @@
 
 /*     End of DGEMV . */
 
-} /* dgemv_ */
+} /* _starpu_dgemv_ */

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

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-/* Subroutine */ int dger_(integer *m, integer *n, doublereal *alpha, 
+/* Subroutine */ int _starpu_dger_(integer *m, integer *n, doublereal *alpha, 
 	doublereal *x, integer *incx, doublereal *y, integer *incy, 
 	doublereal *a, integer *lda)
 {
@@ -23,7 +23,7 @@
     /* Local variables */
     integer i__, j, ix, jy, kx, info;
     doublereal temp;
-    extern /* Subroutine */ int xerbla_(char *, integer *);
+    extern /* Subroutine */ int _starpu_xerbla_(char *, integer *);
 
 /*     .. Scalar Arguments .. */
 /*     .. */
@@ -132,7 +132,7 @@
 	info = 9;
     }
     if (info != 0) {
-	xerbla_("DGER  ", &info);
+	_starpu_xerbla_("DGER  ", &info);
 	return 0;
     }
 
@@ -191,4 +191,4 @@
 
 /*     End of DGER  . */
 
-} /* dger_ */
+} /* _starpu_dger_ */

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

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-doublereal dnrm2_(integer *n, doublereal *x, integer *incx)
+doublereal _starpu_dnrm2_(integer *n, doublereal *x, integer *incx)
 {
     /* System generated locals */
     integer i__1, i__2;
@@ -92,4 +92,4 @@ doublereal dnrm2_(integer *n, doublereal *x, integer *incx)
 
 /*     End of DNRM2. */
 
-} /* dnrm2_ */
+} /* _starpu_dnrm2_ */

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

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-/* Subroutine */ int drot_(integer *n, doublereal *dx, integer *incx, 
+/* Subroutine */ int _starpu_drot_(integer *n, doublereal *dx, integer *incx, 
 	doublereal *dy, integer *incy, doublereal *c__, doublereal *s)
 {
     /* System generated locals */
@@ -83,4 +83,4 @@ L20:
 /* L30: */
     }
     return 0;
-} /* drot_ */
+} /* _starpu_drot_ */

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

@@ -17,7 +17,7 @@
 
 static doublereal c_b4 = 1.;
 
-/* Subroutine */ int drotg_(doublereal *da, doublereal *db, doublereal *c__, 
+/* Subroutine */ int _starpu_drotg_(doublereal *da, doublereal *db, doublereal *c__, 
 	doublereal *s)
 {
     /* System generated locals */
@@ -76,4 +76,4 @@ L20:
     *da = r__;
     *db = z__;
     return 0;
-} /* drotg_ */
+} /* _starpu_drotg_ */

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

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-/* Subroutine */ int drotm_(integer *n, doublereal *dx, integer *incx, 
+/* Subroutine */ int _starpu_drotm_(integer *n, doublereal *dx, integer *incx, 
 	doublereal *dy, integer *incy, doublereal *dparam)
 {
     /* Initialized data */
@@ -212,4 +212,4 @@ L120:
     }
 L140:
     return 0;
-} /* drotm_ */
+} /* _starpu_drotm_ */

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

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-/* Subroutine */ int drotmg_(doublereal *dd1, doublereal *dd2, doublereal *
+/* Subroutine */ int _starpu_drotmg_(doublereal *dd1, doublereal *dd2, doublereal *
 	dx1, doublereal *dy1, doublereal *dparam)
 {
     /* Initialized data */
@@ -290,4 +290,4 @@ L250:
 L260:
     dparam[1] = dflag;
     return 0;
-} /* drotmg_ */
+} /* _starpu_drotmg_ */

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

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-/* Subroutine */ int dsbmv_(char *uplo, integer *n, integer *k, doublereal *
+/* Subroutine */ int _starpu_dsbmv_(char *uplo, integer *n, integer *k, doublereal *
 	alpha, doublereal *a, integer *lda, doublereal *x, integer *incx, 
 	doublereal *beta, doublereal *y, integer *incy)
 {
@@ -23,9 +23,9 @@
     /* Local variables */
     integer i__, j, l, ix, iy, jx, jy, kx, ky, info;
     doublereal temp1, temp2;
-    extern logical lsame_(char *, char *);
+    extern logical _starpu_lsame_(char *, char *);
     integer kplus1;
-    extern /* Subroutine */ int xerbla_(char *, integer *);
+    extern /* Subroutine */ int _starpu_xerbla_(char *, integer *);
 
 /*     .. Scalar Arguments .. */
 /*     .. */
@@ -174,7 +174,7 @@
 
     /* Function Body */
     info = 0;
-    if (! lsame_(uplo, "U") && ! lsame_(uplo, "L")) {
+    if (! _starpu_lsame_(uplo, "U") && ! _starpu_lsame_(uplo, "L")) {
 	info = 1;
     } else if (*n < 0) {
 	info = 2;
@@ -188,7 +188,7 @@
 	info = 11;
     }
     if (info != 0) {
-	xerbla_("DSBMV ", &info);
+	_starpu_xerbla_("DSBMV ", &info);
 	return 0;
     }
 
@@ -253,7 +253,7 @@
     if (*alpha == 0.) {
 	return 0;
     }
-    if (lsame_(uplo, "U")) {
+    if (_starpu_lsame_(uplo, "U")) {
 
 /*        Form  y  when upper triangle of A is stored. */
 
@@ -361,4 +361,4 @@
 
 /*     End of DSBMV . */
 
-} /* dsbmv_ */
+} /* _starpu_dsbmv_ */

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

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-/* Subroutine */ int dscal_(integer *n, doublereal *da, doublereal *dx, 
+/* Subroutine */ int _starpu_dscal_(integer *n, doublereal *da, doublereal *dx, 
 	integer *incx)
 {
     /* System generated locals */
@@ -93,4 +93,4 @@ L40:
 /* L50: */
     }
     return 0;
-} /* dscal_ */
+} /* _starpu_dscal_ */

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

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

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

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-/* Subroutine */ int dspmv_(char *uplo, integer *n, doublereal *alpha, 
+/* Subroutine */ int _starpu_dspmv_(char *uplo, integer *n, doublereal *alpha, 
 	doublereal *ap, doublereal *x, integer *incx, doublereal *beta, 
 	doublereal *y, integer *incy)
 {
@@ -23,8 +23,8 @@
     /* Local variables */
     integer i__, j, k, kk, ix, iy, jx, jy, kx, ky, info;
     doublereal temp1, temp2;
-    extern logical lsame_(char *, char *);
-    extern /* Subroutine */ int xerbla_(char *, integer *);
+    extern logical _starpu_lsame_(char *, char *);
+    extern /* Subroutine */ int _starpu_xerbla_(char *, integer *);
 
 /*     .. Scalar Arguments .. */
 /*     .. */
@@ -135,7 +135,7 @@
 
     /* Function Body */
     info = 0;
-    if (! lsame_(uplo, "U") && ! lsame_(uplo, "L")) {
+    if (! _starpu_lsame_(uplo, "U") && ! _starpu_lsame_(uplo, "L")) {
 	info = 1;
     } else if (*n < 0) {
 	info = 2;
@@ -145,7 +145,7 @@
 	info = 9;
     }
     if (info != 0) {
-	xerbla_("DSPMV ", &info);
+	_starpu_xerbla_("DSPMV ", &info);
 	return 0;
     }
 
@@ -211,7 +211,7 @@
 	return 0;
     }
     kk = 1;
-    if (lsame_(uplo, "U")) {
+    if (_starpu_lsame_(uplo, "U")) {
 
 /*        Form  y  when AP contains the upper triangle. */
 
@@ -309,4 +309,4 @@
 
 /*     End of DSPMV . */
 
-} /* dspmv_ */
+} /* _starpu_dspmv_ */

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

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-/* Subroutine */ int dspr_(char *uplo, integer *n, doublereal *alpha, 
+/* Subroutine */ int _starpu_dspr_(char *uplo, integer *n, doublereal *alpha, 
 	doublereal *x, integer *incx, doublereal *ap)
 {
     /* System generated locals */
@@ -22,8 +22,8 @@
     /* Local variables */
     integer i__, j, k, kk, ix, jx, kx, info;
     doublereal temp;
-    extern logical lsame_(char *, char *);
-    extern /* Subroutine */ int xerbla_(char *, integer *);
+    extern logical _starpu_lsame_(char *, char *);
+    extern /* Subroutine */ int _starpu_xerbla_(char *, integer *);
 
 /*     .. Scalar Arguments .. */
 /*     .. */
@@ -120,7 +120,7 @@
 
     /* Function Body */
     info = 0;
-    if (! lsame_(uplo, "U") && ! lsame_(uplo, "L")) {
+    if (! _starpu_lsame_(uplo, "U") && ! _starpu_lsame_(uplo, "L")) {
 	info = 1;
     } else if (*n < 0) {
 	info = 2;
@@ -128,7 +128,7 @@
 	info = 5;
     }
     if (info != 0) {
-	xerbla_("DSPR  ", &info);
+	_starpu_xerbla_("DSPR  ", &info);
 	return 0;
     }
 
@@ -150,7 +150,7 @@
 /*     are accessed sequentially with one pass through AP. */
 
     kk = 1;
-    if (lsame_(uplo, "U")) {
+    if (_starpu_lsame_(uplo, "U")) {
 
 /*        Form  A  when upper triangle is stored in AP. */
 
@@ -234,4 +234,4 @@
 
 /*     End of DSPR  . */
 
-} /* dspr_ */
+} /* _starpu_dspr_ */

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

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-/* Subroutine */ int dspr2_(char *uplo, integer *n, doublereal *alpha, 
+/* Subroutine */ int _starpu_dspr2_(char *uplo, integer *n, doublereal *alpha, 
 	doublereal *x, integer *incx, doublereal *y, integer *incy, 
 	doublereal *ap)
 {
@@ -23,8 +23,8 @@
     /* Local variables */
     integer i__, j, k, kk, ix, iy, jx, jy, kx, ky, info;
     doublereal temp1, temp2;
-    extern logical lsame_(char *, char *);
-    extern /* Subroutine */ int xerbla_(char *, integer *);
+    extern logical _starpu_lsame_(char *, char *);
+    extern /* Subroutine */ int _starpu_xerbla_(char *, integer *);
 
 /*     .. Scalar Arguments .. */
 /*     .. */
@@ -133,7 +133,7 @@
 
     /* Function Body */
     info = 0;
-    if (! lsame_(uplo, "U") && ! lsame_(uplo, "L")) {
+    if (! _starpu_lsame_(uplo, "U") && ! _starpu_lsame_(uplo, "L")) {
 	info = 1;
     } else if (*n < 0) {
 	info = 2;
@@ -143,7 +143,7 @@
 	info = 7;
     }
     if (info != 0) {
-	xerbla_("DSPR2 ", &info);
+	_starpu_xerbla_("DSPR2 ", &info);
 	return 0;
     }
 
@@ -175,7 +175,7 @@
 /*     are accessed sequentially with one pass through AP. */
 
     kk = 1;
-    if (lsame_(uplo, "U")) {
+    if (_starpu_lsame_(uplo, "U")) {
 
 /*        Form  A  when upper triangle is stored in AP. */
 
@@ -267,4 +267,4 @@
 
 /*     End of DSPR2 . */
 
-} /* dspr2_ */
+} /* _starpu_dspr2_ */

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

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-/* Subroutine */ int dswap_(integer *n, doublereal *dx, integer *incx, 
+/* Subroutine */ int _starpu_dswap_(integer *n, doublereal *dx, integer *incx, 
 	doublereal *dy, integer *incy)
 {
     /* System generated locals */
@@ -111,4 +111,4 @@ L40:
 /* L50: */
     }
     return 0;
-} /* dswap_ */
+} /* _starpu_dswap_ */

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

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-/* Subroutine */ int dsymm_(char *side, char *uplo, integer *m, integer *n, 
+/* Subroutine */ int _starpu_dsymm_(char *side, char *uplo, integer *m, integer *n, 
 	doublereal *alpha, doublereal *a, integer *lda, doublereal *b, 
 	integer *ldb, doublereal *beta, doublereal *c__, integer *ldc)
 {
@@ -24,10 +24,10 @@
     /* Local variables */
     integer i__, j, k, info;
     doublereal temp1, temp2;
-    extern logical lsame_(char *, char *);
+    extern logical _starpu_lsame_(char *, char *);
     integer nrowa;
     logical upper;
-    extern /* Subroutine */ int xerbla_(char *, integer *);
+    extern /* Subroutine */ int _starpu_xerbla_(char *, integer *);
 
 /*     .. Scalar Arguments .. */
 /*     .. */
@@ -183,19 +183,19 @@
     c__ -= c_offset;
 
     /* Function Body */
-    if (lsame_(side, "L")) {
+    if (_starpu_lsame_(side, "L")) {
 	nrowa = *m;
     } else {
 	nrowa = *n;
     }
-    upper = lsame_(uplo, "U");
+    upper = _starpu_lsame_(uplo, "U");
 
 /*     Test the input parameters. */
 
     info = 0;
-    if (! lsame_(side, "L") && ! lsame_(side, "R")) {
+    if (! _starpu_lsame_(side, "L") && ! _starpu_lsame_(side, "R")) {
 	info = 1;
-    } else if (! upper && ! lsame_(uplo, "L")) {
+    } else if (! upper && ! _starpu_lsame_(uplo, "L")) {
 	info = 2;
     } else if (*m < 0) {
 	info = 3;
@@ -209,7 +209,7 @@
 	info = 12;
     }
     if (info != 0) {
-	xerbla_("DSYMM ", &info);
+	_starpu_xerbla_("DSYMM ", &info);
 	return 0;
     }
 
@@ -248,7 +248,7 @@
 
 /*     Start the operations. */
 
-    if (lsame_(side, "L")) {
+    if (_starpu_lsame_(side, "L")) {
 
 /*        Form  C := alpha*A*B + beta*C. */
 
@@ -359,4 +359,4 @@
 
 /*     End of DSYMM . */
 
-} /* dsymm_ */
+} /* _starpu_dsymm_ */

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

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-/* Subroutine */ int dsymv_(char *uplo, integer *n, doublereal *alpha, 
+/* Subroutine */ int _starpu_dsymv_(char *uplo, integer *n, doublereal *alpha, 
 	doublereal *a, integer *lda, doublereal *x, integer *incx, doublereal 
 	*beta, doublereal *y, integer *incy)
 {
@@ -23,8 +23,8 @@
     /* Local variables */
     integer i__, j, ix, iy, jx, jy, kx, ky, info;
     doublereal temp1, temp2;
-    extern logical lsame_(char *, char *);
-    extern /* Subroutine */ int xerbla_(char *, integer *);
+    extern logical _starpu_lsame_(char *, char *);
+    extern /* Subroutine */ int _starpu_xerbla_(char *, integer *);
 
 /*     .. Scalar Arguments .. */
 /*     .. */
@@ -142,7 +142,7 @@
 
     /* Function Body */
     info = 0;
-    if (! lsame_(uplo, "U") && ! lsame_(uplo, "L")) {
+    if (! _starpu_lsame_(uplo, "U") && ! _starpu_lsame_(uplo, "L")) {
 	info = 1;
     } else if (*n < 0) {
 	info = 2;
@@ -154,7 +154,7 @@
 	info = 10;
     }
     if (info != 0) {
-	xerbla_("DSYMV ", &info);
+	_starpu_xerbla_("DSYMV ", &info);
 	return 0;
     }
 
@@ -220,7 +220,7 @@
     if (*alpha == 0.) {
 	return 0;
     }
-    if (lsame_(uplo, "U")) {
+    if (_starpu_lsame_(uplo, "U")) {
 
 /*        Form  y  when A is stored in upper triangle. */
 
@@ -310,4 +310,4 @@
 
 /*     End of DSYMV . */
 
-} /* dsymv_ */
+} /* _starpu_dsymv_ */

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

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-/* Subroutine */ int dsyr_(char *uplo, integer *n, doublereal *alpha, 
+/* Subroutine */ int _starpu_dsyr_(char *uplo, integer *n, doublereal *alpha, 
 	doublereal *x, integer *incx, doublereal *a, integer *lda)
 {
     /* System generated locals */
@@ -22,8 +22,8 @@
     /* Local variables */
     integer i__, j, ix, jx, kx, info;
     doublereal temp;
-    extern logical lsame_(char *, char *);
-    extern /* Subroutine */ int xerbla_(char *, integer *);
+    extern logical _starpu_lsame_(char *, char *);
+    extern /* Subroutine */ int _starpu_xerbla_(char *, integer *);
 
 /*     .. Scalar Arguments .. */
 /*     .. */
@@ -127,7 +127,7 @@
 
     /* Function Body */
     info = 0;
-    if (! lsame_(uplo, "U") && ! lsame_(uplo, "L")) {
+    if (! _starpu_lsame_(uplo, "U") && ! _starpu_lsame_(uplo, "L")) {
 	info = 1;
     } else if (*n < 0) {
 	info = 2;
@@ -137,7 +137,7 @@
 	info = 7;
     }
     if (info != 0) {
-	xerbla_("DSYR  ", &info);
+	_starpu_xerbla_("DSYR  ", &info);
 	return 0;
     }
 
@@ -159,7 +159,7 @@
 /*     accessed sequentially with one pass through the triangular part */
 /*     of A. */
 
-    if (lsame_(uplo, "U")) {
+    if (_starpu_lsame_(uplo, "U")) {
 
 /*        Form  A  when A is stored in upper triangle. */
 
@@ -235,4 +235,4 @@
 
 /*     End of DSYR  . */
 
-} /* dsyr_ */
+} /* _starpu_dsyr_ */

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

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-/* Subroutine */ int dsyr2_(char *uplo, integer *n, doublereal *alpha, 
+/* Subroutine */ int _starpu_dsyr2_(char *uplo, integer *n, doublereal *alpha, 
 	doublereal *x, integer *incx, doublereal *y, integer *incy, 
 	doublereal *a, integer *lda)
 {
@@ -23,8 +23,8 @@
     /* Local variables */
     integer i__, j, ix, iy, jx, jy, kx, ky, info;
     doublereal temp1, temp2;
-    extern logical lsame_(char *, char *);
-    extern /* Subroutine */ int xerbla_(char *, integer *);
+    extern logical _starpu_lsame_(char *, char *);
+    extern /* Subroutine */ int _starpu_xerbla_(char *, integer *);
 
 /*     .. Scalar Arguments .. */
 /*     .. */
@@ -140,7 +140,7 @@
 
     /* Function Body */
     info = 0;
-    if (! lsame_(uplo, "U") && ! lsame_(uplo, "L")) {
+    if (! _starpu_lsame_(uplo, "U") && ! _starpu_lsame_(uplo, "L")) {
 	info = 1;
     } else if (*n < 0) {
 	info = 2;
@@ -152,7 +152,7 @@
 	info = 9;
     }
     if (info != 0) {
-	xerbla_("DSYR2 ", &info);
+	_starpu_xerbla_("DSYR2 ", &info);
 	return 0;
     }
 
@@ -184,7 +184,7 @@
 /*     accessed sequentially with one pass through the triangular part */
 /*     of A. */
 
-    if (lsame_(uplo, "U")) {
+    if (_starpu_lsame_(uplo, "U")) {
 
 /*        Form  A  when A is stored in the upper triangle. */
 
@@ -272,4 +272,4 @@
 
 /*     End of DSYR2 . */
 
-} /* dsyr2_ */
+} /* _starpu_dsyr2_ */

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

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-/* Subroutine */ int dsyr2k_(char *uplo, char *trans, integer *n, integer *k, 
+/* Subroutine */ int _starpu_dsyr2k_(char *uplo, char *trans, integer *n, integer *k, 
 	doublereal *alpha, doublereal *a, integer *lda, doublereal *b, 
 	integer *ldb, doublereal *beta, doublereal *c__, integer *ldc)
 {
@@ -24,10 +24,10 @@
     /* Local variables */
     integer i__, j, l, info;
     doublereal temp1, temp2;
-    extern logical lsame_(char *, char *);
+    extern logical _starpu_lsame_(char *, char *);
     integer nrowa;
     logical upper;
-    extern /* Subroutine */ int xerbla_(char *, integer *);
+    extern /* Subroutine */ int _starpu_xerbla_(char *, integer *);
 
 /*     .. Scalar Arguments .. */
 /*     .. */
@@ -186,18 +186,18 @@
     c__ -= c_offset;
 
     /* Function Body */
-    if (lsame_(trans, "N")) {
+    if (_starpu_lsame_(trans, "N")) {
 	nrowa = *n;
     } else {
 	nrowa = *k;
     }
-    upper = lsame_(uplo, "U");
+    upper = _starpu_lsame_(uplo, "U");
 
     info = 0;
-    if (! upper && ! lsame_(uplo, "L")) {
+    if (! upper && ! _starpu_lsame_(uplo, "L")) {
 	info = 1;
-    } else if (! lsame_(trans, "N") && ! lsame_(trans, 
-	    "T") && ! lsame_(trans, "C")) {
+    } else if (! _starpu_lsame_(trans, "N") && ! _starpu_lsame_(trans, 
+	    "T") && ! _starpu_lsame_(trans, "C")) {
 	info = 2;
     } else if (*n < 0) {
 	info = 3;
@@ -211,7 +211,7 @@
 	info = 12;
     }
     if (info != 0) {
-	xerbla_("DSYR2K", &info);
+	_starpu_xerbla_("DSYR2K", &info);
 	return 0;
     }
 
@@ -274,7 +274,7 @@
 
 /*     Start the operations. */
 
-    if (lsame_(trans, "N")) {
+    if (_starpu_lsame_(trans, "N")) {
 
 /*        Form  C := alpha*A*B' + alpha*B*A' + C. */
 
@@ -404,4 +404,4 @@
 
 /*     End of DSYR2K. */
 
-} /* dsyr2k_ */
+} /* _starpu_dsyr2k_ */

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

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-/* Subroutine */ int dsyrk_(char *uplo, char *trans, integer *n, integer *k, 
+/* Subroutine */ int _starpu_dsyrk_(char *uplo, char *trans, integer *n, integer *k, 
 	doublereal *alpha, doublereal *a, integer *lda, doublereal *beta, 
 	doublereal *c__, integer *ldc)
 {
@@ -23,10 +23,10 @@
     /* Local variables */
     integer i__, j, l, info;
     doublereal temp;
-    extern logical lsame_(char *, char *);
+    extern logical _starpu_lsame_(char *, char *);
     integer nrowa;
     logical upper;
-    extern /* Subroutine */ int xerbla_(char *, integer *);
+    extern /* Subroutine */ int _starpu_xerbla_(char *, integer *);
 
 /*     .. Scalar Arguments .. */
 /*     .. */
@@ -163,18 +163,18 @@
     c__ -= c_offset;
 
     /* Function Body */
-    if (lsame_(trans, "N")) {
+    if (_starpu_lsame_(trans, "N")) {
 	nrowa = *n;
     } else {
 	nrowa = *k;
     }
-    upper = lsame_(uplo, "U");
+    upper = _starpu_lsame_(uplo, "U");
 
     info = 0;
-    if (! upper && ! lsame_(uplo, "L")) {
+    if (! upper && ! _starpu_lsame_(uplo, "L")) {
 	info = 1;
-    } else if (! lsame_(trans, "N") && ! lsame_(trans, 
-	    "T") && ! lsame_(trans, "C")) {
+    } else if (! _starpu_lsame_(trans, "N") && ! _starpu_lsame_(trans, 
+	    "T") && ! _starpu_lsame_(trans, "C")) {
 	info = 2;
     } else if (*n < 0) {
 	info = 3;
@@ -186,7 +186,7 @@
 	info = 10;
     }
     if (info != 0) {
-	xerbla_("DSYRK ", &info);
+	_starpu_xerbla_("DSYRK ", &info);
 	return 0;
     }
 
@@ -249,7 +249,7 @@
 
 /*     Start the operations. */
 
-    if (lsame_(trans, "N")) {
+    if (_starpu_lsame_(trans, "N")) {
 
 /*        Form  C := alpha*A*A' + beta*C. */
 
@@ -369,4 +369,4 @@
 
 /*     End of DSYRK . */
 
-} /* dsyrk_ */
+} /* _starpu_dsyrk_ */

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

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-/* Subroutine */ int dtbmv_(char *uplo, char *trans, char *diag, integer *n, 
+/* Subroutine */ int _starpu_dtbmv_(char *uplo, char *trans, char *diag, integer *n, 
 	integer *k, doublereal *a, integer *lda, doublereal *x, integer *incx)
 {
     /* System generated locals */
@@ -22,9 +22,9 @@
     /* Local variables */
     integer i__, j, l, ix, jx, kx, info;
     doublereal temp;
-    extern logical lsame_(char *, char *);
+    extern logical _starpu_lsame_(char *, char *);
     integer kplus1;
-    extern /* Subroutine */ int xerbla_(char *, integer *);
+    extern /* Subroutine */ int _starpu_xerbla_(char *, integer *);
     logical nounit;
 
 /*     .. Scalar Arguments .. */
@@ -181,12 +181,12 @@
 
     /* Function Body */
     info = 0;
-    if (! lsame_(uplo, "U") && ! lsame_(uplo, "L")) {
+    if (! _starpu_lsame_(uplo, "U") && ! _starpu_lsame_(uplo, "L")) {
 	info = 1;
-    } else if (! lsame_(trans, "N") && ! lsame_(trans, 
-	    "T") && ! lsame_(trans, "C")) {
+    } else if (! _starpu_lsame_(trans, "N") && ! _starpu_lsame_(trans, 
+	    "T") && ! _starpu_lsame_(trans, "C")) {
 	info = 2;
-    } else if (! lsame_(diag, "U") && ! lsame_(diag, 
+    } else if (! _starpu_lsame_(diag, "U") && ! _starpu_lsame_(diag, 
 	    "N")) {
 	info = 3;
     } else if (*n < 0) {
@@ -199,7 +199,7 @@
 	info = 9;
     }
     if (info != 0) {
-	xerbla_("DTBMV ", &info);
+	_starpu_xerbla_("DTBMV ", &info);
 	return 0;
     }
 
@@ -209,7 +209,7 @@
 	return 0;
     }
 
-    nounit = lsame_(diag, "N");
+    nounit = _starpu_lsame_(diag, "N");
 
 /*     Set up the start point in X if the increment is not unity. This */
 /*     will be  ( N - 1 )*INCX   too small for descending loops. */
@@ -223,11 +223,11 @@
 /*     Start the operations. In this version the elements of A are */
 /*     accessed sequentially with one pass through A. */
 
-    if (lsame_(trans, "N")) {
+    if (_starpu_lsame_(trans, "N")) {
 
 /*         Form  x := A*x. */
 
-	if (lsame_(uplo, "U")) {
+	if (_starpu_lsame_(uplo, "U")) {
 	    kplus1 = *k + 1;
 	    if (*incx == 1) {
 		i__1 = *n;
@@ -326,7 +326,7 @@
 
 /*        Form  x := A'*x. */
 
-	if (lsame_(uplo, "U")) {
+	if (_starpu_lsame_(uplo, "U")) {
 	    kplus1 = *k + 1;
 	    if (*incx == 1) {
 		for (j = *n; j >= 1; --j) {
@@ -419,4 +419,4 @@
 
 /*     End of DTBMV . */
 
-} /* dtbmv_ */
+} /* _starpu_dtbmv_ */

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

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-/* Subroutine */ int dtbsv_(char *uplo, char *trans, char *diag, integer *n, 
+/* Subroutine */ int _starpu_dtbsv_(char *uplo, char *trans, char *diag, integer *n, 
 	integer *k, doublereal *a, integer *lda, doublereal *x, integer *incx)
 {
     /* System generated locals */
@@ -22,9 +22,9 @@
     /* Local variables */
     integer i__, j, l, ix, jx, kx, info;
     doublereal temp;
-    extern logical lsame_(char *, char *);
+    extern logical _starpu_lsame_(char *, char *);
     integer kplus1;
-    extern /* Subroutine */ int xerbla_(char *, integer *);
+    extern /* Subroutine */ int _starpu_xerbla_(char *, integer *);
     logical nounit;
 
 /*     .. Scalar Arguments .. */
@@ -185,12 +185,12 @@
 
     /* Function Body */
     info = 0;
-    if (! lsame_(uplo, "U") && ! lsame_(uplo, "L")) {
+    if (! _starpu_lsame_(uplo, "U") && ! _starpu_lsame_(uplo, "L")) {
 	info = 1;
-    } else if (! lsame_(trans, "N") && ! lsame_(trans, 
-	    "T") && ! lsame_(trans, "C")) {
+    } else if (! _starpu_lsame_(trans, "N") && ! _starpu_lsame_(trans, 
+	    "T") && ! _starpu_lsame_(trans, "C")) {
 	info = 2;
-    } else if (! lsame_(diag, "U") && ! lsame_(diag, 
+    } else if (! _starpu_lsame_(diag, "U") && ! _starpu_lsame_(diag, 
 	    "N")) {
 	info = 3;
     } else if (*n < 0) {
@@ -203,7 +203,7 @@
 	info = 9;
     }
     if (info != 0) {
-	xerbla_("DTBSV ", &info);
+	_starpu_xerbla_("DTBSV ", &info);
 	return 0;
     }
 
@@ -213,7 +213,7 @@
 	return 0;
     }
 
-    nounit = lsame_(diag, "N");
+    nounit = _starpu_lsame_(diag, "N");
 
 /*     Set up the start point in X if the increment is not unity. This */
 /*     will be  ( N - 1 )*INCX  too small for descending loops. */
@@ -227,11 +227,11 @@
 /*     Start the operations. In this version the elements of A are */
 /*     accessed by sequentially with one pass through A. */
 
-    if (lsame_(trans, "N")) {
+    if (_starpu_lsame_(trans, "N")) {
 
 /*        Form  x := inv( A )*x. */
 
-	if (lsame_(uplo, "U")) {
+	if (_starpu_lsame_(uplo, "U")) {
 	    kplus1 = *k + 1;
 	    if (*incx == 1) {
 		for (j = *n; j >= 1; --j) {
@@ -326,7 +326,7 @@
 
 /*        Form  x := inv( A')*x. */
 
-	if (lsame_(uplo, "U")) {
+	if (_starpu_lsame_(uplo, "U")) {
 	    kplus1 = *k + 1;
 	    if (*incx == 1) {
 		i__1 = *n;
@@ -423,4 +423,4 @@
 
 /*     End of DTBSV . */
 
-} /* dtbsv_ */
+} /* _starpu_dtbsv_ */

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

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-/* Subroutine */ int dtpmv_(char *uplo, char *trans, char *diag, integer *n, 
+/* Subroutine */ int _starpu_dtpmv_(char *uplo, char *trans, char *diag, integer *n, 
 	doublereal *ap, doublereal *x, integer *incx)
 {
     /* System generated locals */
@@ -22,8 +22,8 @@
     /* Local variables */
     integer i__, j, k, kk, ix, jx, kx, info;
     doublereal temp;
-    extern logical lsame_(char *, char *);
-    extern /* Subroutine */ int xerbla_(char *, integer *);
+    extern logical _starpu_lsame_(char *, char *);
+    extern /* Subroutine */ int _starpu_xerbla_(char *, integer *);
     logical nounit;
 
 /*     .. Scalar Arguments .. */
@@ -136,12 +136,12 @@
 
     /* Function Body */
     info = 0;
-    if (! lsame_(uplo, "U") && ! lsame_(uplo, "L")) {
+    if (! _starpu_lsame_(uplo, "U") && ! _starpu_lsame_(uplo, "L")) {
 	info = 1;
-    } else if (! lsame_(trans, "N") && ! lsame_(trans, 
-	    "T") && ! lsame_(trans, "C")) {
+    } else if (! _starpu_lsame_(trans, "N") && ! _starpu_lsame_(trans, 
+	    "T") && ! _starpu_lsame_(trans, "C")) {
 	info = 2;
-    } else if (! lsame_(diag, "U") && ! lsame_(diag, 
+    } else if (! _starpu_lsame_(diag, "U") && ! _starpu_lsame_(diag, 
 	    "N")) {
 	info = 3;
     } else if (*n < 0) {
@@ -150,7 +150,7 @@
 	info = 7;
     }
     if (info != 0) {
-	xerbla_("DTPMV ", &info);
+	_starpu_xerbla_("DTPMV ", &info);
 	return 0;
     }
 
@@ -160,7 +160,7 @@
 	return 0;
     }
 
-    nounit = lsame_(diag, "N");
+    nounit = _starpu_lsame_(diag, "N");
 
 /*     Set up the start point in X if the increment is not unity. This */
 /*     will be  ( N - 1 )*INCX  too small for descending loops. */
@@ -174,11 +174,11 @@
 /*     Start the operations. In this version the elements of AP are */
 /*     accessed sequentially with one pass through AP. */
 
-    if (lsame_(trans, "N")) {
+    if (_starpu_lsame_(trans, "N")) {
 
 /*        Form  x:= A*x. */
 
-	if (lsame_(uplo, "U")) {
+	if (_starpu_lsame_(uplo, "U")) {
 	    kk = 1;
 	    if (*incx == 1) {
 		i__1 = *n;
@@ -268,7 +268,7 @@
 
 /*        Form  x := A'*x. */
 
-	if (lsame_(uplo, "U")) {
+	if (_starpu_lsame_(uplo, "U")) {
 	    kk = *n * (*n + 1) / 2;
 	    if (*incx == 1) {
 		for (j = *n; j >= 1; --j) {
@@ -354,4 +354,4 @@
 
 /*     End of DTPMV . */
 
-} /* dtpmv_ */
+} /* _starpu_dtpmv_ */

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

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-/* Subroutine */ int dtpsv_(char *uplo, char *trans, char *diag, integer *n, 
+/* Subroutine */ int _starpu_dtpsv_(char *uplo, char *trans, char *diag, integer *n, 
 	doublereal *ap, doublereal *x, integer *incx)
 {
     /* System generated locals */
@@ -22,8 +22,8 @@
     /* Local variables */
     integer i__, j, k, kk, ix, jx, kx, info;
     doublereal temp;
-    extern logical lsame_(char *, char *);
-    extern /* Subroutine */ int xerbla_(char *, integer *);
+    extern logical _starpu_lsame_(char *, char *);
+    extern /* Subroutine */ int _starpu_xerbla_(char *, integer *);
     logical nounit;
 
 /*     .. Scalar Arguments .. */
@@ -139,12 +139,12 @@
 
     /* Function Body */
     info = 0;
-    if (! lsame_(uplo, "U") && ! lsame_(uplo, "L")) {
+    if (! _starpu_lsame_(uplo, "U") && ! _starpu_lsame_(uplo, "L")) {
 	info = 1;
-    } else if (! lsame_(trans, "N") && ! lsame_(trans, 
-	    "T") && ! lsame_(trans, "C")) {
+    } else if (! _starpu_lsame_(trans, "N") && ! _starpu_lsame_(trans, 
+	    "T") && ! _starpu_lsame_(trans, "C")) {
 	info = 2;
-    } else if (! lsame_(diag, "U") && ! lsame_(diag, 
+    } else if (! _starpu_lsame_(diag, "U") && ! _starpu_lsame_(diag, 
 	    "N")) {
 	info = 3;
     } else if (*n < 0) {
@@ -153,7 +153,7 @@
 	info = 7;
     }
     if (info != 0) {
-	xerbla_("DTPSV ", &info);
+	_starpu_xerbla_("DTPSV ", &info);
 	return 0;
     }
 
@@ -163,7 +163,7 @@
 	return 0;
     }
 
-    nounit = lsame_(diag, "N");
+    nounit = _starpu_lsame_(diag, "N");
 
 /*     Set up the start point in X if the increment is not unity. This */
 /*     will be  ( N - 1 )*INCX  too small for descending loops. */
@@ -177,11 +177,11 @@
 /*     Start the operations. In this version the elements of AP are */
 /*     accessed sequentially with one pass through AP. */
 
-    if (lsame_(trans, "N")) {
+    if (_starpu_lsame_(trans, "N")) {
 
 /*        Form  x := inv( A )*x. */
 
-	if (lsame_(uplo, "U")) {
+	if (_starpu_lsame_(uplo, "U")) {
 	    kk = *n * (*n + 1) / 2;
 	    if (*incx == 1) {
 		for (j = *n; j >= 1; --j) {
@@ -269,7 +269,7 @@
 
 /*        Form  x := inv( A' )*x. */
 
-	if (lsame_(uplo, "U")) {
+	if (_starpu_lsame_(uplo, "U")) {
 	    kk = 1;
 	    if (*incx == 1) {
 		i__1 = *n;
@@ -357,4 +357,4 @@
 
 /*     End of DTPSV . */
 
-} /* dtpsv_ */
+} /* _starpu_dtpsv_ */

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

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-/* Subroutine */ int dtrmm_(char *side, char *uplo, char *transa, char *diag, 
+/* Subroutine */ int _starpu_dtrmm_(char *side, char *uplo, char *transa, char *diag, 
 	integer *m, integer *n, doublereal *alpha, doublereal *a, integer *
 	lda, doublereal *b, integer *ldb)
 {
@@ -24,10 +24,10 @@
     integer i__, j, k, info;
     doublereal temp;
     logical lside;
-    extern logical lsame_(char *, char *);
+    extern logical _starpu_lsame_(char *, char *);
     integer nrowa;
     logical upper;
-    extern /* Subroutine */ int xerbla_(char *, integer *);
+    extern /* Subroutine */ int _starpu_xerbla_(char *, integer *);
     logical nounit;
 
 /*     .. Scalar Arguments .. */
@@ -173,24 +173,24 @@
     b -= b_offset;
 
     /* Function Body */
-    lside = lsame_(side, "L");
+    lside = _starpu_lsame_(side, "L");
     if (lside) {
 	nrowa = *m;
     } else {
 	nrowa = *n;
     }
-    nounit = lsame_(diag, "N");
-    upper = lsame_(uplo, "U");
+    nounit = _starpu_lsame_(diag, "N");
+    upper = _starpu_lsame_(uplo, "U");
 
     info = 0;
-    if (! lside && ! lsame_(side, "R")) {
+    if (! lside && ! _starpu_lsame_(side, "R")) {
 	info = 1;
-    } else if (! upper && ! lsame_(uplo, "L")) {
+    } else if (! upper && ! _starpu_lsame_(uplo, "L")) {
 	info = 2;
-    } else if (! lsame_(transa, "N") && ! lsame_(transa, 
-	     "T") && ! lsame_(transa, "C")) {
+    } else if (! _starpu_lsame_(transa, "N") && ! _starpu_lsame_(transa, 
+	     "T") && ! _starpu_lsame_(transa, "C")) {
 	info = 3;
-    } else if (! lsame_(diag, "U") && ! lsame_(diag, 
+    } else if (! _starpu_lsame_(diag, "U") && ! _starpu_lsame_(diag, 
 	    "N")) {
 	info = 4;
     } else if (*m < 0) {
@@ -203,7 +203,7 @@
 	info = 11;
     }
     if (info != 0) {
-	xerbla_("DTRMM ", &info);
+	_starpu_xerbla_("DTRMM ", &info);
 	return 0;
     }
 
@@ -231,7 +231,7 @@
 /*     Start the operations. */
 
     if (lside) {
-	if (lsame_(transa, "N")) {
+	if (_starpu_lsame_(transa, "N")) {
 
 /*           Form  B := alpha*A*B. */
 
@@ -323,7 +323,7 @@
 	    }
 	}
     } else {
-	if (lsame_(transa, "N")) {
+	if (_starpu_lsame_(transa, "N")) {
 
 /*           Form  B := alpha*B*A. */
 
@@ -450,4 +450,4 @@
 
 /*     End of DTRMM . */
 
-} /* dtrmm_ */
+} /* _starpu_dtrmm_ */

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

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-/* Subroutine */ int dtrmv_(char *uplo, char *trans, char *diag, integer *n, 
+/* Subroutine */ int _starpu_dtrmv_(char *uplo, char *trans, char *diag, integer *n, 
 	doublereal *a, integer *lda, doublereal *x, integer *incx)
 {
     /* System generated locals */
@@ -22,8 +22,8 @@
     /* Local variables */
     integer i__, j, ix, jx, kx, info;
     doublereal temp;
-    extern logical lsame_(char *, char *);
-    extern /* Subroutine */ int xerbla_(char *, integer *);
+    extern logical _starpu_lsame_(char *, char *);
+    extern /* Subroutine */ int _starpu_xerbla_(char *, integer *);
     logical nounit;
 
 /*     .. Scalar Arguments .. */
@@ -143,12 +143,12 @@
 
     /* Function Body */
     info = 0;
-    if (! lsame_(uplo, "U") && ! lsame_(uplo, "L")) {
+    if (! _starpu_lsame_(uplo, "U") && ! _starpu_lsame_(uplo, "L")) {
 	info = 1;
-    } else if (! lsame_(trans, "N") && ! lsame_(trans, 
-	    "T") && ! lsame_(trans, "C")) {
+    } else if (! _starpu_lsame_(trans, "N") && ! _starpu_lsame_(trans, 
+	    "T") && ! _starpu_lsame_(trans, "C")) {
 	info = 2;
-    } else if (! lsame_(diag, "U") && ! lsame_(diag, 
+    } else if (! _starpu_lsame_(diag, "U") && ! _starpu_lsame_(diag, 
 	    "N")) {
 	info = 3;
     } else if (*n < 0) {
@@ -159,7 +159,7 @@
 	info = 8;
     }
     if (info != 0) {
-	xerbla_("DTRMV ", &info);
+	_starpu_xerbla_("DTRMV ", &info);
 	return 0;
     }
 
@@ -169,7 +169,7 @@
 	return 0;
     }
 
-    nounit = lsame_(diag, "N");
+    nounit = _starpu_lsame_(diag, "N");
 
 /*     Set up the start point in X if the increment is not unity. This */
 /*     will be  ( N - 1 )*INCX  too small for descending loops. */
@@ -183,11 +183,11 @@
 /*     Start the operations. In this version the elements of A are */
 /*     accessed sequentially with one pass through A. */
 
-    if (lsame_(trans, "N")) {
+    if (_starpu_lsame_(trans, "N")) {
 
 /*        Form  x := A*x. */
 
-	if (lsame_(uplo, "U")) {
+	if (_starpu_lsame_(uplo, "U")) {
 	    if (*incx == 1) {
 		i__1 = *n;
 		for (j = 1; j <= i__1; ++j) {
@@ -267,7 +267,7 @@
 
 /*        Form  x := A'*x. */
 
-	if (lsame_(uplo, "U")) {
+	if (_starpu_lsame_(uplo, "U")) {
 	    if (*incx == 1) {
 		for (j = *n; j >= 1; --j) {
 		    temp = x[j];
@@ -342,4 +342,4 @@
 
 /*     End of DTRMV . */
 
-} /* dtrmv_ */
+} /* _starpu_dtrmv_ */

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

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-/* Subroutine */ int dtrsm_(char *side, char *uplo, char *transa, char *diag, 
+/* Subroutine */ int _starpu_dtrsm_(char *side, char *uplo, char *transa, char *diag, 
 	integer *m, integer *n, doublereal *alpha, doublereal *a, integer *
 	lda, doublereal *b, integer *ldb)
 {
@@ -24,10 +24,10 @@
     integer i__, j, k, info;
     doublereal temp;
     logical lside;
-    extern logical lsame_(char *, char *);
+    extern logical _starpu_lsame_(char *, char *);
     integer nrowa;
     logical upper;
-    extern /* Subroutine */ int xerbla_(char *, integer *);
+    extern /* Subroutine */ int _starpu_xerbla_(char *, integer *);
     logical nounit;
 
 /*     .. Scalar Arguments .. */
@@ -176,24 +176,24 @@
     b -= b_offset;
 
     /* Function Body */
-    lside = lsame_(side, "L");
+    lside = _starpu_lsame_(side, "L");
     if (lside) {
 	nrowa = *m;
     } else {
 	nrowa = *n;
     }
-    nounit = lsame_(diag, "N");
-    upper = lsame_(uplo, "U");
+    nounit = _starpu_lsame_(diag, "N");
+    upper = _starpu_lsame_(uplo, "U");
 
     info = 0;
-    if (! lside && ! lsame_(side, "R")) {
+    if (! lside && ! _starpu_lsame_(side, "R")) {
 	info = 1;
-    } else if (! upper && ! lsame_(uplo, "L")) {
+    } else if (! upper && ! _starpu_lsame_(uplo, "L")) {
 	info = 2;
-    } else if (! lsame_(transa, "N") && ! lsame_(transa, 
-	     "T") && ! lsame_(transa, "C")) {
+    } else if (! _starpu_lsame_(transa, "N") && ! _starpu_lsame_(transa, 
+	     "T") && ! _starpu_lsame_(transa, "C")) {
 	info = 3;
-    } else if (! lsame_(diag, "U") && ! lsame_(diag, 
+    } else if (! _starpu_lsame_(diag, "U") && ! _starpu_lsame_(diag, 
 	    "N")) {
 	info = 4;
     } else if (*m < 0) {
@@ -206,7 +206,7 @@
 	info = 11;
     }
     if (info != 0) {
-	xerbla_("DTRSM ", &info);
+	_starpu_xerbla_("DTRSM ", &info);
 	return 0;
     }
 
@@ -234,7 +234,7 @@
 /*     Start the operations. */
 
     if (lside) {
-	if (lsame_(transa, "N")) {
+	if (_starpu_lsame_(transa, "N")) {
 
 /*           Form  B := alpha*inv( A )*B. */
 
@@ -338,7 +338,7 @@
 	    }
 	}
     } else {
-	if (lsame_(transa, "N")) {
+	if (_starpu_lsame_(transa, "N")) {
 
 /*           Form  B := alpha*B*inv( A ). */
 
@@ -487,4 +487,4 @@
 
 /*     End of DTRSM . */
 
-} /* dtrsm_ */
+} /* _starpu_dtrsm_ */

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

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-/* Subroutine */ int dtrsv_(char *uplo, char *trans, char *diag, integer *n, 
+/* Subroutine */ int _starpu_dtrsv_(char *uplo, char *trans, char *diag, integer *n, 
 	doublereal *a, integer *lda, doublereal *x, integer *incx)
 {
     /* System generated locals */
@@ -22,8 +22,8 @@
     /* Local variables */
     integer i__, j, ix, jx, kx, info;
     doublereal temp;
-    extern logical lsame_(char *, char *);
-    extern /* Subroutine */ int xerbla_(char *, integer *);
+    extern logical _starpu_lsame_(char *, char *);
+    extern /* Subroutine */ int _starpu_xerbla_(char *, integer *);
     logical nounit;
 
 /*     .. Scalar Arguments .. */
@@ -146,12 +146,12 @@
 
     /* Function Body */
     info = 0;
-    if (! lsame_(uplo, "U") && ! lsame_(uplo, "L")) {
+    if (! _starpu_lsame_(uplo, "U") && ! _starpu_lsame_(uplo, "L")) {
 	info = 1;
-    } else if (! lsame_(trans, "N") && ! lsame_(trans, 
-	    "T") && ! lsame_(trans, "C")) {
+    } else if (! _starpu_lsame_(trans, "N") && ! _starpu_lsame_(trans, 
+	    "T") && ! _starpu_lsame_(trans, "C")) {
 	info = 2;
-    } else if (! lsame_(diag, "U") && ! lsame_(diag, 
+    } else if (! _starpu_lsame_(diag, "U") && ! _starpu_lsame_(diag, 
 	    "N")) {
 	info = 3;
     } else if (*n < 0) {
@@ -162,7 +162,7 @@
 	info = 8;
     }
     if (info != 0) {
-	xerbla_("DTRSV ", &info);
+	_starpu_xerbla_("DTRSV ", &info);
 	return 0;
     }
 
@@ -172,7 +172,7 @@
 	return 0;
     }
 
-    nounit = lsame_(diag, "N");
+    nounit = _starpu_lsame_(diag, "N");
 
 /*     Set up the start point in X if the increment is not unity. This */
 /*     will be  ( N - 1 )*INCX  too small for descending loops. */
@@ -186,11 +186,11 @@
 /*     Start the operations. In this version the elements of A are */
 /*     accessed sequentially with one pass through A. */
 
-    if (lsame_(trans, "N")) {
+    if (_starpu_lsame_(trans, "N")) {
 
 /*        Form  x := inv( A )*x. */
 
-	if (lsame_(uplo, "U")) {
+	if (_starpu_lsame_(uplo, "U")) {
 	    if (*incx == 1) {
 		for (j = *n; j >= 1; --j) {
 		    if (x[j] != 0.) {
@@ -267,7 +267,7 @@
 
 /*        Form  x := inv( A' )*x. */
 
-	if (lsame_(uplo, "U")) {
+	if (_starpu_lsame_(uplo, "U")) {
 	    if (*incx == 1) {
 		i__1 = *n;
 		for (j = 1; j <= i__1; ++j) {
@@ -345,4 +345,4 @@
 
 /*     End of DTRSV . */
 
-} /* dtrsv_ */
+} /* _starpu_dtrsv_ */

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

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-doublereal dzasum_(integer *n, doublecomplex *zx, integer *incx)
+doublereal _starpu_dzasum_(integer *n, doublecomplex *zx, integer *incx)
 {
     /* System generated locals */
     integer i__1;
@@ -22,7 +22,7 @@ doublereal dzasum_(integer *n, doublecomplex *zx, integer *incx)
     /* Local variables */
     integer i__, ix;
     doublereal stemp;
-    extern doublereal dcabs1_(doublecomplex *);
+    extern doublereal _starpu_dcabs1_(doublecomplex *);
 
 /*     .. Scalar Arguments .. */
 /*     .. */
@@ -60,7 +60,7 @@ doublereal dzasum_(integer *n, doublecomplex *zx, integer *incx)
     ix = 1;
     i__1 = *n;
     for (i__ = 1; i__ <= i__1; ++i__) {
-	stemp += dcabs1_(&zx[ix]);
+	stemp += _starpu_dcabs1_(&zx[ix]);
 	ix += *incx;
 /* L10: */
     }
@@ -72,9 +72,9 @@ doublereal dzasum_(integer *n, doublecomplex *zx, integer *incx)
 L20:
     i__1 = *n;
     for (i__ = 1; i__ <= i__1; ++i__) {
-	stemp += dcabs1_(&zx[i__]);
+	stemp += _starpu_dcabs1_(&zx[i__]);
 /* L30: */
     }
     ret_val = stemp;
     return ret_val;
-} /* dzasum_ */
+} /* _starpu_dzasum_ */

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

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-doublereal dznrm2_(integer *n, doublecomplex *x, integer *incx)
+doublereal _starpu_dznrm2_(integer *n, doublecomplex *x, integer *incx)
 {
     /* System generated locals */
     integer i__1, i__2, i__3;
@@ -105,4 +105,4 @@ doublereal dznrm2_(integer *n, doublecomplex *x, integer *incx)
 
 /*     End of DZNRM2. */
 
-} /* dznrm2_ */
+} /* _starpu_dznrm2_ */

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

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-integer idamax_(integer *n, doublereal *dx, integer *incx)
+integer _starpu_idamax_(integer *n, doublereal *dx, integer *incx)
 {
     /* System generated locals */
     integer ret_val, i__1;
@@ -90,4 +90,4 @@ L30:
 	;
     }
     return ret_val;
-} /* idamax_ */
+} /* _starpu_idamax_ */

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

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-integer izamax_(integer *n, doublecomplex *zx, integer *incx)
+integer _starpu_izamax_(integer *n, doublecomplex *zx, integer *incx)
 {
     /* System generated locals */
     integer ret_val, i__1;
@@ -21,7 +21,7 @@ integer izamax_(integer *n, doublecomplex *zx, integer *incx)
     /* Local variables */
     integer i__, ix;
     doublereal smax;
-    extern doublereal dcabs1_(doublecomplex *);
+    extern doublereal _starpu_dcabs1_(doublecomplex *);
 
 /*     .. Scalar Arguments .. */
 /*     .. */
@@ -60,15 +60,15 @@ integer izamax_(integer *n, doublecomplex *zx, integer *incx)
 /*        code for increment not equal to 1 */
 
     ix = 1;
-    smax = dcabs1_(&zx[1]);
+    smax = _starpu_dcabs1_(&zx[1]);
     ix += *incx;
     i__1 = *n;
     for (i__ = 2; i__ <= i__1; ++i__) {
-	if (dcabs1_(&zx[ix]) <= smax) {
+	if (_starpu_dcabs1_(&zx[ix]) <= smax) {
 	    goto L5;
 	}
 	ret_val = i__;
-	smax = dcabs1_(&zx[ix]);
+	smax = _starpu_dcabs1_(&zx[ix]);
 L5:
 	ix += *incx;
 /* L10: */
@@ -78,16 +78,16 @@ L5:
 /*        code for increment equal to 1 */
 
 L20:
-    smax = dcabs1_(&zx[1]);
+    smax = _starpu_dcabs1_(&zx[1]);
     i__1 = *n;
     for (i__ = 2; i__ <= i__1; ++i__) {
-	if (dcabs1_(&zx[i__]) <= smax) {
+	if (_starpu_dcabs1_(&zx[i__]) <= smax) {
 	    goto L30;
 	}
 	ret_val = i__;
-	smax = dcabs1_(&zx[i__]);
+	smax = _starpu_dcabs1_(&zx[i__]);
 L30:
 	;
     }
     return ret_val;
-} /* izamax_ */
+} /* _starpu_izamax_ */

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

@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-logical lsame_(char *ca, char *cb)
+logical _starpu_lsame_(char *ca, char *cb)
 {
     /* System generated locals */
     logical ret_val;
@@ -114,4 +114,4 @@ logical lsame_(char *ca, char *cb)
 /*     End of LSAME */
 
     return ret_val;
-} /* lsame_ */
+} /* _starpu_lsame_ */

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

@@ -18,7 +18,7 @@
 
 static integer c__1 = 1;
 
-/* Subroutine */ int xerbla_(char *srname, integer *info)
+/* Subroutine */ int _starpu_xerbla_(char *srname, integer *info)
 {
     /* Format strings */
     static char fmt_9999[] = "(\002 ** On entry to \002,a,\002 parameter num"
@@ -74,4 +74,4 @@ static integer c__1 = 1;
 /*     End of XERBLA */
 
     return 0;
-} /* xerbla_ */
+} /* _starpu_xerbla_ */

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

@@ -1,4 +1,4 @@
-/* xerbla_array.f -- translated by f2c (version 20061008).
+/* _starpu_xerbla_array.f -- translated by f2c (version 20061008).
    You must link the resulting object file with libf2c:
 	on Microsoft Windows system, link with libf2c.lib;
 	on Linux or Unix systems, link with .../path/to/libf2c.a -lm
@@ -13,7 +13,7 @@
 #include "f2c.h"
 #include "blaswrap.h"
 
-/* Subroutine */ int xerbla_array__(char *srname_array__, integer *
+/* Subroutine */ int _starpu_xerbla_array__(char *srname_array__, integer *
 	srname_len__, integer *info, ftnlen srname_array_len)
 {
     /* System generated locals */
@@ -25,7 +25,7 @@
 
     /* Local variables */
     integer i__;
-    extern /* Subroutine */ int xerbla_(char *, integer *);
+    extern /* Subroutine */ int _starpu_xerbla_(char *, integer *);
     char srname[32];
 
 
@@ -97,6 +97,6 @@
 	*(unsigned char *)&srname[i__ - 1] = *(unsigned char *)&
 		srname_array__[i__];
     }
-    xerbla_(srname, info);
+    _starpu_xerbla_(srname, info);
     return 0;
-} /* xerbla_array__ */
+} /* _starpu_xerbla_array__ */

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_cdotu_sub(const int N, const void *X, const int incX,
+void   cblas_starpu_cdotu_sub(const int N, const void *X, const int incX,
                        const void *Y, const int incY, void *dotu);
-void   cblas_cdotc_sub(const int N, const void *X, const int incX,
+void   cblas_starpu_cdotc_sub(const int N, const void *X, const int incX,
                        const void *Y, const int incY, void *dotc);
 
-void   cblas_zdotu_sub(const int N, const void *X, const int incX,
+void   cblas_starpu_zdotu_sub(const int N, const void *X, const int incX,
                        const void *Y, const int incY, void *dotu);
-void   cblas_zdotc_sub(const int N, const void *X, const int incX,
+void   cblas_starpu_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_cdotu_sub(*N, X, *incX, Y, *incY, retval);
+    cblas_starpu_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_cdotc_sub(*N, X, *incX, Y, *incY, retval);
+    cblas_starpu_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_zdotu_sub(*N, X, *incX, Y, *incY, retval);
+    cblas_starpu_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_zdotc_sub(*N, X, *incX, Y, *incY, retval);
+    cblas_starpu_zdotc_sub(*N, X, *incX, Y, *incY, retval);
 }
 
 

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

@@ -1,205 +1,205 @@
 real 
-sdot_(integer* N, 
+_starpu_sdot_(integer* N, 
       real* X, integer* incX, 
       real* Y, integer* incY);
 
 doublereal
-ddot_(integer* N, 
+_starpu_ddot_(integer* N, 
       doublereal* X, integer* incX, 
       doublereal* Y, integer* incY);
 
 void 
-cdotu_(complex* retval,
+_starpu_cdotu_(complex* retval,
        integer* N, 
        complex* X, integer* incX, 
        complex* Y, integer* incY);
 
 void
-cdotc_(complex* retval,
+_starpu_cdotc_(complex* retval,
        integer* N, 
        complex* X, integer* incX, 
        complex* Y, integer* incY);
 
 void
-zdotu_(doublecomplex* retval,
+_starpu_zdotu_(doublecomplex* retval,
        integer* N, 
        doublecomplex* X, integer* incX, 
        doublecomplex* Y, integer* incY);
 
 void
-zdotc_(doublecomplex* retval,
+_starpu_zdotc_(doublecomplex* retval,
        integer* N, 
        doublecomplex* X, integer* incX, 
        doublecomplex* Y, integer* incY);
 
 real 
-snrm2_(integer* N, 
+_starpu_snrm2_(integer* N, 
        real* X, integer* incX);
 
 real
-sasum_(integer* N, 
+_starpu_sasum_(integer* N, 
        real* X, integer* incX);
 
 doublereal
-dnrm2_(integer* N, 
+_starpu_dnrm2_(integer* N, 
        doublereal* X, integer* incX);
 
 doublereal
-dasum_(integer* N, 
+_starpu_dasum_(integer* N, 
        doublereal* X, integer* incX);
 
 real 
-scnrm2_(integer* N, 
+_starpu_scnrm2_(integer* N, 
         complex* X, integer* incX);
 
 real
-scasum_(integer* N, 
+_starpu_scasum_(integer* N, 
         complex* X, integer* incX);
 
 doublereal 
-dznrm2_(integer* N, 
+_starpu_dznrm2_(integer* N, 
         doublecomplex* X, integer* incX);
 
 doublereal
-dzasum_(integer* N, 
+_starpu_dzasum_(integer* N, 
         doublecomplex* X, integer* incX);
 
 integer
-isamax_(integer* N,
+_starpu_isamax_(integer* N,
         real* X, integer* incX);
 
 integer
-idamax_(integer* N,
+_starpu_idamax_(integer* N,
         doublereal* X, integer* incX);
 
 integer
-icamax_(integer* N,
+_starpu_icamax_(integer* N,
         complex* X, integer* incX);
 
 integer
-izamax_(integer* N,
+_starpu_izamax_(integer* N,
         doublecomplex* X, integer* incX);
 
 int
-sswap_(integer* N,
+_starpu_sswap_(integer* N,
        real* X, integer* incX,
        real* Y, integer* incY);
 
 int
-scopy_(integer* N,
+_starpu_scopy_(integer* N,
        real* X, integer* incX,
        real* Y, integer* incY);
 
 int
-saxpy_(integer* N,
+_starpu_saxpy_(integer* N,
        real* alpha,
        real* X, integer* incX,
        real* Y, integer* incY);
 
 int
-dswap_(integer* N,
+_starpu_dswap_(integer* N,
        doublereal* X, integer* incX,
        doublereal* Y, integer* incY);
 
 int
-dcopy_(integer* N,
+_starpu_dcopy_(integer* N,
        doublereal* X, integer* incX,
        doublereal* Y, integer* incY);
 
 int
-daxpy_(integer* N,
+_starpu_daxpy_(integer* N,
        doublereal* alpha,
        doublereal* X, integer* incX,
        doublereal* Y, integer* incY);
 
 int
-cswap_(integer* N,
+_starpu_cswap_(integer* N,
        complex* X, integer* incX,
        complex* Y, integer* incY);
 
 int
-ccopy_(integer* N,
+_starpu_ccopy_(integer* N,
        complex* X, integer* incX,
        complex* Y, integer* incY);
 
 int
-caxpy_(integer* N,
+_starpu_caxpy_(integer* N,
       complex* alpha,
       complex* X, integer* incX,
       complex* Y, integer* incY);
 
 int
-zswap_(integer* N,
+_starpu_zswap_(integer* N,
        doublecomplex* X, integer* incX,
        doublecomplex* Y, integer* incY);
 
 int
-zcopy_(integer* N,
+_starpu_zcopy_(integer* N,
        doublecomplex* X, integer* incX,
        doublecomplex* Y, integer* incY);
 
 int
-zaxpy_(integer* N,
+_starpu_zaxpy_(integer* N,
        doublecomplex* alpha,
        doublecomplex* X, integer* incX,
        doublecomplex* Y, integer* incY);
 
 int
-srotg_(real* a, real* b, real* c, real* s);
+_starpu_srotg_(real* a, real* b, real* c, real* s);
 
 int
-srot_(integer* N,
+_starpu_srot_(integer* N,
       real* X, integer* incX,
       real* Y, integer* incY,
       real* c, real* s);
 
 int
-crotg_(complex* a, complex* b, complex* c, complex* s);
+_starpu_crotg_(complex* a, complex* b, complex* c, complex* s);
 
 int
-drotg_(doublereal* a, doublereal* b, doublereal* c, doublereal* s);
+_starpu_drotg_(doublereal* a, doublereal* b, doublereal* c, doublereal* s);
 
 int
-drot_(integer* N,
+_starpu_drot_(integer* N,
       doublereal* X, integer* incX,
       doublereal* Y, integer* incY,
       doublereal* c, doublereal* s);
 
 int
-zrotg_(doublecomplex* a, doublecomplex* b, doublecomplex* c, doublecomplex* s);
+_starpu_zrotg_(doublecomplex* a, doublecomplex* b, doublecomplex* c, doublecomplex* s);
 
 int
-sscal_(integer* N,
+_starpu_sscal_(integer* N,
        real* alpha,
        real* X, integer* incX);
 
 int
-dscal_(integer* N,
+_starpu_dscal_(integer* N,
        doublereal* alpha,
        doublereal* X, integer* incX);
 
 int
-cscal_(integer* N,
+_starpu_cscal_(integer* N,
        complex* alpha,
        complex* X, integer* incX);
 
 int
-zscal_(integer* N,
+_starpu_zscal_(integer* N,
        doublecomplex* alpha,
        doublecomplex* X, integer* incX);
 
 int
-csscal_(integer* N,
+_starpu_cstarpu_sscal_(integer* N,
         real* alpha,
         complex* X, integer* incX);
 
 int
-zdscal_(integer* N,
+zstarpu_dscal_(integer* N,
         doublereal* alpha,
         doublecomplex* X, integer* incX);
 
 int
-sgemv_(char* trans, integer* M, integer* N,
+_starpu_sgemv_(char* trans, integer* M, integer* N,
        real* alpha,
        real* A, integer* lda,
        real* X, integer* incX,
@@ -207,7 +207,7 @@ sgemv_(char* trans, integer* M, integer* N,
        real* Y, integer* incY);
 
 int
-sgbmv_(char *trans, integer *M, integer *N, integer *KL, integer *KU, 
+_starpu_sgbmv_(char *trans, integer *M, integer *N, integer *KL, integer *KU, 
        real *alpha, 
        real *A, integer *lda, 
        real *X, integer *incX, 
@@ -215,37 +215,37 @@ sgbmv_(char *trans, integer *M, integer *N, integer *KL, integer *KU,
        real *Y, integer *incY);
 
 int 
-strmv_(char* uplo, char *trans, char* diag, integer *N,  
+_starpu_strmv_(char* uplo, char *trans, char* diag, integer *N,  
        real *A, integer *lda, 
        real *X, integer *incX);
 
 int
-stbmv_(char* uplo, char* trans, char* diag, integer* N, integer* K,
+_starpu_stbmv_(char* uplo, char* trans, char* diag, integer* N, integer* K,
        real* A, integer* lda,
        real* X, integer* incX);
 
 int
-stpmv_(char* uplo, char* trans, char* diag, integer* N, 
+_starpu_stpmv_(char* uplo, char* trans, char* diag, integer* N, 
        real* Ap, 
        real* X, integer* incX);
 
 int
-strsv_(char* uplo, char* trans, char* diag, integer* N,
+_starpu_strsv_(char* uplo, char* trans, char* diag, integer* N,
        real* A, integer* lda,
        real* X, integer* incX);
 
 int
-stbsv_(char* uplo, char* trans, char* diag, integer* N, integer* K,
+_starpu_stbsv_(char* uplo, char* trans, char* diag, integer* N, integer* K,
        real* A, integer* lda, 
        real* X, integer* incX);
 
 int
-stpsv_(char* uplo, char* trans, char* diag, integer* N, 
+_starpu_stpsv_(char* uplo, char* trans, char* diag, integer* N, 
        real* Ap, 
        real* X, integer* incX);
 
 int
-dgemv_(char* trans, integer* M, integer* N,
+_starpu_dgemv_(char* trans, integer* M, integer* N,
        doublereal* alpha,
        doublereal* A, integer* lda,
        doublereal* X, integer* incX,
@@ -253,7 +253,7 @@ dgemv_(char* trans, integer* M, integer* N,
        doublereal* Y, integer* incY);
 
 int 
-dgbmv_(char *trans, integer *M, integer *N, integer *KL, integer *KU, 
+_starpu_dgbmv_(char *trans, integer *M, integer *N, integer *KL, integer *KU, 
        doublereal *alpha, 
        doublereal *A, integer *lda, 
        doublereal *X, integer *incX, 
@@ -261,37 +261,37 @@ dgbmv_(char *trans, integer *M, integer *N, integer *KL, integer *KU,
        doublereal *Y, integer *incY);
 
 int 
-dtrmv_(char* uplo, char *trans, char* diag, integer *N,  
+_starpu_dtrmv_(char* uplo, char *trans, char* diag, integer *N,  
        doublereal *A, integer *lda, 
        doublereal *X, integer *incX);
 
 int
-dtbmv_(char* uplo, char* trans, char* diag, integer* N, integer* K,
+_starpu_dtbmv_(char* uplo, char* trans, char* diag, integer* N, integer* K,
        doublereal* A, integer* lda,
        doublereal* X, integer* incX);
 
 int
-dtpmv_(char* uplo, char* trans, char* diag, integer* N, 
+_starpu_dtpmv_(char* uplo, char* trans, char* diag, integer* N, 
        doublereal* Ap, 
        doublereal* X, integer* incX);
 
 int
-dtrsv_(char* uplo, char* trans, char* diag, integer* N,
+_starpu_dtrsv_(char* uplo, char* trans, char* diag, integer* N,
        doublereal* A, integer* lda,
        doublereal* X, integer* incX);
 
 int
-dtbsv_(char* uplo, char* trans, char* diag, integer* N, integer* K,
+_starpu_dtbsv_(char* uplo, char* trans, char* diag, integer* N, integer* K,
        doublereal* A, integer* lda, 
        doublereal* X, integer* incX);
 
 int
-dtpsv_(char* uplo, char* trans, char* diag, integer* N, 
+_starpu_dtpsv_(char* uplo, char* trans, char* diag, integer* N, 
        doublereal* Ap, 
        doublereal* X, integer* incX);
 
 int
-cgemv_(char* trans, integer* M, integer* N,
+_starpu_cgemv_(char* trans, integer* M, integer* N,
        complex* alpha,
        complex* A, integer* lda,
        complex* X, integer* incX,
@@ -299,7 +299,7 @@ cgemv_(char* trans, integer* M, integer* N,
        complex* Y, integer* incY);
 
 int 
-cgbmv_(char *trans, integer *M, integer *N, integer *KL, integer *KU, 
+_starpu_cgbmv_(char *trans, integer *M, integer *N, integer *KL, integer *KU, 
        complex *alpha, 
        complex *A, integer *lda, 
        complex *X, integer *incX, 
@@ -307,37 +307,37 @@ cgbmv_(char *trans, integer *M, integer *N, integer *KL, integer *KU,
        complex *Y, integer *incY);
 
 int 
-ctrmv_(char* uplo, char *trans, char* diag, integer *N,  
+_starpu_ctrmv_(char* uplo, char *trans, char* diag, integer *N,  
        complex *A, integer *lda, 
        complex *X, integer *incX);
 
 int
-ctbmv_(char* uplo, char* trans, char* diag, integer* N, integer* K,
+_starpu_ctbmv_(char* uplo, char* trans, char* diag, integer* N, integer* K,
        complex* A, integer* lda,
        complex* X, integer* incX);
 
 int
-ctpmv_(char* uplo, char* trans, char* diag, integer* N, 
+_starpu_ctpmv_(char* uplo, char* trans, char* diag, integer* N, 
        complex* Ap, 
        complex* X, integer* incX);
 
 int
-ctrsv_(char* uplo, char* trans, char* diag, integer* N,
+_starpu_ctrsv_(char* uplo, char* trans, char* diag, integer* N,
        complex* A, integer* lda,
        complex* X, integer* incX);
 
 int
-ctbsv_(char* uplo, char* trans, char* diag, integer* N, integer* K,
+_starpu_ctbsv_(char* uplo, char* trans, char* diag, integer* N, integer* K,
        complex* A, integer* lda, 
        complex* X, integer* incX);
 
 int
-ctpsv_(char* uplo, char* trans, char* diag, integer* N, 
+_starpu_ctpsv_(char* uplo, char* trans, char* diag, integer* N, 
        complex* Ap, 
        complex* X, integer* incX);
 
 int
-zgemv_(char* trans, integer* M, integer* N,
+_starpu_zgemv_(char* trans, integer* M, integer* N,
        doublecomplex* alpha,
        doublecomplex* A, integer* lda,
        doublecomplex* X, integer* incX,
@@ -345,7 +345,7 @@ zgemv_(char* trans, integer* M, integer* N,
        doublecomplex* Y, integer* incY);
 
 int 
-zgbmv_(char *trans, integer *M, integer *N, integer *KL, integer *KU, 
+_starpu_zgbmv_(char *trans, integer *M, integer *N, integer *KL, integer *KU, 
        doublecomplex *alpha, 
        doublecomplex *A, integer *lda, 
        doublecomplex *X, integer *incX, 
@@ -353,37 +353,37 @@ zgbmv_(char *trans, integer *M, integer *N, integer *KL, integer *KU,
        doublecomplex *Y, integer *incY);
 
 int 
-ztrmv_(char* uplo, char *trans, char* diag, integer *N,  
+_starpu_ztrmv_(char* uplo, char *trans, char* diag, integer *N,  
        doublecomplex *A, integer *lda, 
        doublecomplex *X, integer *incX);
 
 int
-ztbmv_(char* uplo, char* trans, char* diag, integer* N, integer* K,
+_starpu_ztbmv_(char* uplo, char* trans, char* diag, integer* N, integer* K,
        doublecomplex* A, integer* lda,
        doublecomplex* X, integer* incX);
 
  void  
-ztpmv_(char* uplo, char* trans, char* diag, integer* N, 
+_starpu_ztpmv_(char* uplo, char* trans, char* diag, integer* N, 
       doublecomplex* Ap, 
       doublecomplex* X, integer* incX);
 
 int
-ztrsv_(char* uplo, char* trans, char* diag, integer* N,
+_starpu_ztrsv_(char* uplo, char* trans, char* diag, integer* N,
        doublecomplex* A, integer* lda,
        doublecomplex* X, integer* incX);
 
 int
-ztbsv_(char* uplo, char* trans, char* diag, integer* N, integer* K,
+_starpu_ztbsv_(char* uplo, char* trans, char* diag, integer* N, integer* K,
        doublecomplex* A, integer* lda, 
        doublecomplex* X, integer* incX);
 
 int
-ztpsv_(char* uplo, char* trans, char* diag, integer* N, 
+_starpu_ztpsv_(char* uplo, char* trans, char* diag, integer* N, 
        doublecomplex* Ap, 
        doublecomplex* X, integer* incX);
 
 int
-ssymv_(char* uplo, integer* N,
+_starpu_ssymv_(char* uplo, integer* N,
        real* alpha,
        real* A, integer* lda,
        real* X, integer* incX,
@@ -391,7 +391,7 @@ ssymv_(char* uplo, integer* N,
        real* Y, integer* incY);
 
 int 
-ssbmv_(char* uplo, integer* N, integer* K,
+_starpu_ssbmv_(char* uplo, integer* N, integer* K,
        real* alpha,
        real* A, integer* lda,
        real* X, integer* incX,
@@ -399,7 +399,7 @@ ssbmv_(char* uplo, integer* N, integer* K,
        real* Y, integer* incY);
 
 int
-sspmv_(char* uplo, integer* N,
+_starpu_sspmv_(char* uplo, integer* N,
        real* alpha,
        real* Ap,
        real* X, integer* incX,
@@ -407,40 +407,40 @@ sspmv_(char* uplo, integer* N,
        real* Y, integer* incY);
 
 int
-sger_(integer* M, integer* N,
+_starpu_sger_(integer* M, integer* N,
       real* alpha,
       real* X, integer* incX,
       real* Y, integer* incY,
       real* A, integer* lda);
 
 int
-ssyr_(char* uplo, integer* N,
+_starpu_ssyr_(char* uplo, integer* N,
       real* alpha,
       real* X, integer* incX,
       real* A, integer* lda);
 
 int
-sspr_(char* uplo, integer* N,
+_starpu_sspr_(char* uplo, integer* N,
       real* alpha,
       real* X, integer* incX,
       real* Ap);
 
 int
-ssyr2_(char* uplo, integer* N,
+_starpu_ssyr2_(char* uplo, integer* N,
        real* alpha,
        real* X, integer* incX,
        real* Y, integer* incY,
        real* A, integer* lda);
 
 int
-sspr2_(char* uplo, integer* N,
+_starpu_sspr2_(char* uplo, integer* N,
        real* alpha, 
        real* X, integer* incX,
        real* Y, integer* incY,
        real* A);
 
 int
-dsymv_(char* uplo, integer* N,
+_starpu_dsymv_(char* uplo, integer* N,
        doublereal* alpha,
        doublereal* A, integer* lda,
        doublereal* X, integer* incX,
@@ -448,7 +448,7 @@ dsymv_(char* uplo, integer* N,
        doublereal* Y, integer* incY);
 
 int 
-dsbmv_(char* uplo, integer* N, integer* K,
+_starpu_dsbmv_(char* uplo, integer* N, integer* K,
        doublereal* alpha,
        doublereal* A, integer* lda,
        doublereal* X, integer* incX,
@@ -456,7 +456,7 @@ dsbmv_(char* uplo, integer* N, integer* K,
        doublereal* Y, integer* incY);
 
 int
-dspmv_(char* uplo, integer* N,
+_starpu_dspmv_(char* uplo, integer* N,
        doublereal* alpha,
        doublereal* Ap,
        doublereal* X, integer* incX,
@@ -464,40 +464,40 @@ dspmv_(char* uplo, integer* N,
        doublereal* Y, integer* incY);
 
 int
-dger_(integer* M, integer* N,
+_starpu_dger_(integer* M, integer* N,
       doublereal* alpha,
       doublereal* X, integer* incX,
       doublereal* Y, integer* incY,
       doublereal* A, integer* lda);
 
 int
-dsyr_(char* uplo, integer* N,
+_starpu_dsyr_(char* uplo, integer* N,
       doublereal* alpha,
       doublereal* X, integer* incX,
       doublereal* A, integer* lda);
 
 int
-dspr_(char* uplo, integer* N,
+_starpu_dspr_(char* uplo, integer* N,
       doublereal* alpha,
       doublereal* X, integer* incX,
       doublereal* Ap);
 
 int
-dsyr2_(char* uplo, integer* N,
+_starpu_dsyr2_(char* uplo, integer* N,
        doublereal* alpha,
        doublereal* X, integer* incX,
        doublereal* Y, integer* incY,
        doublereal* A, integer* lda);
 
 int
-dspr2_(char* uplo, integer* N,
+_starpu_dspr2_(char* uplo, integer* N,
        doublereal* alpha, 
        doublereal* X, integer* incX,
        doublereal* Y, integer* incY,
        doublereal* A);
 
 int
-chemv_(char* uplo, integer* N,
+_starpu_chemv_(char* uplo, integer* N,
        complex* alpha,
        complex* A, integer* lda,
        complex* X, integer* incX,
@@ -505,7 +505,7 @@ chemv_(char* uplo, integer* N,
        complex* Y, integer* incY);
 
 int
-chbmv_(char* uplo, integer* N, integer* K,
+_starpu_chbmv_(char* uplo, integer* N, integer* K,
        complex* alpha,
        complex* A, integer* lda,
        complex* X, integer* incX,
@@ -513,7 +513,7 @@ chbmv_(char* uplo, integer* N, integer* K,
        complex* Y, integer* incY);
 
 int
-chpmv_(char* uplo, integer* N, 
+_starpu_chpmv_(char* uplo, integer* N, 
        complex* alpha,
        complex* Ap, 
        complex* X, integer* incX,
@@ -521,47 +521,47 @@ chpmv_(char* uplo, integer* N,
        complex* Y, integer* incY);
 
 int
-cgeru_(integer* M, integer* N,
+_starpu_cgeru_(integer* M, integer* N,
        complex* alpha,
        complex* X, integer* incX,
        complex* Y, integer* incY,
        complex* A, integer* lda);
 
 int
-cgerc_(integer* M, integer* N,
+_starpu_cgerc_(integer* M, integer* N,
        complex* alpha,
        complex* X, integer* incX,
        complex* Y, integer* incY,
        complex* A, integer* lda);
 
 int
-cher_(char* uplo, integer* N,
+_starpu_cher_(char* uplo, integer* N,
       real* alpha,
       complex* X, integer* incX,
       complex* A, integer* lda);
 
 int
-chpr_(char* uplo, integer* N,
+_starpu_chpr_(char* uplo, integer* N,
       real* alpha,
       complex* X, integer* incX,
       complex* Ap);
 
 int
-cher2_(char* uplo, integer* N,
+_starpu_cher2_(char* uplo, integer* N,
        complex* alpha,
        complex* X, integer* incX,
        complex* Y, integer* incY,
        complex* A, integer* lda);
 
 int
-chpr2_(char* uplo, integer* N,
+_starpu_chpr2_(char* uplo, integer* N,
        complex* alpha,
        complex* X, integer* incX,
        complex* Y, integer* incY,
        complex* Ap);
 
 int
-zhemv_(char* uplo, integer* N,
+_starpu_zhemv_(char* uplo, integer* N,
        doublecomplex* alpha,
        doublecomplex* A, integer* lda,
        doublecomplex* X, integer* incX,
@@ -569,7 +569,7 @@ zhemv_(char* uplo, integer* N,
        doublecomplex* Y, integer* incY);
 
 int
-zhbmv_(char* uplo, integer* N, integer* K,
+_starpu_zhbmv_(char* uplo, integer* N, integer* K,
        doublecomplex* alpha,
        doublecomplex* A, integer* lda,
        doublecomplex* X, integer* incX,
@@ -577,7 +577,7 @@ zhbmv_(char* uplo, integer* N, integer* K,
        doublecomplex* Y, integer* incY);
 
 int
-zhpmv_(char* uplo, integer* N, 
+_starpu_zhpmv_(char* uplo, integer* N, 
        doublecomplex* alpha,
        doublecomplex* Ap, 
        doublecomplex* X, integer* incX,
@@ -585,47 +585,47 @@ zhpmv_(char* uplo, integer* N,
        doublecomplex* Y, integer* incY);
 
 int
-zgeru_(integer* M, integer* N,
+_starpu_zgeru_(integer* M, integer* N,
        doublecomplex* alpha,
        doublecomplex* X, integer* incX,
        doublecomplex* Y, integer* incY,
        doublecomplex* A, integer* lda);
 
 int
-zgerc_(integer* M, integer* N,
+_starpu_zgerc_(integer* M, integer* N,
        doublecomplex* alpha,
        doublecomplex* X, integer* incX,
        doublecomplex* Y, integer* incY,
        doublecomplex* A, integer* lda);
 
 int
-zher_(char* uplo, integer* N,
+_starpu_zher_(char* uplo, integer* N,
       doublereal* alpha,
       doublecomplex* X, integer* incX,
       doublecomplex* A, integer* lda);
 
 int
-zhpr_(char* uplo, integer* N,
+_starpu_zhpr_(char* uplo, integer* N,
       doublereal* alpha,
       doublecomplex* X, integer* incX,
       doublecomplex* Ap);
 
 int
-zher2_(char* uplo, integer* N,
+_starpu_zher2_(char* uplo, integer* N,
        doublecomplex* alpha,
        doublecomplex* X, integer* incX,
        doublecomplex* Y, integer* incY,
        doublecomplex* A, integer* lda);
 
 int
-zhpr2_(char* uplo, integer* N,
+_starpu_zhpr2_(char* uplo, integer* N,
        doublecomplex* alpha,
        doublecomplex* X, integer* incX,
        doublecomplex* Y, integer* incY,
        doublecomplex* Ap);
 
 int
-sgemm_(char* transA, char* transB, integer* M, integer* N, integer* K,
+_starpu_sgemm_(char* transA, char* transB, integer* M, integer* N, integer* K,
        real* alpha,
        real* A, integer* lda,
        real* B, integer* ldb,
@@ -633,7 +633,7 @@ sgemm_(char* transA, char* transB, integer* M, integer* N, integer* K,
        real* C, integer* ldc);
 
 int
-ssymm_(char* side, char* uplo, integer* M, integer* N,
+_starpu_ssymm_(char* side, char* uplo, integer* M, integer* N,
        real* alpha,
        real* A, integer* lda,
        real* B, integer* ldb,
@@ -641,14 +641,14 @@ ssymm_(char* side, char* uplo, integer* M, integer* N,
        real* C, integer* ldc);
 
 int
-ssyrk_(char* uplo, char* trans, integer* N, integer* K,
+_starpu_ssyrk_(char* uplo, char* trans, integer* N, integer* K,
        real* alpha,
        real* A, integer* lda,
        real* beta,
        real* C, integer* ldc);
 
 int
-ssyr2k_(char* uplo, char* trans, integer* N, integer* K,
+_starpu_ssyr2k_(char* uplo, char* trans, integer* N, integer* K,
         real* alpha,
         real* A, integer* lda,
         real* B, integer* ldb,
@@ -656,21 +656,21 @@ ssyr2k_(char* uplo, char* trans, integer* N, integer* K,
         real* C, integer* ldc);
 
 int
-strmm_(char* side, char* uplo, char* trans, char* diag, 
+_starpu_strmm_(char* side, char* uplo, char* trans, char* diag, 
        integer* M, integer* N,
        real* alpha,
        real* A, integer* lda,
        real* B, integer* ldb);
 
 int 
-strsm_(char* side, char* uplo, char* trans, char* diag,
+_starpu_strsm_(char* side, char* uplo, char* trans, char* diag,
        integer* M, integer* N,
        real* alpha,
        real* A, integer* lda,
        real* B, integer* ldb);
 
 int
-dgemm_(char* transA, char* transB, integer* M, integer* N, integer* K,
+_starpu_dgemm_(char* transA, char* transB, integer* M, integer* N, integer* K,
        doublereal* alpha,
        doublereal* A, integer* lda,
        doublereal* B, integer* ldb,
@@ -678,7 +678,7 @@ dgemm_(char* transA, char* transB, integer* M, integer* N, integer* K,
        doublereal* C, integer* ldc);
 
 int
-dsymm_(char* side, char* uplo, integer* M, integer* N,
+_starpu_dsymm_(char* side, char* uplo, integer* M, integer* N,
        doublereal* alpha,
        doublereal* A, integer* lda,
        doublereal* B, integer* ldb,
@@ -686,14 +686,14 @@ dsymm_(char* side, char* uplo, integer* M, integer* N,
        doublereal* C, integer* ldc);
 
 int
-dsyrk_(char* uplo, char* trans, integer* N, integer* K,
+_starpu_dsyrk_(char* uplo, char* trans, integer* N, integer* K,
        doublereal* alpha,
        doublereal* A, integer* lda,
        doublereal* beta,
        doublereal* C, integer* ldc);
 
 int
-dsyr2k_(char* uplo, char* trans, integer* N, integer* K,
+_starpu_dsyr2k_(char* uplo, char* trans, integer* N, integer* K,
         doublereal* alpha,
         doublereal* A, integer* lda,
         doublereal* B, integer* ldb,
@@ -701,21 +701,21 @@ dsyr2k_(char* uplo, char* trans, integer* N, integer* K,
         doublereal* C, integer* ldc);
 
 int
-dtrmm_(char* side, char* uplo, char* trans, char* diag, 
+_starpu_dtrmm_(char* side, char* uplo, char* trans, char* diag, 
        integer* M, integer* N,
        doublereal* alpha,
        doublereal* A, integer* lda,
        doublereal* B, integer* ldb);
 
 int 
-dtrsm_(char* side, char* uplo, char* trans, char* diag,
+_starpu_dtrsm_(char* side, char* uplo, char* trans, char* diag,
        integer* M, integer* N,
        doublereal* alpha,
        doublereal* A, integer* lda,
        doublereal* B, integer* ldb);
 
 int
-cgemm_(char* transA, char* transB, integer* M, integer* N, integer* K,
+_starpu_cgemm_(char* transA, char* transB, integer* M, integer* N, integer* K,
        complex* alpha,
        complex* A, integer* lda,
        complex* B, integer* ldb,
@@ -723,7 +723,7 @@ cgemm_(char* transA, char* transB, integer* M, integer* N, integer* K,
        complex* C, integer* ldc);
 
 int
-csymm_(char* side, char* uplo, integer* M, integer* N,
+_starpu_csymm_(char* side, char* uplo, integer* M, integer* N,
        complex* alpha,
        complex* A, integer* lda,
        complex* B, integer* ldb,
@@ -731,14 +731,14 @@ csymm_(char* side, char* uplo, integer* M, integer* N,
        complex* C, integer* ldc);
 
 int
-csyrk_(char* uplo, char* trans, integer* N, integer* K,
+_starpu_csyrk_(char* uplo, char* trans, integer* N, integer* K,
        complex* alpha,
        complex* A, integer* lda,
        complex* beta,
        complex* C, integer* ldc);
 
 int
-csyr2k_(char* uplo, char* trans, integer* N, integer* K,
+_starpu_csyr2k_(char* uplo, char* trans, integer* N, integer* K,
         complex* alpha,
         complex* A, integer* lda,
         complex* B, integer* ldb,
@@ -746,21 +746,21 @@ csyr2k_(char* uplo, char* trans, integer* N, integer* K,
         complex* C, integer* ldc);
 
 int
-ctrmm_(char* side, char* uplo, char* trans, char* diag, 
+_starpu_ctrmm_(char* side, char* uplo, char* trans, char* diag, 
        integer* M, integer* N,
        complex* alpha,
        complex* A, integer* lda,
        complex* B, integer* ldb);
 
 int 
-ctrsm_(char* side, char* uplo, char* trans, char* diag,
+_starpu_ctrsm_(char* side, char* uplo, char* trans, char* diag,
        integer* M, integer* N,
        complex* alpha,
        complex* A, integer* lda,
        complex* B, integer* ldb);
 
 int
-zgemm_(char* transA, char* transB, integer* M, integer* N, integer* K,
+_starpu_zgemm_(char* transA, char* transB, integer* M, integer* N, integer* K,
        doublecomplex* alpha,
        doublecomplex* A, integer* lda,
        doublecomplex* B, integer* ldb,
@@ -768,7 +768,7 @@ zgemm_(char* transA, char* transB, integer* M, integer* N, integer* K,
        doublecomplex* C, integer* ldc);
 
 int
-zsymm_(char* side, char* uplo, integer* M, integer* N,
+_starpu_zsymm_(char* side, char* uplo, integer* M, integer* N,
        doublecomplex* alpha,
        doublecomplex* A, integer* lda,
        doublecomplex* B, integer* ldb,
@@ -776,14 +776,14 @@ zsymm_(char* side, char* uplo, integer* M, integer* N,
        doublecomplex* C, integer* ldc);
 
 int
-zsyrk_(char* uplo, char* trans, integer* N, integer* K,
+_starpu_zsyrk_(char* uplo, char* trans, integer* N, integer* K,
        doublecomplex* alpha,
        doublecomplex* A, integer* lda,
        doublecomplex* beta,
        doublecomplex* C, integer* ldc);
 
 int
-zsyr2k_(char* uplo, char* trans, integer* N, integer* K,
+_starpu_zsyr2k_(char* uplo, char* trans, integer* N, integer* K,
         doublecomplex* alpha,
         doublecomplex* A, integer* lda,
         doublecomplex* B, integer* ldb,
@@ -791,21 +791,21 @@ zsyr2k_(char* uplo, char* trans, integer* N, integer* K,
         doublecomplex* C, integer* ldc);
 
 int
-ztrmm_(char* side, char* uplo, char* trans, char* diag, 
+_starpu_ztrmm_(char* side, char* uplo, char* trans, char* diag, 
        integer* M, integer* N,
        doublecomplex* alpha,
        doublecomplex* A, integer* lda,
        doublecomplex* B, integer* ldb);
 
 int 
-ztrsm_(char* side, char* uplo, char* trans, char* diag,
+_starpu_ztrsm_(char* side, char* uplo, char* trans, char* diag,
        integer* M, integer* N,
        doublecomplex* alpha,
        doublecomplex* A, integer* lda,
        doublecomplex* B, integer* ldb);
 
 int
-chemm_(char* side, char* uplo, integer* M, integer* N,
+_starpu_chemm_(char* side, char* uplo, integer* M, integer* N,
        complex* alpha,
        complex* A, integer* lda,
        complex* B, integer* ldb,
@@ -813,14 +813,14 @@ chemm_(char* side, char* uplo, integer* M, integer* N,
        complex* C, integer* ldc);
 
 int
-cherk_(char* uplo, char* trans, integer* N, integer* K,
+_starpu_cherk_(char* uplo, char* trans, integer* N, integer* K,
        real* alpha,
        complex* A, integer* lda,
        real* beta,
        complex* C, integer* ldc);
 
 int
-cher2k_(char* uplo, char* trans, integer* N, integer* K,
+_starpu_cher2k_(char* uplo, char* trans, integer* N, integer* K,
         complex* alpha,
         complex* A, integer* lda,
         complex* B, integer* ldb,
@@ -828,7 +828,7 @@ cher2k_(char* uplo, char* trans, integer* N, integer* K,
         complex* C, integer* ldc);
 
 int
-zhemm_(char* side, char* uplo, integer* M, integer* N,
+_starpu_zhemm_(char* side, char* uplo, integer* M, integer* N,
        doublecomplex* alpha,
        doublecomplex* A, integer* lda,
        doublecomplex* B, integer* ldb,
@@ -836,14 +836,14 @@ zhemm_(char* side, char* uplo, integer* M, integer* N,
        doublecomplex* C, integer* ldc);
 
 int
-zherk_(char* uplo, char* trans, integer* N, integer* K,
+_starpu_zherk_(char* uplo, char* trans, integer* N, integer* K,
        doublereal* alpha,
        doublecomplex* A, integer* lda,
        doublereal* beta,
        doublecomplex* C, integer* ldc);
 
 int
-zher2k_(char* uplo, char* trans, integer* N, integer* K,
+_starpu_zher2k_(char* uplo, char* trans, integer* N, integer* K,
         doublecomplex* alpha,
         doublecomplex* A, integer* lda,
         doublecomplex* B, integer* ldb,

min-dgels/base/F2CLIBS/libf2c/ef1cmc_.c

@@ -7,10 +7,10 @@ extern "C" {
 
 #ifdef KR_headers
 extern integer s_cmp();
-integer ef1cmc_(a, la, b, lb) ftnint *a, *b; ftnlen *la, *lb;
+integer _starpu_ef1cmc_(a, la, b, lb) ftnint *a, *b; ftnlen *la, *lb;
 #else
 extern integer s_cmp(char*,char*,ftnlen,ftnlen);
-integer ef1cmc_(ftnint *a, ftnlen *la, ftnint *b, ftnlen *lb)
+integer _starpu_ef1cmc_(ftnint *a, ftnlen *la, ftnint *b, ftnlen *lb)
 #endif
 {
 return( s_cmp( (char *)a, (char *)b, *la, *lb) );

min-dgels/base/F2CLIBS/libf2c/f2ch.add

@@ -54,7 +54,7 @@ extern integer e_wsle(void);
 extern integer e_wsli(void);
 extern integer e_wsue(void);
 extern int ef1asc_(ftnint *, ftnlen *, ftnint *, ftnlen *);
-extern integer ef1cmc_(ftnint *, ftnlen *, ftnint *, ftnlen *);
+extern integer _starpu_ef1cmc_(ftnint *, ftnlen *, ftnint *, ftnlen *);
 extern double erf(double);
 extern double erf_(float *);
 extern double erfc(double);

min-dgels/base/INCLUDE/blaswrap.h

@@ -8,152 +8,152 @@
 #ifndef NO_BLAS_WRAP
  
 /* BLAS1 routines */
-#define srotg_ f2c_srotg
-#define crotg_ f2c_crotg
-#define drotg_ f2c_drotg
-#define zrotg_ f2c_zrotg
-#define srotmg_ f2c_srotmg
-#define drotmg_ f2c_drotmg
-#define srot_ f2c_srot
-#define drot_ f2c_drot
-#define srotm_ f2c_srotm
-#define drotm_ f2c_drotm
-#define sswap_ f2c_sswap
-#define dswap_ f2c_dswap
-#define cswap_ f2c_cswap
-#define zswap_ f2c_zswap
-#define sscal_ f2c_sscal
-#define dscal_ f2c_dscal
-#define cscal_ f2c_cscal
-#define zscal_ f2c_zscal
-#define csscal_ f2c_csscal
-#define zdscal_ f2c_zdscal
-#define scopy_ f2c_scopy
-#define dcopy_ f2c_dcopy
-#define ccopy_ f2c_ccopy
-#define zcopy_ f2c_zcopy
-#define saxpy_ f2c_saxpy
-#define daxpy_ f2c_daxpy
-#define caxpy_ f2c_caxpy
-#define zaxpy_ f2c_zaxpy
-#define sdot_ f2c_sdot
-#define ddot_ f2c_ddot
-#define cdotu_ f2c_cdotu
-#define zdotu_ f2c_zdotu
-#define cdotc_ f2c_cdotc
-#define zdotc_ f2c_zdotc
-#define snrm2_ f2c_snrm2
-#define dnrm2_ f2c_dnrm2
-#define scnrm2_ f2c_scnrm2
-#define dznrm2_ f2c_dznrm2
-#define sasum_ f2c_sasum
-#define dasum_ f2c_dasum
-#define scasum_ f2c_scasum
-#define dzasum_ f2c_dzasum
-#define isamax_ f2c_isamax
-#define idamax_ f2c_idamax
-#define icamax_ f2c_icamax
-#define izamax_ f2c_izamax
+#define _starpu_srotg_ f2c_srotg
+#define _starpu_crotg_ f2c_crotg
+#define _starpu_drotg_ f2c_drotg
+#define _starpu_zrotg_ f2c_zrotg
+#define _starpu_srotmg_ f2c_srotmg
+#define _starpu_drotmg_ f2c_drotmg
+#define _starpu_srot_ f2c_srot
+#define _starpu_drot_ f2c_drot
+#define _starpu_srotm_ f2c_srotm
+#define _starpu_drotm_ f2c_drotm
+#define _starpu_sswap_ f2c_sswap
+#define _starpu_dswap_ f2c_dswap
+#define _starpu_cswap_ f2c_cswap
+#define _starpu_zswap_ f2c_zswap
+#define _starpu_sscal_ f2c_sscal
+#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_scopy_ f2c_scopy
+#define _starpu_dcopy_ f2c_dcopy
+#define _starpu_ccopy_ f2c_ccopy
+#define _starpu_zcopy_ f2c_zcopy
+#define _starpu_saxpy_ f2c_saxpy
+#define _starpu_daxpy_ f2c_daxpy
+#define _starpu_caxpy_ f2c_caxpy
+#define _starpu_zaxpy_ f2c_zaxpy
+#define _starpu_sdot_ f2c_sdot
+#define _starpu_ddot_ f2c_ddot
+#define _starpu_cdotu_ f2c_cdotu
+#define _starpu_zdotu_ f2c_zdotu
+#define _starpu_cdotc_ f2c_cdotc
+#define _starpu_zdotc_ f2c_zdotc
+#define _starpu_snrm2_ f2c_snrm2
+#define _starpu_dnrm2_ f2c_dnrm2
+#define _starpu_scnrm2_ f2c_scnrm2
+#define _starpu_dznrm2_ f2c_dznrm2
+#define _starpu_sasum_ f2c_sasum
+#define _starpu_dasum_ f2c_dasum
+#define _starpu_scasum_ f2c_scasum
+#define _starpu_dzasum_ f2c_dzasum
+#define _starpu_isamax_ f2c_isamax
+#define _starpu_idamax_ f2c_idamax
+#define _starpu_icamax_ f2c_icamax
+#define _starpu_izamax_ f2c_izamax
  
 /* BLAS2 routines */
-#define sgemv_ f2c_sgemv
-#define dgemv_ f2c_dgemv
-#define cgemv_ f2c_cgemv
-#define zgemv_ f2c_zgemv
-#define sgbmv_ f2c_sgbmv
-#define dgbmv_ f2c_dgbmv
-#define cgbmv_ f2c_cgbmv
-#define zgbmv_ f2c_zgbmv
-#define chemv_ f2c_chemv
-#define zhemv_ f2c_zhemv
-#define chbmv_ f2c_chbmv
-#define zhbmv_ f2c_zhbmv
-#define chpmv_ f2c_chpmv
-#define zhpmv_ f2c_zhpmv
-#define ssymv_ f2c_ssymv
-#define dsymv_ f2c_dsymv
-#define ssbmv_ f2c_ssbmv
-#define dsbmv_ f2c_dsbmv
-#define sspmv_ f2c_sspmv
-#define dspmv_ f2c_dspmv
-#define strmv_ f2c_strmv
-#define dtrmv_ f2c_dtrmv
-#define ctrmv_ f2c_ctrmv
-#define ztrmv_ f2c_ztrmv
-#define stbmv_ f2c_stbmv
-#define dtbmv_ f2c_dtbmv
-#define ctbmv_ f2c_ctbmv
-#define ztbmv_ f2c_ztbmv
-#define stpmv_ f2c_stpmv
-#define dtpmv_ f2c_dtpmv
-#define ctpmv_ f2c_ctpmv
-#define ztpmv_ f2c_ztpmv
-#define strsv_ f2c_strsv
-#define dtrsv_ f2c_dtrsv
-#define ctrsv_ f2c_ctrsv
-#define ztrsv_ f2c_ztrsv
-#define stbsv_ f2c_stbsv
-#define dtbsv_ f2c_dtbsv
-#define ctbsv_ f2c_ctbsv
-#define ztbsv_ f2c_ztbsv
-#define stpsv_ f2c_stpsv
-#define dtpsv_ f2c_dtpsv
-#define ctpsv_ f2c_ctpsv
-#define ztpsv_ f2c_ztpsv
-#define sger_ f2c_sger
-#define dger_ f2c_dger
-#define cgeru_ f2c_cgeru
-#define zgeru_ f2c_zgeru
-#define cgerc_ f2c_cgerc
-#define zgerc_ f2c_zgerc
-#define cher_ f2c_cher
-#define zher_ f2c_zher
-#define chpr_ f2c_chpr
-#define zhpr_ f2c_zhpr
-#define cher2_ f2c_cher2
-#define zher2_ f2c_zher2
-#define chpr2_ f2c_chpr2
-#define zhpr2_ f2c_zhpr2
-#define ssyr_ f2c_ssyr
-#define dsyr_ f2c_dsyr
-#define sspr_ f2c_sspr
-#define dspr_ f2c_dspr
-#define ssyr2_ f2c_ssyr2
-#define dsyr2_ f2c_dsyr2
-#define sspr2_ f2c_sspr2
-#define dspr2_ f2c_dspr2
+#define _starpu_sgemv_ f2c_sgemv
+#define _starpu_dgemv_ f2c_dgemv
+#define _starpu_cgemv_ f2c_cgemv
+#define _starpu_zgemv_ f2c_zgemv
+#define _starpu_sgbmv_ f2c_sgbmv
+#define _starpu_dgbmv_ f2c_dgbmv
+#define _starpu_cgbmv_ f2c_cgbmv
+#define _starpu_zgbmv_ f2c_zgbmv
+#define _starpu_chemv_ f2c_chemv
+#define _starpu_zhemv_ f2c_zhemv
+#define _starpu_chbmv_ f2c_chbmv
+#define _starpu_zhbmv_ f2c_zhbmv
+#define _starpu_chpmv_ f2c_chpmv
+#define _starpu_zhpmv_ f2c_zhpmv
+#define _starpu_ssymv_ f2c_ssymv
+#define _starpu_dsymv_ f2c_dsymv
+#define _starpu_ssbmv_ f2c_ssbmv
+#define _starpu_dsbmv_ f2c_dsbmv
+#define _starpu_sspmv_ f2c_sspmv
+#define _starpu_dspmv_ f2c_dspmv
+#define _starpu_strmv_ f2c_strmv
+#define _starpu_dtrmv_ f2c_dtrmv
+#define _starpu_ctrmv_ f2c_ctrmv
+#define _starpu_ztrmv_ f2c_ztrmv
+#define _starpu_stbmv_ f2c_stbmv
+#define _starpu_dtbmv_ f2c_dtbmv
+#define _starpu_ctbmv_ f2c_ctbmv
+#define _starpu_ztbmv_ f2c_ztbmv
+#define _starpu_stpmv_ f2c_stpmv
+#define _starpu_dtpmv_ f2c_dtpmv
+#define _starpu_ctpmv_ f2c_ctpmv
+#define _starpu_ztpmv_ f2c_ztpmv
+#define _starpu_strsv_ f2c_strsv
+#define _starpu_dtrsv_ f2c_dtrsv
+#define _starpu_ctrsv_ f2c_ctrsv
+#define _starpu_ztrsv_ f2c_ztrsv
+#define _starpu_stbsv_ f2c_stbsv
+#define _starpu_dtbsv_ f2c_dtbsv
+#define _starpu_ctbsv_ f2c_ctbsv
+#define _starpu_ztbsv_ f2c_ztbsv
+#define _starpu_stpsv_ f2c_stpsv
+#define _starpu_dtpsv_ f2c_dtpsv
+#define _starpu_ctpsv_ f2c_ctpsv
+#define _starpu_ztpsv_ f2c_ztpsv
+#define _starpu_sger_ f2c_sger
+#define _starpu_dger_ f2c_dger
+#define _starpu_cgeru_ f2c_cgeru
+#define _starpu_zgeru_ f2c_zgeru
+#define _starpu_cgerc_ f2c_cgerc
+#define _starpu_zgerc_ f2c_zgerc
+#define _starpu_cher_ f2c_cher
+#define _starpu_zher_ f2c_zher
+#define _starpu_chpr_ f2c_chpr
+#define _starpu_zhpr_ f2c_zhpr
+#define _starpu_cher2_ f2c_cher2
+#define _starpu_zher2_ f2c_zher2
+#define _starpu_chpr2_ f2c_chpr2
+#define _starpu_zhpr2_ f2c_zhpr2
+#define _starpu_ssyr_ f2c_ssyr
+#define _starpu_dsyr_ f2c_dsyr
+#define _starpu_sspr_ f2c_sspr
+#define _starpu_dspr_ f2c_dspr
+#define _starpu_ssyr2_ f2c_ssyr2
+#define _starpu_dsyr2_ f2c_dsyr2
+#define _starpu_sspr2_ f2c_sspr2
+#define _starpu_dspr2_ f2c_dspr2
  
 /* BLAS3 routines */
-#define sgemm_ f2c_sgemm
-#define dgemm_ f2c_dgemm
-#define cgemm_ f2c_cgemm
-#define zgemm_ f2c_zgemm
-#define ssymm_ f2c_ssymm
-#define dsymm_ f2c_dsymm
-#define csymm_ f2c_csymm
-#define zsymm_ f2c_zsymm
-#define chemm_ f2c_chemm
-#define zhemm_ f2c_zhemm
-#define ssyrk_ f2c_ssyrk
-#define dsyrk_ f2c_dsyrk
-#define csyrk_ f2c_csyrk
-#define zsyrk_ f2c_zsyrk
-#define cherk_ f2c_cherk
-#define zherk_ f2c_zherk
-#define ssyr2k_ f2c_ssyr2k
-#define dsyr2k_ f2c_dsyr2k
-#define csyr2k_ f2c_csyr2k
-#define zsyr2k_ f2c_zsyr2k
-#define cher2k_ f2c_cher2k
-#define zher2k_ f2c_zher2k
-#define strmm_ f2c_strmm
-#define dtrmm_ f2c_dtrmm
-#define ctrmm_ f2c_ctrmm
-#define ztrmm_ f2c_ztrmm
-#define strsm_ f2c_strsm
-#define dtrsm_ f2c_dtrsm
-#define ctrsm_ f2c_ctrsm
-#define ztrsm_ f2c_ztrsm
+#define _starpu_sgemm_ f2c_sgemm
+#define _starpu_dgemm_ f2c_dgemm
+#define _starpu_cgemm_ f2c_cgemm
+#define _starpu_zgemm_ f2c_zgemm
+#define _starpu_ssymm_ f2c_ssymm
+#define _starpu_dsymm_ f2c_dsymm
+#define _starpu_csymm_ f2c_csymm
+#define _starpu_zsymm_ f2c_zsymm
+#define _starpu_chemm_ f2c_chemm
+#define _starpu_zhemm_ f2c_zhemm
+#define _starpu_ssyrk_ f2c_ssyrk
+#define _starpu_dsyrk_ f2c_dsyrk
+#define _starpu_csyrk_ f2c_csyrk
+#define _starpu_zsyrk_ f2c_zsyrk
+#define _starpu_cherk_ f2c_cherk
+#define _starpu_zherk_ f2c_zherk
+#define _starpu_ssyr2k_ f2c_ssyr2k
+#define _starpu_dsyr2k_ f2c_dsyr2k
+#define _starpu_csyr2k_ f2c_csyr2k
+#define _starpu_zsyr2k_ f2c_zsyr2k
+#define _starpu_cher2k_ f2c_cher2k
+#define _starpu_zher2k_ f2c_zher2k
+#define _starpu_strmm_ f2c_strmm
+#define _starpu_dtrmm_ f2c_dtrmm
+#define _starpu_ctrmm_ f2c_ctrmm
+#define _starpu_ztrmm_ f2c_ztrmm
+#define _starpu_strsm_ f2c_strsm
+#define _starpu_dtrsm_ f2c_dtrsm
+#define _starpu_ctrsm_ f2c_ctrsm
+#define _starpu_ztrsm_ f2c_ztrsm
 
 #endif /* NO_BLAS_WRAP */
 

min-dgels/base/SRC/VARIANTS/cholesky/RL/dpotrf.c

@@ -20,7 +20,7 @@ static integer c_n1 = -1;
 static doublereal c_b17 = 1.;
 static doublereal c_b20 = -1.;
 
-/* Subroutine */ int dpotrf_(char *uplo, integer *n, doublereal *a, integer *
+/* Subroutine */ int _starpu_dpotrf_(char *uplo, integer *n, doublereal *a, integer *
 	lda, integer *info)
 {
     /* System generated locals */
@@ -28,17 +28,17 @@ static doublereal c_b20 = -1.;
 
     /* Local variables */
     integer j, jb, nb;
-    extern logical lsame_(char *, char *);
-    extern /* Subroutine */ int dtrsm_(char *, char *, char *, char *, 
+    extern logical _starpu_lsame_(char *, char *);
+    extern /* Subroutine */ int _starpu_dtrsm_(char *, char *, char *, char *, 
 	    integer *, integer *, doublereal *, doublereal *, integer *, 
 	    doublereal *, integer *);
     logical upper;
-    extern /* Subroutine */ int dsyrk_(char *, char *, integer *, integer *, 
+    extern /* Subroutine */ int _starpu_dsyrk_(char *, char *, integer *, integer *, 
 	    doublereal *, doublereal *, integer *, doublereal *, doublereal *, 
-	     integer *), dpotf2_(char *, integer *, 
-	    doublereal *, integer *, integer *), xerbla_(char *, 
+	     integer *), _starpu_dpotf2_(char *, integer *, 
+	    doublereal *, integer *, integer *), _starpu_xerbla_(char *, 
 	    integer *);
-    extern integer ilaenv_(integer *, char *, char *, integer *, integer *, 
+    extern integer _starpu_ilaenv_(integer *, char *, char *, integer *, integer *, 
 	    integer *, integer *);
 
 
@@ -119,8 +119,8 @@ static doublereal c_b20 = -1.;
 
     /* Function Body */
     *info = 0;
-    upper = lsame_(uplo, "U");
-    if (! upper && ! lsame_(uplo, "L")) {
+    upper = _starpu_lsame_(uplo, "U");
+    if (! upper && ! _starpu_lsame_(uplo, "L")) {
 	*info = -1;
     } else if (*n < 0) {
 	*info = -2;
@@ -129,7 +129,7 @@ static doublereal c_b20 = -1.;
     }
     if (*info != 0) {
 	i__1 = -(*info);
-	xerbla_("DPOTRF", &i__1);
+	_starpu_xerbla_("DPOTRF", &i__1);
 	return 0;
     }
 
@@ -141,12 +141,12 @@ static doublereal c_b20 = -1.;
 
 /*     Determine the block size for this environment. */
 
-    nb = ilaenv_(&c__1, "DPOTRF", uplo, n, &c_n1, &c_n1, &c_n1);
+    nb = _starpu_ilaenv_(&c__1, "DPOTRF", uplo, n, &c_n1, &c_n1, &c_n1);
     if (nb <= 1 || nb >= *n) {
 
 /*        Use unblocked code. */
 
-	dpotf2_(uplo, n, &a[a_offset], lda, info);
+	_starpu_dpotf2_(uplo, n, &a[a_offset], lda, info);
     } else {
 
 /*        Use blocked code. */
@@ -165,7 +165,7 @@ static doublereal c_b20 = -1.;
 /* Computing MIN */
 		i__3 = nb, i__4 = *n - j + 1;
 		jb = min(i__3,i__4);
-		dpotf2_("Upper", &jb, &a[j + j * a_dim1], lda, info);
+		_starpu_dpotf2_("Upper", &jb, &a[j + j * a_dim1], lda, info);
 		if (*info != 0) {
 		    goto L30;
 		}
@@ -174,11 +174,11 @@ static doublereal c_b20 = -1.;
 /*                 Updating the trailing submatrix. */
 
 		    i__3 = *n - j - jb + 1;
-		    dtrsm_("Left", "Upper", "Transpose", "Non-unit", &jb, &
+		    _starpu_dtrsm_("Left", "Upper", "Transpose", "Non-unit", &jb, &
 			    i__3, &c_b17, &a[j + j * a_dim1], lda, &a[j + (j 
 			    + jb) * a_dim1], lda);
 		    i__3 = *n - j - jb + 1;
-		    dsyrk_("Upper", "Transpose", &i__3, &jb, &c_b20, &a[j + (
+		    _starpu_dsyrk_("Upper", "Transpose", &i__3, &jb, &c_b20, &a[j + (
 			    j + jb) * a_dim1], lda, &c_b17, &a[j + jb + (j + 
 			    jb) * a_dim1], lda);
 		}
@@ -199,7 +199,7 @@ static doublereal c_b20 = -1.;
 /* Computing MIN */
 		i__3 = nb, i__4 = *n - j + 1;
 		jb = min(i__3,i__4);
-		dpotf2_("Lower", &jb, &a[j + j * a_dim1], lda, info);
+		_starpu_dpotf2_("Lower", &jb, &a[j + j * a_dim1], lda, info);
 		if (*info != 0) {
 		    goto L30;
 		}
@@ -208,11 +208,11 @@ static doublereal c_b20 = -1.;
 /*                Updating the trailing submatrix. */
 
 		    i__3 = *n - j - jb + 1;
-		    dtrsm_("Right", "Lower", "Transpose", "Non-unit", &i__3, &
+		    _starpu_dtrsm_("Right", "Lower", "Transpose", "Non-unit", &i__3, &
 			    jb, &c_b17, &a[j + j * a_dim1], lda, &a[j + jb + 
 			    j * a_dim1], lda);
 		    i__3 = *n - j - jb + 1;
-		    dsyrk_("Lower", "No Transpose", &i__3, &jb, &c_b20, &a[j 
+		    _starpu_dsyrk_("Lower", "No Transpose", &i__3, &jb, &c_b20, &a[j 
 			    + jb + j * a_dim1], lda, &c_b17, &a[j + jb + (j + 
 			    jb) * a_dim1], lda);
 		}
@@ -230,4 +230,4 @@ L40:
 
 /*     End of DPOTRF */
 
-} /* dpotrf_ */
+} /* _starpu_dpotrf_ */

min-dgels/base/SRC/VARIANTS/cholesky/TOP/dpotrf.c

@@ -20,7 +20,7 @@ static integer c_n1 = -1;
 static doublereal c_b15 = 1.;
 static doublereal c_b18 = -1.;
 
-/* Subroutine */ int dpotrf_(char *uplo, integer *n, doublereal *a, integer *
+/* Subroutine */ int _starpu_dpotrf_(char *uplo, integer *n, doublereal *a, integer *
 	lda, integer *info)
 {
     /* System generated locals */
@@ -28,17 +28,17 @@ static doublereal c_b18 = -1.;
 
     /* Local variables */
     integer j, jb, nb;
-    extern logical lsame_(char *, char *);
-    extern /* Subroutine */ int dtrsm_(char *, char *, char *, char *, 
+    extern logical _starpu_lsame_(char *, char *);
+    extern /* Subroutine */ int _starpu_dtrsm_(char *, char *, char *, char *, 
 	    integer *, integer *, doublereal *, doublereal *, integer *, 
 	    doublereal *, integer *);
     logical upper;
-    extern /* Subroutine */ int dsyrk_(char *, char *, integer *, integer *, 
+    extern /* Subroutine */ int _starpu_dsyrk_(char *, char *, integer *, integer *, 
 	    doublereal *, doublereal *, integer *, doublereal *, doublereal *, 
-	     integer *), dpotf2_(char *, integer *, 
-	    doublereal *, integer *, integer *), xerbla_(char *, 
+	     integer *), _starpu_dpotf2_(char *, integer *, 
+	    doublereal *, integer *, integer *), _starpu_xerbla_(char *, 
 	    integer *);
-    extern integer ilaenv_(integer *, char *, char *, integer *, integer *, 
+    extern integer _starpu_ilaenv_(integer *, char *, char *, integer *, integer *, 
 	    integer *, integer *);
 
 
@@ -119,8 +119,8 @@ static doublereal c_b18 = -1.;
 
     /* Function Body */
     *info = 0;
-    upper = lsame_(uplo, "U");
-    if (! upper && ! lsame_(uplo, "L")) {
+    upper = _starpu_lsame_(uplo, "U");
+    if (! upper && ! _starpu_lsame_(uplo, "L")) {
 	*info = -1;
     } else if (*n < 0) {
 	*info = -2;
@@ -129,7 +129,7 @@ static doublereal c_b18 = -1.;
     }
     if (*info != 0) {
 	i__1 = -(*info);
-	xerbla_("DPOTRF", &i__1);
+	_starpu_xerbla_("DPOTRF", &i__1);
 	return 0;
     }
 
@@ -141,12 +141,12 @@ static doublereal c_b18 = -1.;
 
 /*     Determine the block size for this environment. */
 
-    nb = ilaenv_(&c__1, "DPOTRF", uplo, n, &c_n1, &c_n1, &c_n1);
+    nb = _starpu_ilaenv_(&c__1, "DPOTRF", uplo, n, &c_n1, &c_n1, &c_n1);
     if (nb <= 1 || nb >= *n) {
 
 /*        Use unblocked code. */
 
-	dpotf2_(uplo, n, &a[a_offset], lda, info);
+	_starpu_dpotf2_(uplo, n, &a[a_offset], lda, info);
     } else {
 
 /*        Use blocked code. */
@@ -165,16 +165,16 @@ static doublereal c_b18 = -1.;
 /*              Compute the current block. */
 
 		i__3 = j - 1;
-		dtrsm_("Left", "Upper", "Transpose", "Non-unit", &i__3, &jb, &
+		_starpu_dtrsm_("Left", "Upper", "Transpose", "Non-unit", &i__3, &jb, &
 			c_b15, &a[a_dim1 + 1], lda, &a[j * a_dim1 + 1], lda);
 		i__3 = j - 1;
-		dsyrk_("Upper", "Transpose", &jb, &i__3, &c_b18, &a[j * 
+		_starpu_dsyrk_("Upper", "Transpose", &jb, &i__3, &c_b18, &a[j * 
 			a_dim1 + 1], lda, &c_b15, &a[j + j * a_dim1], lda);
 
 /*              Update and factorize the current diagonal block and test */
 /*              for non-positive-definiteness. */
 
-		dpotf2_("Upper", &jb, &a[j + j * a_dim1], lda, info);
+		_starpu_dpotf2_("Upper", &jb, &a[j + j * a_dim1], lda, info);
 		if (*info != 0) {
 		    goto L30;
 		}
@@ -195,16 +195,16 @@ static doublereal c_b18 = -1.;
 /*              Compute the current block. */
 
 		i__3 = j - 1;
-		dtrsm_("Right", "Lower", "Transpose", "Non-unit", &jb, &i__3, 
+		_starpu_dtrsm_("Right", "Lower", "Transpose", "Non-unit", &jb, &i__3, 
 			&c_b15, &a[a_dim1 + 1], lda, &a[j + a_dim1], lda);
 		i__3 = j - 1;
-		dsyrk_("Lower", "No Transpose", &jb, &i__3, &c_b18, &a[j + 
+		_starpu_dsyrk_("Lower", "No Transpose", &jb, &i__3, &c_b18, &a[j + 
 			a_dim1], lda, &c_b15, &a[j + j * a_dim1], lda);
 
 /*              Update and factorize the current diagonal block and test */
 /*              for non-positive-definiteness. */
 
-		dpotf2_("Lower", &jb, &a[j + j * a_dim1], lda, info);
+		_starpu_dpotf2_("Lower", &jb, &a[j + j * a_dim1], lda, info);
 		if (*info != 0) {
 		    goto L30;
 		}
@@ -222,4 +222,4 @@ L40:
 
 /*     End of DPOTRF */
 
-} /* dpotrf_ */
+} /* _starpu_dpotrf_ */

min-dgels/base/SRC/VARIANTS/lu/CR/dgetrf.c

@@ -20,7 +20,7 @@ static integer c_n1 = -1;
 static doublereal c_b11 = -1.;
 static doublereal c_b12 = 1.;
 
-/* Subroutine */ int dgetrf_(integer *m, integer *n, doublereal *a, integer *
+/* Subroutine */ int _starpu_dgetrf_(integer *m, integer *n, doublereal *a, integer *
 	lda, integer *ipiv, integer *info)
 {
     /* System generated locals */
@@ -28,18 +28,18 @@ static doublereal c_b12 = 1.;
 
     /* Local variables */
     integer i__, j, jb, nb;
-    extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, 
+    extern /* Subroutine */ int _starpu_dgemm_(char *, char *, integer *, integer *, 
 	    integer *, doublereal *, doublereal *, integer *, doublereal *, 
 	    integer *, doublereal *, doublereal *, integer *);
     integer iinfo;
-    extern /* Subroutine */ int dtrsm_(char *, char *, char *, char *, 
+    extern /* Subroutine */ int _starpu_dtrsm_(char *, char *, char *, char *, 
 	    integer *, integer *, doublereal *, doublereal *, integer *, 
-	    doublereal *, integer *), dgetf2_(
+	    doublereal *, integer *), _starpu_dgetf2_(
 	    integer *, integer *, doublereal *, integer *, integer *, integer 
-	    *), xerbla_(char *, integer *);
-    extern integer ilaenv_(integer *, char *, char *, integer *, integer *, 
+	    *), _starpu_xerbla_(char *, integer *);
+    extern integer _starpu_ilaenv_(integer *, char *, char *, integer *, integer *, 
 	    integer *, integer *);
-    extern /* Subroutine */ int dlaswp_(integer *, doublereal *, integer *, 
+    extern /* Subroutine */ int _starpu_dlaswp_(integer *, doublereal *, integer *, 
 	    integer *, integer *, integer *, integer *);
 
 
@@ -128,7 +128,7 @@ static doublereal c_b12 = 1.;
     }
     if (*info != 0) {
 	i__1 = -(*info);
-	xerbla_("DGETRF", &i__1);
+	_starpu_xerbla_("DGETRF", &i__1);
 	return 0;
     }
 
@@ -140,12 +140,12 @@ static doublereal c_b12 = 1.;
 
 /*     Determine the block size for this environment. */
 
-    nb = ilaenv_(&c__1, "DGETRF", " ", m, n, &c_n1, &c_n1);
+    nb = _starpu_ilaenv_(&c__1, "DGETRF", " ", m, n, &c_n1, &c_n1);
     if (nb <= 1 || nb >= min(*m,*n)) {
 
 /*        Use unblocked code. */
 
-	dgetf2_(m, n, &a[a_offset], lda, &ipiv[1], info);
+	_starpu_dgetf2_(m, n, &a[a_offset], lda, &ipiv[1], info);
     } else {
 
 /*        Use blocked code. */
@@ -161,7 +161,7 @@ static doublereal c_b12 = 1.;
 
 	    i__3 = *m - j + 1;
 	    i__4 = j - 1;
-	    dgemm_("No transpose", "No transpose", &i__3, &jb, &i__4, &c_b11, 
+	    _starpu_dgemm_("No transpose", "No transpose", &i__3, &jb, &i__4, &c_b11, 
 		    &a[j + a_dim1], lda, &a[j * a_dim1 + 1], lda, &c_b12, &a[
 		    j + j * a_dim1], lda);
 
@@ -169,7 +169,7 @@ static doublereal c_b12 = 1.;
 /*           singularity. */
 
 	    i__3 = *m - j + 1;
-	    dgetf2_(&i__3, &jb, &a[j + j * a_dim1], lda, &ipiv[j], &iinfo);
+	    _starpu_dgetf2_(&i__3, &jb, &a[j + j * a_dim1], lda, &ipiv[j], &iinfo);
 
 /*           Adjust INFO and the pivot indices. */
 
@@ -188,7 +188,7 @@ static doublereal c_b12 = 1.;
 
 	    i__3 = j - 1;
 	    i__4 = j + jb - 1;
-	    dlaswp_(&i__3, &a[a_offset], lda, &j, &i__4, &ipiv[1], &c__1);
+	    _starpu_dlaswp_(&i__3, &a[a_offset], lda, &j, &i__4, &ipiv[1], &c__1);
 
 	    if (j + jb <= *n) {
 
@@ -196,19 +196,19 @@ static doublereal c_b12 = 1.;
 
 		i__3 = *n - j - jb + 1;
 		i__4 = j + jb - 1;
-		dlaswp_(&i__3, &a[(j + jb) * a_dim1 + 1], lda, &j, &i__4, &
+		_starpu_dlaswp_(&i__3, &a[(j + jb) * a_dim1 + 1], lda, &j, &i__4, &
 			ipiv[1], &c__1);
 
 		i__3 = *n - j - jb + 1;
 		i__4 = j - 1;
-		dgemm_("No transpose", "No transpose", &jb, &i__3, &i__4, &
+		_starpu_dgemm_("No transpose", "No transpose", &jb, &i__3, &i__4, &
 			c_b11, &a[j + a_dim1], lda, &a[(j + jb) * a_dim1 + 1], 
 			 lda, &c_b12, &a[j + (j + jb) * a_dim1], lda);
 
 /*              Compute block row of U. */
 
 		i__3 = *n - j - jb + 1;
-		dtrsm_("Left", "Lower", "No transpose", "Unit", &jb, &i__3, &
+		_starpu_dtrsm_("Left", "Lower", "No transpose", "Unit", &jb, &i__3, &
 			c_b12, &a[j + j * a_dim1], lda, &a[j + (j + jb) * 
 			a_dim1], lda);
 	    }
@@ -219,4 +219,4 @@ static doublereal c_b12 = 1.;
 
 /*     End of DGETRF */
 
-} /* dgetrf_ */
+} /* _starpu_dgetrf_ */

min-dgels/base/SRC/VARIANTS/lu/LL/dgetrf.c

@@ -20,7 +20,7 @@ static integer c_n1 = -1;
 static doublereal c_b15 = 1.;
 static doublereal c_b18 = -1.;
 
-/* Subroutine */ int dgetrf_(integer *m, integer *n, doublereal *a, integer *
+/* Subroutine */ int _starpu_dgetrf_(integer *m, integer *n, doublereal *a, integer *
 	lda, integer *ipiv, integer *info)
 {
     /* System generated locals */
@@ -28,18 +28,18 @@ static doublereal c_b18 = -1.;
 
     /* Local variables */
     integer i__, j, k, jb, nb;
-    extern /* Subroutine */ int dgemm_(char *, char *, integer *, integer *, 
+    extern /* Subroutine */ int _starpu_dgemm_(char *, char *, integer *, integer *, 
 	    integer *, doublereal *, doublereal *, integer *, doublereal *, 
 	    integer *, doublereal *, doublereal *, integer *);
     integer iinfo;
-    extern /* Subroutine */ int dtrsm_(char *, char *, char *, char *, 
+    extern /* Subroutine */ int _starpu_dtrsm_(char *, char *, char *, char *, 
 	    integer *, integer *, doublereal *, doublereal *, integer *, 
-	    doublereal *, integer *), dgetf2_(
+	    doublereal *, integer *), _starpu_dgetf2_(
 	    integer *, integer *, doublereal *, integer *, integer *, integer 
-	    *), xerbla_(char *, integer *);
-    extern integer ilaenv_(integer *, char *, char *, integer *, integer *, 
+	    *), _starpu_xerbla_(char *, integer *);
+    extern integer _starpu_ilaenv_(integer *, char *, char *, integer *, integer *, 
 	    integer *, integer *);
-    extern /* Subroutine */ int dlaswp_(integer *, doublereal *, integer *, 
+    extern /* Subroutine */ int _starpu_dlaswp_(integer *, doublereal *, integer *, 
 	    integer *, integer *, integer *, integer *);
 
 
@@ -128,7 +128,7 @@ static doublereal c_b18 = -1.;
     }
     if (*info != 0) {
 	i__1 = -(*info);
-	xerbla_("DGETRF", &i__1);
+	_starpu_xerbla_("DGETRF", &i__1);
 	return 0;
     }
 
@@ -140,12 +140,12 @@ static doublereal c_b18 = -1.;
 
 /*     Determine the block size for this environment. */
 
-    nb = ilaenv_(&c__1, "DGETRF", " ", m, n, &c_n1, &c_n1);
+    nb = _starpu_ilaenv_(&c__1, "DGETRF", " ", m, n, &c_n1, &c_n1);
     if (nb <= 1 || nb >= min(*m,*n)) {
 
 /*        Use unblocked code. */
 
-	dgetf2_(m, n, &a[a_offset], lda, &ipiv[1], info);
+	_starpu_dgetf2_(m, n, &a[a_offset], lda, &ipiv[1], info);
     } else {
 
 /*        Use blocked code. */
@@ -166,19 +166,19 @@ static doublereal c_b18 = -1.;
 /*              Apply interchanges to rows K:K+NB-1. */
 
 		i__5 = k + nb - 1;
-		dlaswp_(&jb, &a[j * a_dim1 + 1], lda, &k, &i__5, &ipiv[1], &
+		_starpu_dlaswp_(&jb, &a[j * a_dim1 + 1], lda, &k, &i__5, &ipiv[1], &
 			c__1);
 
 /*              Compute block row of U. */
 
-		dtrsm_("Left", "Lower", "No transpose", "Unit", &nb, &jb, &
+		_starpu_dtrsm_("Left", "Lower", "No transpose", "Unit", &nb, &jb, &
 			c_b15, &a[k + k * a_dim1], lda, &a[k + j * a_dim1], 
 			lda);
 
 /*              Update trailing submatrix. */
 
 		i__5 = *m - k - nb + 1;
-		dgemm_("No transpose", "No transpose", &i__5, &jb, &nb, &
+		_starpu_dgemm_("No transpose", "No transpose", &i__5, &jb, &nb, &
 			c_b18, &a[k + nb + k * a_dim1], lda, &a[k + j * 
 			a_dim1], lda, &c_b15, &a[k + nb + j * a_dim1], lda);
 /* L30: */
@@ -188,7 +188,7 @@ static doublereal c_b18 = -1.;
 /*           singularity. */
 
 	    i__4 = *m - j + 1;
-	    dgetf2_(&i__4, &jb, &a[j + j * a_dim1], lda, &ipiv[j], &iinfo);
+	    _starpu_dgetf2_(&i__4, &jb, &a[j + j * a_dim1], lda, &ipiv[j], &iinfo);
 
 /*           Adjust INFO and the pivot indices. */
 
@@ -215,7 +215,7 @@ static doublereal c_b18 = -1.;
 /* Computing MIN */
 	    i__5 = k + nb - 1, i__6 = min(*m,*n);
 	    i__3 = min(i__5,i__6);
-	    dlaswp_(&i__4, &a[a_dim1 + 1], lda, &k, &i__3, &ipiv[1], &c__1);
+	    _starpu_dlaswp_(&i__4, &a[a_dim1 + 1], lda, &k, &i__3, &ipiv[1], &c__1);
 /* L40: */
 	}
 
@@ -223,7 +223,7 @@ static doublereal c_b18 = -1.;
 
 	if (*n > *m) {
 	    i__1 = *n - *m;
-	    dlaswp_(&i__1, &a[(*m + 1) * a_dim1 + 1], lda, &c__1, m, &ipiv[1], 
+	    _starpu_dlaswp_(&i__1, &a[(*m + 1) * a_dim1 + 1], lda, &c__1, m, &ipiv[1], 
 		     &c__1);
 	    i__1 = *m;
 	    i__2 = nb;
@@ -233,14 +233,14 @@ static doublereal c_b18 = -1.;
 		jb = min(i__4,nb);
 
 		i__4 = *n - *m;
-		dtrsm_("Left", "Lower", "No transpose", "Unit", &jb, &i__4, &
+		_starpu_dtrsm_("Left", "Lower", "No transpose", "Unit", &jb, &i__4, &
 			c_b15, &a[k + k * a_dim1], lda, &a[k + (*m + 1) * 
 			a_dim1], lda);
 
 		if (k + nb <= *m) {
 		    i__4 = *m - k - nb + 1;
 		    i__3 = *n - *m;
-		    dgemm_("No transpose", "No transpose", &i__4, &i__3, &nb, 
+		    _starpu_dgemm_("No transpose", "No transpose", &i__4, &i__3, &nb, 
 			    &c_b18, &a[k + nb + k * a_dim1], lda, &a[k + (*m 
 			    + 1) * a_dim1], lda, &c_b15, &a[k + nb + (*m + 1) 
 			    * a_dim1], lda);
@@ -254,4 +254,4 @@ static doublereal c_b18 = -1.;
 
 /*     End of DGETRF */
 
-} /* dgetrf_ */
+} /* _starpu_dgetrf_ */

min-dgels/base/SRC/VARIANTS/lu/REC/dgetrf.c

@@ -19,7 +19,7 @@ static integer c__1 = 1;
 static doublereal c_b12 = 1.;
 static doublereal c_b15 = -1.;
 
-/* Subroutine */ int dgetrf_(integer *m, integer *n, doublereal *a, integer *
+/* Subroutine */ int _starpu_dgetrf_(integer *m, integer *n, doublereal *a, integer *
 	lda, integer *ipiv, integer *info)
 {
     /* System generated locals */
@@ -29,23 +29,23 @@ static doublereal c_b15 = -1.;
     /* Local variables */
     integer i__, j, ipivstart, jpivstart, jp;
     doublereal tmp;
-    extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, 
-	    integer *), dgemm_(char *, char *, integer *, integer *, integer *
+    extern /* Subroutine */ int _starpu_dscal_(integer *, doublereal *, doublereal *, 
+	    integer *), _starpu_dgemm_(char *, char *, integer *, integer *, integer *
 , doublereal *, doublereal *, integer *, doublereal *, integer *, 
 	    doublereal *, doublereal *, integer *);
     integer kcols;
     doublereal sfmin;
     integer nstep;
-    extern /* Subroutine */ int dtrsm_(char *, char *, char *, char *, 
+    extern /* Subroutine */ int _starpu_dtrsm_(char *, char *, char *, char *, 
 	    integer *, integer *, doublereal *, doublereal *, integer *, 
 	    doublereal *, integer *);
     integer kahead;
-    extern doublereal dlamch_(char *);
-    extern integer idamax_(integer *, doublereal *, integer *);
-    extern logical disnan_(doublereal *);
-    extern /* Subroutine */ int xerbla_(char *, integer *);
+    extern doublereal _starpu_dlamch_(char *);
+    extern integer _starpu_idamax_(integer *, doublereal *, integer *);
+    extern logical _starpu_disnan_(doublereal *);
+    extern /* Subroutine */ int _starpu_xerbla_(char *, integer *);
     integer npived;
-    extern /* Subroutine */ int dlaswp_(integer *, doublereal *, integer *, 
+    extern /* Subroutine */ int _starpu_dlaswp_(integer *, doublereal *, integer *, 
 	    integer *, integer *, integer *, integer *);
     integer kstart, ntopiv;
 
@@ -169,7 +169,7 @@ static doublereal c_b15 = -1.;
     }
     if (*info != 0) {
 	i__1 = -(*info);
-	xerbla_("DGETRF", &i__1);
+	_starpu_xerbla_("DGETRF", &i__1);
 	return 0;
     }
 
@@ -181,7 +181,7 @@ static doublereal c_b15 = -1.;
 
 /*     Compute machine safe minimum */
 
-    sfmin = dlamch_("S");
+    sfmin = _starpu_dlamch_("S");
 
     nstep = min(*m,*n);
     i__1 = nstep;
@@ -195,7 +195,7 @@ static doublereal c_b15 = -1.;
 /*        Find pivot. */
 
 	i__2 = *m - j + 1;
-	jp = j - 1 + idamax_(&i__2, &a[j + j * a_dim1], &c__1);
+	jp = j - 1 + _starpu_idamax_(&i__2, &a[j + j * a_dim1], &c__1);
 	ipiv[j] = jp;
 /*        Permute just this column. */
 	if (jp != j) {
@@ -208,21 +208,21 @@ static doublereal c_b15 = -1.;
 	ipivstart = j;
 	jpivstart = j - ntopiv;
 	while(ntopiv < kahead) {
-	    dlaswp_(&ntopiv, &a[jpivstart * a_dim1 + 1], lda, &ipivstart, &j, 
+	    _starpu_dlaswp_(&ntopiv, &a[jpivstart * a_dim1 + 1], lda, &ipivstart, &j, 
 		    &ipiv[1], &c__1);
 	    ipivstart -= ntopiv;
 	    ntopiv <<= 1;
 	    jpivstart -= ntopiv;
 	}
 /*        Permute U block to match L */
-	dlaswp_(&kcols, &a[(j + 1) * a_dim1 + 1], lda, &kstart, &j, &ipiv[1], 
+	_starpu_dlaswp_(&kcols, &a[(j + 1) * a_dim1 + 1], lda, &kstart, &j, &ipiv[1], 
 		&c__1);
 /*        Factor the current column */
-	if (a[j + j * a_dim1] != 0. && ! disnan_(&a[j + j * a_dim1])) {
+	if (a[j + j * a_dim1] != 0. && ! _starpu_disnan_(&a[j + j * a_dim1])) {
 	    if ((d__1 = a[j + j * a_dim1], abs(d__1)) >= sfmin) {
 		i__2 = *m - j;
 		d__1 = 1. / a[j + j * a_dim1];
-		dscal_(&i__2, &d__1, &a[j + 1 + j * a_dim1], &c__1);
+		_starpu_dscal_(&i__2, &d__1, &a[j + 1 + j * a_dim1], &c__1);
 	    } else {
 		i__2 = *m - j;
 		for (i__ = 1; i__ <= i__2; ++i__) {
@@ -233,12 +233,12 @@ static doublereal c_b15 = -1.;
 	    *info = j;
 	}
 /*        Solve for U block. */
-	dtrsm_("Left", "Lower", "No transpose", "Unit", &kahead, &kcols, &
+	_starpu_dtrsm_("Left", "Lower", "No transpose", "Unit", &kahead, &kcols, &
 		c_b12, &a[kstart + kstart * a_dim1], lda, &a[kstart + (j + 1) 
 		* a_dim1], lda);
 /*        Schur complement. */
 	i__2 = *m - j;
-	dgemm_("No transpose", "No transpose", &i__2, &kcols, &kahead, &c_b15, 
+	_starpu_dgemm_("No transpose", "No transpose", &i__2, &kcols, &kahead, &c_b15, 
 		 &a[j + 1 + kstart * a_dim1], lda, &a[kstart + (j + 1) * 
 		a_dim1], lda, &c_b12, &a[j + 1 + (j + 1) * a_dim1], lda);
     }
@@ -248,21 +248,21 @@ static doublereal c_b15 = -1.;
     while(j > 0) {
 	ntopiv = j & -j;
 	i__1 = j + 1;
-	dlaswp_(&ntopiv, &a[(j - ntopiv + 1) * a_dim1 + 1], lda, &i__1, &
+	_starpu_dlaswp_(&ntopiv, &a[(j - ntopiv + 1) * a_dim1 + 1], lda, &i__1, &
 		nstep, &ipiv[1], &c__1);
 	j -= ntopiv;
     }
 /*     If short and wide, handle the rest of the columns. */
     if (*m < *n) {
 	i__1 = *n - *m;
-	dlaswp_(&i__1, &a[(*m + kcols + 1) * a_dim1 + 1], lda, &c__1, m, &
+	_starpu_dlaswp_(&i__1, &a[(*m + kcols + 1) * a_dim1 + 1], lda, &c__1, m, &
 		ipiv[1], &c__1);
 	i__1 = *n - *m;
-	dtrsm_("Left", "Lower", "No transpose", "Unit", m, &i__1, &c_b12, &a[
+	_starpu_dtrsm_("Left", "Lower", "No transpose", "Unit", m, &i__1, &c_b12, &a[
 		a_offset], lda, &a[(*m + kcols + 1) * a_dim1 + 1], lda);
     }
     return 0;
 
 /*     End of DGETRF */
 
-} /* dgetrf_ */
+} /* _starpu_dgetrf_ */