[Toon-members] TooN SVD.h

[Tom Drummond]

CVSROOT:        /cvsroot/toon
Module name:    TooN
Changes by:     Tom Drummond <twd20>    09/04/20 17:57:48

Modified files:
        .              : SVD.h 

Log message:
        fixed a couple of stray references to double

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

Patches:
Index: SVD.h
===================================================================
RCS file: /cvsroot/toon/TooN/SVD.h,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -b -r1.13 -r1.14
--- SVD.h       20 Apr 2009 17:56:16 -0000      1.13
+++ SVD.h       20 Apr 2009 17:57:48 -0000      1.14
@@ -97,9 +97,9 @@
                        ldu = my_square.num_cols();
                }
 
-               double* wk;
+               Precision* wk;
 
-               double size;
+               Precision size;
                LWORK = -1;
 
                // arguments are scrambled because we use rowmajor and lapack 
uses colmajor
@@ -108,7 +108,7 @@
                                 &ldvt, uorvt, &ldu, &size, &LWORK, &INFO);
        
                LWORK = (long int)(size);
-               wk = new double[LWORK];
+               wk = new Precision[LWORK];
 
                dgesvd_( &JOBVT, &JOBU, &m, &n, a, &lda, s, uorvt,
                                 &ldvt, uorvt, &ldu, wk, &LWORK, &INFO);