On Sun, Dec 30, 2007 at 02:12:53PM +0530, Kumar Appaiah wrote: > And, there's some more explanation to do about my package. > > 1. There's a debian/patches directory, containing loads of > patches. These are NOT useful. I was using that place as a scratch > pad to split and individually tests Camm's monolithic blas.patch. > 2. The debian/blas.patch is _heavily_ refactored and tailored to the > new code. The old one, which Camm had made, is named > blas.patch.old. > 3. In the previous version, I talked about "suggesting a > version". What I meant was a suggestion for the upstream version > number. Right now, it is 1.2.new, but that isn't acceptable... A further update. I tried building my package on an amd64 machine, which I managed to get, luckily. It FTBFSed, and I observe that the blas.patch has some function definition modifications, which switch float to double. I undid them, and it built fine. I attach the patch to the blas.patch (for building with amd64) below, though someone else has to take the decision as to whether this patch is particular to amd64 or general. I now leave it for others to comment, and will try out lapack when I have time next. Thanks! Kumar (satisfied that he's probably solved BLAS on two archs! :-) -- Kumar Appaiah, 458, Jamuna Hostel, Indian Institute of Technology Madras, Chennai - 600 036
--- blas.patch 2007-12-29 22:54:37.000000000 +0530 +++ blas.patch.kumar 2008-01-01 19:00:38.000000000 +0530 @@ -5612,25 +5612,6 @@ + exit(-1); + } -Index: b/cblas/testing/c_cblas1.c -=================================================================== ---- a/cblas/testing/c_cblas1.c -+++ b/cblas/testing/c_cblas1.c -@@ -63,12 +63,12 @@ - return (cblas_icamax(*N, X, *incX)+1); - } - --float F77_scnrm2(const int *N, const void *X, const int *incX) -+double F77_scnrm2(const int *N, const void *X, const int *incX) - { - return cblas_scnrm2(*N, X, *incX); - } - --float F77_scasum(const int *N, void *X, const int *incX) -+double F77_scasum(const int *N, void *X, const int *incX) - { - return cblas_scasum(*N, X, *incX); - } Index: b/src/cgbmv.f =================================================================== --- a/src/cgbmv.f @@ -7638,15 +7619,6 @@ 160 CONTINUE --- blas-1.2.orig/cblas/testing/c_sblas1.c +++ blas-1.2/cblas/testing/c_sblas1.c -@@ -8,7 +8,7 @@ - */ - #include "cblas_test.h" - #include "cblas.h" --float F77_sasum(const int *N, float *X, const int *incX) -+double F77_sasum(const int *N, float *X, const int *incX) - { - return cblas_sasum(*N, X, *incX); - } @@ -20,12 +20,12 @@ return; } @@ -7662,22 +7634,6 @@ { return cblas_scnrm2(*N, X, *incX); } -@@ -37,13 +37,13 @@ - return; - } - --float F77_sdot(const int *N, const float *X, const int *incX, -+double F77_sdot(const int *N, const float *X, const int *incX, - const float *Y, const int *incY) - { - return cblas_sdot(*N, X, *incX, Y, *incY); - } - --float F77_snrm2(const int *N, const float *X, const int *incX) -+double F77_snrm2(const int *N, const float *X, const int *incX) - { - return cblas_snrm2(*N, X, *incX); - } --- blas-1.2.orig/cblas/testing/c_sblat3.f +++ blas-1.2/cblas/testing/c_sblat3.f @@ -1339,7 +1339,7 @@
Attachment:
signature.asc
Description: Digital signature