[Toon-members] TooN SVD.h

[Gerhard Reitmayr]

CVSROOT:        /cvsroot/toon
Module name:    TooN
Changes by:     Gerhard Reitmayr <gerhard>      10/12/24 13:58:03

Modified files:
        .              : SVD.h 

Log message:
        let overloading resolve the right LAPACK function

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/TooN/SVD.h?cvsroot=toon&r1=1.19&r2=1.20

Patches:
Index: SVD.h
===================================================================
RCS file: /cvsroot/toon/TooN/SVD.h,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -b -r1.19 -r1.20
--- SVD.h       9 Jun 2009 13:33:22 -0000       1.19
+++ SVD.h       24 Dec 2010 13:58:03 -0000      1.20
@@ -152,13 +152,13 @@
 
                // arguments are scrambled because we use rowmajor and lapack 
uses colmajor
                // thus u and vt play each other's roles.
-               dgesvd_( &JOBVT, &JOBU, &m, &n, a, &lda, s, uorvt,
+               gesvd_( &JOBVT, &JOBU, &m, &n, a, &lda, s, uorvt,
                                 &ldvt, uorvt, &ldu, &size, &LWORK, &INFO);
        
                LWORK = (long int)(size);
                wk = new Precision[LWORK];
 
-               dgesvd_( &JOBVT, &JOBU, &m, &n, a, &lda, s, uorvt,
+               gesvd_( &JOBVT, &JOBU, &m, &n, a, &lda, s, uorvt,
                                 &ldvt, uorvt, &ldu, wk, &LWORK, &INFO);
        
                delete[] wk;