aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat (limited to 'sci-libs/magma/files/magma-1.2.1-duplicate-symbols.patch')
-rw-r--r--sci-libs/magma/files/magma-1.2.1-duplicate-symbols.patch612
1 files changed, 0 insertions, 612 deletions
diff --git a/sci-libs/magma/files/magma-1.2.1-duplicate-symbols.patch b/sci-libs/magma/files/magma-1.2.1-duplicate-symbols.patch
deleted file mode 100644
index 8fd2d0dde..000000000
--- a/sci-libs/magma/files/magma-1.2.1-duplicate-symbols.patch
+++ /dev/null
@@ -1,612 +0,0 @@
-diff -Nur magma-1.2.1.orig/src/cheevx_gpu.cpp magma-1.2.1/src/cheevx_gpu.cpp
---- magma-1.2.1.orig/src/cheevx_gpu.cpp 2012-07-03 11:59:28.923659921 -0700
-+++ magma-1.2.1/src/cheevx_gpu.cpp 2012-07-03 11:59:45.428746349 -0700
-@@ -12,27 +12,6 @@
- */
- #include "common_magma.h"
-
--/* These interfaces are used for TAU profiling */
--extern"C"{
-- void Mylapackf77_cstein(magma_int_t *n, float *d, float *e, magma_int_t *m,
-- float *w, magma_int_t *iblock, magma_int_t *isplit,
-- cuFloatComplex *z, magma_int_t *ldz, float *work,
-- magma_int_t *iwork, magma_int_t *ifail, magma_int_t *info)
-- {
-- lapackf77_cstein(n, d, e, m, w, iblock, isplit, z, ldz, work, iwork, ifail, info);
-- }
--
-- void Mylapackf77_sstebz(char *range, char *order, magma_int_t *n, float *vl,
-- float *vu, magma_int_t *il, magma_int_t *iu, float *abstol,
-- float *d, float *e, magma_int_t *m, magma_int_t *nsplit,
-- float *w, magma_int_t *iblock, magma_int_t *isplit,
-- float *work, magma_int_t *iwork, magma_int_t *info)
-- {
-- lapackf77_sstebz(range, order, n, vl, vu, il, iu, abstol,
-- d, e, m, nsplit, w, iblock, isplit, work, iwork,info);
-- }
--}
--
- extern "C" magma_int_t
- magma_cheevx_gpu(char jobz, char range, char uplo, magma_int_t n,
- cuFloatComplex *da, magma_int_t ldda, float vl, float vu,
-@@ -404,12 +383,12 @@
- indisp = indibl + n;
- indiwk = indisp + n;
-
-- Mylapackf77_sstebz(range_, order, &n, &vl, &vu, &il, &iu, &abstol, &rwork[indd], &rwork[inde], m,
-+ lapackf77_sstebz(range_, order, &n, &vl, &vu, &il, &iu, &abstol, &rwork[indd], &rwork[inde], m,
- &nsplit, &w[1], &iwork[indibl], &iwork[indisp], &rwork[indrwk], &iwork[indiwk], info);
-
- if (wantz) {
-
-- Mylapackf77_cstein(&n, &rwork[indd], &rwork[inde], m, &w[1], &iwork[indibl], &iwork[indisp],
-+ lapackf77_cstein(&n, &rwork[indd], &rwork[inde], m, &w[1], &iwork[indibl], &iwork[indisp],
- wz, &ldwz, &rwork[indrwk], &iwork[indiwk], &ifail[1], info);
-
- magma_csetmatrix( n, *m, wz, ldwz, dz, lddz );
-diff -Nur magma-1.2.1.orig/src/chegvd.cpp magma-1.2.1/src/chegvd.cpp
---- magma-1.2.1.orig/src/chegvd.cpp 2012-07-03 11:59:28.932659966 -0700
-+++ magma-1.2.1/src/chegvd.cpp 2012-07-03 11:59:45.428746349 -0700
-@@ -13,26 +13,6 @@
- */
- #include "common_magma.h"
-
--/* This ctrmm interface is used for TAU profiling */
--void Mymagma_ctrmm(char side, char uplo, char trans, char unit,
-- magma_int_t n, magma_int_t m,
-- cuFloatComplex alpha, cuFloatComplex *db, magma_int_t lddb,
-- cuFloatComplex *dz, magma_int_t lddz)
--{
-- magma_ctrmm(side, uplo, trans, unit, n, m, alpha, db, lddb, dz, lddz);
-- magma_device_sync();
--}
--
--/* This ctrsm interface is used for TAU profiling */
--void Mymagma_ctrsm(char side, char uplo, char trans, char unit,
-- magma_int_t n, magma_int_t m,
-- cuFloatComplex alpha, cuFloatComplex *db, magma_int_t lddb,
-- cuFloatComplex *dz, magma_int_t lddz)
--{
-- magma_ctrsm(side, uplo, trans, unit, n, m, alpha, db, lddb, dz, lddz);
-- magma_device_sync();
--}
--
- extern "C" magma_int_t
- magma_chegvd(magma_int_t itype, char jobz, char uplo, magma_int_t n,
- cuFloatComplex *a, magma_int_t lda, cuFloatComplex *b, magma_int_t ldb,
-@@ -324,7 +304,7 @@
- *(unsigned char *)trans = MagmaNoTrans;
- }
-
-- Mymagma_ctrsm(MagmaLeft, uplo_[0], *trans, MagmaNonUnit,
-+ magma_ctrsm(MagmaLeft, uplo_[0], *trans, MagmaNonUnit,
- n, n, c_one, db, lddb, da, ldda);
-
- } else if (itype == 3)
-@@ -337,7 +317,7 @@
- *(unsigned char *)trans = MagmaConjTrans;
- }
-
-- Mymagma_ctrmm(MagmaLeft, uplo_[0], *trans, MagmaNonUnit,
-+ magma_ctrmm(MagmaLeft, uplo_[0], *trans, MagmaNonUnit,
- n, n, c_one, db, lddb, da, ldda);
- }
-
-diff -Nur magma-1.2.1.orig/src/chegvdx.cpp magma-1.2.1/src/chegvdx.cpp
---- magma-1.2.1.orig/src/chegvdx.cpp 2012-07-03 11:59:28.921659909 -0700
-+++ magma-1.2.1/src/chegvdx.cpp 2012-07-03 11:59:45.428746349 -0700
-@@ -12,22 +12,6 @@
- */
- #include "common_magma.h"
-
--void Mymagma_ctrmm(char side, char uplo, char trans, char unit, magma_int_t n, magma_int_t m,
-- cuFloatComplex alpha, cuFloatComplex *db, magma_int_t lddb,
-- cuFloatComplex *dz, magma_int_t lddz)
--{
-- magma_ctrmm(side, uplo, trans, unit, n, m, alpha, db, lddb, dz, lddz);
-- magma_device_sync();
--}
--
--void Mymagma_ctrsm(char side, char uplo, char trans, char unit, magma_int_t n, magma_int_t m,
-- cuFloatComplex alpha, cuFloatComplex *db, magma_int_t lddb,
-- cuFloatComplex *dz, magma_int_t lddz)
--{
-- magma_ctrsm(side, uplo, trans, unit, n, m, alpha, db, lddb, dz, lddz);
-- magma_device_sync();
--}
--
- extern "C" magma_int_t
- magma_chegvdx(magma_int_t itype, char jobz, char range, char uplo, magma_int_t n,
- cuFloatComplex *a, magma_int_t lda, cuFloatComplex *b, magma_int_t ldb,
-@@ -363,7 +347,7 @@
- *(unsigned char *)trans = MagmaNoTrans;
- }
-
-- Mymagma_ctrsm(MagmaLeft, uplo, *trans, MagmaNonUnit, n, *m, c_one, db, lddb, da, ldda);
-+ magma_ctrsm(MagmaLeft, uplo, *trans, MagmaNonUnit, n, *m, c_one, db, lddb, da, ldda);
-
- } else if (itype == 3) {
-
-@@ -375,7 +359,7 @@
- *(unsigned char *)trans = MagmaConjTrans;
- }
-
-- Mymagma_ctrmm(MagmaLeft, uplo, *trans, MagmaNonUnit, n, *m, c_one, db, lddb, da, ldda);
-+ magma_ctrmm(MagmaLeft, uplo, *trans, MagmaNonUnit, n, *m, c_one, db, lddb, da, ldda);
-
- }
-
-diff -Nur magma-1.2.1.orig/src/chegvr.cpp magma-1.2.1/src/chegvr.cpp
---- magma-1.2.1.orig/src/chegvr.cpp 2012-07-03 11:59:28.932659966 -0700
-+++ magma-1.2.1/src/chegvr.cpp 2012-07-03 11:59:45.429746354 -0700
-@@ -12,24 +12,6 @@
- */
- #include "common_magma.h"
-
--void Mymagma_ctrmm(char side, char uplo, char trans, char unit,
-- magma_int_t n, magma_int_t m,
-- cuFloatComplex alpha, cuFloatComplex *db, magma_int_t lddb,
-- cuFloatComplex *dz, magma_int_t lddz)
--{
-- magma_ctrmm(side, uplo, trans, unit, n, m, alpha, db, lddb, dz, lddz);
-- magma_device_sync();
--}
--
--void Mymagma_ctrsm(char side, char uplo, char trans, char unit,
-- magma_int_t n, magma_int_t m,
-- cuFloatComplex alpha, cuFloatComplex *db, magma_int_t lddb,
-- cuFloatComplex *dz, magma_int_t lddz)
--{
-- magma_ctrsm(side, uplo, trans, unit, n, m, alpha, db, lddb, dz, lddz);
-- magma_device_sync();
--}
--
- extern "C" magma_int_t
- magma_chegvr(magma_int_t itype, char jobz, char range, char uplo, magma_int_t n,
- cuFloatComplex *a, magma_int_t lda, cuFloatComplex *b, magma_int_t ldb,
-@@ -408,7 +390,7 @@
- *(unsigned char *)trans = MagmaNoTrans;
- }
-
-- Mymagma_ctrsm(MagmaLeft, uplo, *trans, MagmaNonUnit, n, *m, c_one,
-+ magma_ctrsm(MagmaLeft, uplo, *trans, MagmaNonUnit, n, *m, c_one,
- db, lddb, dz, lddz);
-
- } else if (itype == 3) {
-@@ -421,7 +403,7 @@
- *(unsigned char *)trans = MagmaConjTrans;
- }
-
-- Mymagma_ctrmm(MagmaLeft, uplo, *trans, MagmaNonUnit, n, *m, c_one,
-+ magma_ctrmm(MagmaLeft, uplo, *trans, MagmaNonUnit, n, *m, c_one,
- db, lddb, dz, lddz);
- }
-
-diff -Nur magma-1.2.1.orig/src/chegvx.cpp magma-1.2.1/src/chegvx.cpp
---- magma-1.2.1.orig/src/chegvx.cpp 2012-07-03 11:59:28.923659921 -0700
-+++ magma-1.2.1/src/chegvx.cpp 2012-07-03 11:59:45.429746354 -0700
-@@ -12,22 +12,6 @@
- */
- #include "common_magma.h"
-
--void Mymagma_ctrmm(char side, char uplo, char trans, char unit, magma_int_t n, magma_int_t m,
-- cuFloatComplex alpha, cuFloatComplex *db, magma_int_t lddb,
-- cuFloatComplex *dz, magma_int_t lddz)
--{
-- magma_ctrmm(side, uplo, trans, unit, n, m, alpha, db, lddb, dz, lddz);
-- magma_device_sync();
--}
--
--void Mymagma_ctrsm(char side, char uplo, char trans, char unit, magma_int_t n, magma_int_t m,
-- cuFloatComplex alpha, cuFloatComplex *db, magma_int_t lddb,
-- cuFloatComplex *dz, magma_int_t lddz)
--{
-- magma_ctrsm(side, uplo, trans, unit, n, m, alpha, db, lddb, dz, lddz);
-- magma_device_sync();
--}
--
- extern "C" magma_int_t
- magma_chegvx(magma_int_t itype, char jobz, char range, char uplo, magma_int_t n,
- cuFloatComplex *a, magma_int_t lda, cuFloatComplex *b, magma_int_t ldb,
-@@ -330,7 +314,7 @@
- *(unsigned char *)trans = MagmaNoTrans;
- }
-
-- Mymagma_ctrsm(MagmaLeft, uplo, *trans, MagmaNonUnit, n, *m, c_one, db, lddb, dz, lddz);
-+ magma_ctrsm(MagmaLeft, uplo, *trans, MagmaNonUnit, n, *m, c_one, db, lddb, dz, lddz);
-
- } else if (itype == 3) {
-
-@@ -343,7 +327,7 @@
- *(unsigned char *)trans = MagmaConjTrans;
- }
-
-- Mymagma_ctrmm(MagmaLeft, uplo, *trans, MagmaNonUnit, n, *m, c_one, db, lddb, dz, lddz);
-+ magma_ctrmm(MagmaLeft, uplo, *trans, MagmaNonUnit, n, *m, c_one, db, lddb, dz, lddz);
-
- }
-
-diff -Nur magma-1.2.1.orig/src/cstedx_m.cpp magma-1.2.1/src/cstedx_m.cpp
---- magma-1.2.1.orig/src/cstedx_m.cpp 2012-07-03 11:59:28.921659909 -0700
-+++ magma-1.2.1/src/cstedx_m.cpp 2012-07-03 11:59:45.429746354 -0700
-@@ -16,10 +16,7 @@
- float* work, magma_int_t lwork, magma_int_t* iwork, magma_int_t liwork,
- magma_int_t* info);
-
-- magma_int_t get_cstedx_smlsize()
-- {
-- return 25;
-- }
-+ magma_int_t get_cstedx_smlsize();
- }
-
- extern "C" magma_int_t
-diff -Nur magma-1.2.1.orig/src/dlaex0_m.cpp magma-1.2.1/src/dlaex0_m.cpp
---- magma-1.2.1.orig/src/dlaex0_m.cpp 2012-07-03 11:59:28.933659971 -0700
-+++ magma-1.2.1/src/dlaex0_m.cpp 2012-07-03 11:59:45.430746359 -0700
-@@ -22,10 +22,7 @@
-
- int magma_get_dlaex3_m_nb();
-
-- magma_int_t get_dlaex0_smlsize()
-- {
-- return 25;
-- }
-+ magma_int_t get_dlaex0_smlsize();
- }
-
- extern "C" magma_int_t
-diff -Nur magma-1.2.1.orig/src/dlaex3_m.cpp magma-1.2.1/src/dlaex3_m.cpp
---- magma-1.2.1.orig/src/dlaex3_m.cpp 2012-07-03 11:59:28.929659951 -0700
-+++ magma-1.2.1/src/dlaex3_m.cpp 2012-07-03 11:59:45.430746359 -0700
-@@ -34,7 +34,7 @@
- }
-
- extern"C"{
-- void dvrange(magma_int_t k, double *d, magma_int_t *il, magma_int_t *iu, double vl, double vu)
-+ void ddvrange(magma_int_t k, double *d, magma_int_t *il, magma_int_t *iu, double vl, double vu)
- {
- magma_int_t i;
-
-@@ -51,7 +51,7 @@
- return;
- }
-
-- void dirange(magma_int_t k, magma_int_t* indxq, magma_int_t *iil, magma_int_t *iiu, magma_int_t il, magma_int_t iu)
-+ void ddirange(magma_int_t k, magma_int_t* indxq, magma_int_t *iil, magma_int_t *iiu, magma_int_t il, magma_int_t iu)
- {
- magma_int_t i;
-
-@@ -362,9 +362,9 @@
-
- //compute the lower and upper bound of the non-deflated eigenvectors
- if (valeig)
-- dvrange(k, d, &iil, &iiu, vl, vu);
-+ ddvrange(k, d, &iil, &iiu, vl, vu);
- else if (indeig)
-- dirange(k, indxq, &iil, &iiu, il, iu);
-+ ddirange(k, indxq, &iil, &iiu, il, iu);
- else {
- iil = 1;
- iiu = k;
-diff -Nur magma-1.2.1.orig/src/dstedx_m.cpp magma-1.2.1/src/dstedx_m.cpp
---- magma-1.2.1.orig/src/dstedx_m.cpp 2012-07-03 11:59:28.920659903 -0700
-+++ magma-1.2.1/src/dstedx_m.cpp 2012-07-03 11:59:45.430746359 -0700
-@@ -26,10 +26,7 @@
-
- double lapackf77_dlanst( char* norm, magma_int_t* n, double* d, double* e);
-
-- magma_int_t get_dstedx_smlsize()
-- {
-- return 25;
-- }
-+ magma_int_t get_dstedx_smlsize();
- }
-
- extern "C" magma_int_t
-diff -Nur magma-1.2.1.orig/src/slaex0_m.cpp magma-1.2.1/src/slaex0_m.cpp
---- magma-1.2.1.orig/src/slaex0_m.cpp 2012-07-03 11:59:28.931659961 -0700
-+++ magma-1.2.1/src/slaex0_m.cpp 2012-07-03 11:59:45.431746364 -0700
-@@ -22,10 +22,7 @@
-
- int magma_get_slaex3_m_nb();
-
-- magma_int_t get_slaex0_smlsize()
-- {
-- return 25;
-- }
-+ magma_int_t get_slaex0_smlsize();
- }
-
- extern "C" magma_int_t
-diff -Nur magma-1.2.1.orig/src/slaex3_m.cpp magma-1.2.1/src/slaex3_m.cpp
---- magma-1.2.1.orig/src/slaex3_m.cpp 2012-07-03 11:59:28.920659903 -0700
-+++ magma-1.2.1/src/slaex3_m.cpp 2012-07-03 11:59:45.431746364 -0700
-@@ -34,7 +34,7 @@
- }
-
- extern"C"{
-- void dvrange(magma_int_t k, float *d, magma_int_t *il, magma_int_t *iu, float vl, float vu)
-+ void sdvrange(magma_int_t k, float *d, magma_int_t *il, magma_int_t *iu, float vl, float vu)
- {
- magma_int_t i;
-
-@@ -51,7 +51,7 @@
- return;
- }
-
-- void dirange(magma_int_t k, magma_int_t* indxq, magma_int_t *iil, magma_int_t *iiu, magma_int_t il, magma_int_t iu)
-+ void sdirange(magma_int_t k, magma_int_t* indxq, magma_int_t *iil, magma_int_t *iiu, magma_int_t il, magma_int_t iu)
- {
- magma_int_t i;
-
-@@ -362,9 +362,9 @@
-
- //compute the lower and upper bound of the non-deflated eigenvectors
- if (valeig)
-- dvrange(k, d, &iil, &iiu, vl, vu);
-+ sdvrange(k, d, &iil, &iiu, vl, vu);
- else if (indeig)
-- dirange(k, indxq, &iil, &iiu, il, iu);
-+ sdirange(k, indxq, &iil, &iiu, il, iu);
- else {
- iil = 1;
- iiu = k;
-diff -Nur magma-1.2.1.orig/src/sstedx_m.cpp magma-1.2.1/src/sstedx_m.cpp
---- magma-1.2.1.orig/src/sstedx_m.cpp 2012-07-03 11:59:28.932659966 -0700
-+++ magma-1.2.1/src/sstedx_m.cpp 2012-07-03 11:59:45.431746364 -0700
-@@ -26,10 +26,7 @@
-
- float lapackf77_slanst( char* norm, magma_int_t* n, float* d, float* e);
-
-- magma_int_t get_sstedx_smlsize()
-- {
-- return 25;
-- }
-+ magma_int_t get_sstedx_smlsize();
- }
-
- extern "C" magma_int_t
-diff -Nur magma-1.2.1.orig/src/zheevx_gpu.cpp magma-1.2.1/src/zheevx_gpu.cpp
---- magma-1.2.1.orig/src/zheevx_gpu.cpp 2012-07-03 11:59:28.934659976 -0700
-+++ magma-1.2.1/src/zheevx_gpu.cpp 2012-07-03 11:59:45.431746364 -0700
-@@ -12,27 +12,6 @@
- */
- #include "common_magma.h"
-
--/* These interfaces are used for TAU profiling */
--extern"C"{
-- void Mylapackf77_zstein(magma_int_t *n, double *d, double *e, magma_int_t *m,
-- double *w, magma_int_t *iblock, magma_int_t *isplit,
-- cuDoubleComplex *z, magma_int_t *ldz, double *work,
-- magma_int_t *iwork, magma_int_t *ifail, magma_int_t *info)
-- {
-- lapackf77_zstein(n, d, e, m, w, iblock, isplit, z, ldz, work, iwork, ifail, info);
-- }
--
-- void Mylapackf77_dstebz(char *range, char *order, magma_int_t *n, double *vl,
-- double *vu, magma_int_t *il, magma_int_t *iu, double *abstol,
-- double *d, double *e, magma_int_t *m, magma_int_t *nsplit,
-- double *w, magma_int_t *iblock, magma_int_t *isplit,
-- double *work, magma_int_t *iwork, magma_int_t *info)
-- {
-- lapackf77_dstebz(range, order, n, vl, vu, il, iu, abstol,
-- d, e, m, nsplit, w, iblock, isplit, work, iwork,info);
-- }
--}
--
- extern "C" magma_int_t
- magma_zheevx_gpu(char jobz, char range, char uplo, magma_int_t n,
- cuDoubleComplex *da, magma_int_t ldda, double vl, double vu,
-@@ -404,12 +383,12 @@
- indisp = indibl + n;
- indiwk = indisp + n;
-
-- Mylapackf77_dstebz(range_, order, &n, &vl, &vu, &il, &iu, &abstol, &rwork[indd], &rwork[inde], m,
-+ lapackf77_dstebz(range_, order, &n, &vl, &vu, &il, &iu, &abstol, &rwork[indd], &rwork[inde], m,
- &nsplit, &w[1], &iwork[indibl], &iwork[indisp], &rwork[indrwk], &iwork[indiwk], info);
-
- if (wantz) {
-
-- Mylapackf77_zstein(&n, &rwork[indd], &rwork[inde], m, &w[1], &iwork[indibl], &iwork[indisp],
-+ lapackf77_zstein(&n, &rwork[indd], &rwork[inde], m, &w[1], &iwork[indibl], &iwork[indisp],
- wz, &ldwz, &rwork[indrwk], &iwork[indiwk], &ifail[1], info);
-
- magma_zsetmatrix( n, *m, wz, ldwz, dz, lddz );
-diff -Nur magma-1.2.1.orig/src/zhegvd.cpp magma-1.2.1/src/zhegvd.cpp
---- magma-1.2.1.orig/src/zhegvd.cpp 2012-07-03 11:59:28.920659903 -0700
-+++ magma-1.2.1/src/zhegvd.cpp 2012-07-03 11:59:45.432746370 -0700
-@@ -13,26 +13,6 @@
- */
- #include "common_magma.h"
-
--/* This ztrmm interface is used for TAU profiling */
--void Mymagma_ztrmm(char side, char uplo, char trans, char unit,
-- magma_int_t n, magma_int_t m,
-- cuDoubleComplex alpha, cuDoubleComplex *db, magma_int_t lddb,
-- cuDoubleComplex *dz, magma_int_t lddz)
--{
-- magma_ztrmm(side, uplo, trans, unit, n, m, alpha, db, lddb, dz, lddz);
-- magma_device_sync();
--}
--
--/* This ztrsm interface is used for TAU profiling */
--void Mymagma_ztrsm(char side, char uplo, char trans, char unit,
-- magma_int_t n, magma_int_t m,
-- cuDoubleComplex alpha, cuDoubleComplex *db, magma_int_t lddb,
-- cuDoubleComplex *dz, magma_int_t lddz)
--{
-- magma_ztrsm(side, uplo, trans, unit, n, m, alpha, db, lddb, dz, lddz);
-- magma_device_sync();
--}
--
- extern "C" magma_int_t
- magma_zhegvd(magma_int_t itype, char jobz, char uplo, magma_int_t n,
- cuDoubleComplex *a, magma_int_t lda, cuDoubleComplex *b, magma_int_t ldb,
-@@ -324,7 +304,7 @@
- *(unsigned char *)trans = MagmaNoTrans;
- }
-
-- Mymagma_ztrsm(MagmaLeft, uplo_[0], *trans, MagmaNonUnit,
-+ magma_ztrsm(MagmaLeft, uplo_[0], *trans, MagmaNonUnit,
- n, n, c_one, db, lddb, da, ldda);
-
- } else if (itype == 3)
-@@ -337,7 +317,7 @@
- *(unsigned char *)trans = MagmaConjTrans;
- }
-
-- Mymagma_ztrmm(MagmaLeft, uplo_[0], *trans, MagmaNonUnit,
-+ magma_ztrmm(MagmaLeft, uplo_[0], *trans, MagmaNonUnit,
- n, n, c_one, db, lddb, da, ldda);
- }
-
-diff -Nur magma-1.2.1.orig/src/zhegvdx.cpp magma-1.2.1/src/zhegvdx.cpp
---- magma-1.2.1.orig/src/zhegvdx.cpp 2012-07-03 11:59:28.922659915 -0700
-+++ magma-1.2.1/src/zhegvdx.cpp 2012-07-03 11:59:45.432746370 -0700
-@@ -12,22 +12,6 @@
- */
- #include "common_magma.h"
-
--void Mymagma_ztrmm(char side, char uplo, char trans, char unit, magma_int_t n, magma_int_t m,
-- cuDoubleComplex alpha, cuDoubleComplex *db, magma_int_t lddb,
-- cuDoubleComplex *dz, magma_int_t lddz)
--{
-- magma_ztrmm(side, uplo, trans, unit, n, m, alpha, db, lddb, dz, lddz);
-- magma_device_sync();
--}
--
--void Mymagma_ztrsm(char side, char uplo, char trans, char unit, magma_int_t n, magma_int_t m,
-- cuDoubleComplex alpha, cuDoubleComplex *db, magma_int_t lddb,
-- cuDoubleComplex *dz, magma_int_t lddz)
--{
-- magma_ztrsm(side, uplo, trans, unit, n, m, alpha, db, lddb, dz, lddz);
-- magma_device_sync();
--}
--
- extern "C" magma_int_t
- magma_zhegvdx(magma_int_t itype, char jobz, char range, char uplo, magma_int_t n,
- cuDoubleComplex *a, magma_int_t lda, cuDoubleComplex *b, magma_int_t ldb,
-@@ -363,7 +347,7 @@
- *(unsigned char *)trans = MagmaNoTrans;
- }
-
-- Mymagma_ztrsm(MagmaLeft, uplo, *trans, MagmaNonUnit, n, *m, c_one, db, lddb, da, ldda);
-+ magma_ztrsm(MagmaLeft, uplo, *trans, MagmaNonUnit, n, *m, c_one, db, lddb, da, ldda);
-
- } else if (itype == 3) {
-
-@@ -375,7 +359,7 @@
- *(unsigned char *)trans = MagmaConjTrans;
- }
-
-- Mymagma_ztrmm(MagmaLeft, uplo, *trans, MagmaNonUnit, n, *m, c_one, db, lddb, da, ldda);
-+ magma_ztrmm(MagmaLeft, uplo, *trans, MagmaNonUnit, n, *m, c_one, db, lddb, da, ldda);
-
- }
-
-diff -Nur magma-1.2.1.orig/src/zhegvr.cpp magma-1.2.1/src/zhegvr.cpp
---- magma-1.2.1.orig/src/zhegvr.cpp 2012-07-03 11:59:28.930659956 -0700
-+++ magma-1.2.1/src/zhegvr.cpp 2012-07-03 11:59:45.432746370 -0700
-@@ -12,24 +12,6 @@
- */
- #include "common_magma.h"
-
--void Mymagma_ztrmm(char side, char uplo, char trans, char unit,
-- magma_int_t n, magma_int_t m,
-- cuDoubleComplex alpha, cuDoubleComplex *db, magma_int_t lddb,
-- cuDoubleComplex *dz, magma_int_t lddz)
--{
-- magma_ztrmm(side, uplo, trans, unit, n, m, alpha, db, lddb, dz, lddz);
-- magma_device_sync();
--}
--
--void Mymagma_ztrsm(char side, char uplo, char trans, char unit,
-- magma_int_t n, magma_int_t m,
-- cuDoubleComplex alpha, cuDoubleComplex *db, magma_int_t lddb,
-- cuDoubleComplex *dz, magma_int_t lddz)
--{
-- magma_ztrsm(side, uplo, trans, unit, n, m, alpha, db, lddb, dz, lddz);
-- magma_device_sync();
--}
--
- extern "C" magma_int_t
- magma_zhegvr(magma_int_t itype, char jobz, char range, char uplo, magma_int_t n,
- cuDoubleComplex *a, magma_int_t lda, cuDoubleComplex *b, magma_int_t ldb,
-@@ -408,7 +390,7 @@
- *(unsigned char *)trans = MagmaNoTrans;
- }
-
-- Mymagma_ztrsm(MagmaLeft, uplo, *trans, MagmaNonUnit, n, *m, c_one,
-+ magma_ztrsm(MagmaLeft, uplo, *trans, MagmaNonUnit, n, *m, c_one,
- db, lddb, dz, lddz);
-
- } else if (itype == 3) {
-@@ -421,7 +403,7 @@
- *(unsigned char *)trans = MagmaConjTrans;
- }
-
-- Mymagma_ztrmm(MagmaLeft, uplo, *trans, MagmaNonUnit, n, *m, c_one,
-+ magma_ztrmm(MagmaLeft, uplo, *trans, MagmaNonUnit, n, *m, c_one,
- db, lddb, dz, lddz);
- }
-
-diff -Nur magma-1.2.1.orig/src/zhegvx.cpp magma-1.2.1/src/zhegvx.cpp
---- magma-1.2.1.orig/src/zhegvx.cpp 2012-07-03 11:59:28.914659873 -0700
-+++ magma-1.2.1/src/zhegvx.cpp 2012-07-03 11:59:45.433746376 -0700
-@@ -12,22 +12,6 @@
- */
- #include "common_magma.h"
-
--void Mymagma_ztrmm(char side, char uplo, char trans, char unit, magma_int_t n, magma_int_t m,
-- cuDoubleComplex alpha, cuDoubleComplex *db, magma_int_t lddb,
-- cuDoubleComplex *dz, magma_int_t lddz)
--{
-- magma_ztrmm(side, uplo, trans, unit, n, m, alpha, db, lddb, dz, lddz);
-- magma_device_sync();
--}
--
--void Mymagma_ztrsm(char side, char uplo, char trans, char unit, magma_int_t n, magma_int_t m,
-- cuDoubleComplex alpha, cuDoubleComplex *db, magma_int_t lddb,
-- cuDoubleComplex *dz, magma_int_t lddz)
--{
-- magma_ztrsm(side, uplo, trans, unit, n, m, alpha, db, lddb, dz, lddz);
-- magma_device_sync();
--}
--
- extern "C" magma_int_t
- magma_zhegvx(magma_int_t itype, char jobz, char range, char uplo, magma_int_t n,
- cuDoubleComplex *a, magma_int_t lda, cuDoubleComplex *b, magma_int_t ldb,
-@@ -330,7 +314,7 @@
- *(unsigned char *)trans = MagmaNoTrans;
- }
-
-- Mymagma_ztrsm(MagmaLeft, uplo, *trans, MagmaNonUnit, n, *m, c_one, db, lddb, dz, lddz);
-+ magma_ztrsm(MagmaLeft, uplo, *trans, MagmaNonUnit, n, *m, c_one, db, lddb, dz, lddz);
-
- } else if (itype == 3) {
-
-@@ -343,7 +327,7 @@
- *(unsigned char *)trans = MagmaConjTrans;
- }
-
-- Mymagma_ztrmm(MagmaLeft, uplo, *trans, MagmaNonUnit, n, *m, c_one, db, lddb, dz, lddz);
-+ magma_ztrmm(MagmaLeft, uplo, *trans, MagmaNonUnit, n, *m, c_one, db, lddb, dz, lddz);
-
- }
-
-diff -Nur magma-1.2.1.orig/src/zstedx_m.cpp magma-1.2.1/src/zstedx_m.cpp
---- magma-1.2.1.orig/src/zstedx_m.cpp 2012-07-03 11:59:28.921659909 -0700
-+++ magma-1.2.1/src/zstedx_m.cpp 2012-07-03 11:59:45.433746376 -0700
-@@ -16,10 +16,7 @@
- double* work, magma_int_t lwork, magma_int_t* iwork, magma_int_t liwork,
- magma_int_t* info);
-
-- magma_int_t get_zstedx_smlsize()
-- {
-- return 25;
-- }
-+ magma_int_t get_zstedx_smlsize();
- }
-
- extern "C" magma_int_t