Re: Success with the new BLAS (almost)

[Kumar Appaiah <akumar@ee.iitm.ac.in>]

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