summaryrefslogtreecommitdiff
path: root/src/c/linearAlgebra/interfaces/int_svd.h
diff options
context:
space:
mode:
authorSiddhu89902017-07-04 20:08:52 +0530
committerSiddhu89902017-07-04 20:08:52 +0530
commit94afa929398d966285e86983010497b7dd7e7c2a (patch)
tree74a3e724dc5b8d7526d157ae86953d9e9757ea7c /src/c/linearAlgebra/interfaces/int_svd.h
parent5b9f48de8fe9af5d4b4a3bea0eb3baacd2bc7950 (diff)
parentc315b9d6ad3f720d2277323ecad403128cfbb90b (diff)
downloadscilab2c-94afa929398d966285e86983010497b7dd7e7c2a.tar.gz
scilab2c-94afa929398d966285e86983010497b7dd7e7c2a.tar.bz2
scilab2c-94afa929398d966285e86983010497b7dd7e7c2a.zip
Bug removed for dct and idct
Diffstat (limited to 'src/c/linearAlgebra/interfaces/int_svd.h')
-rw-r--r--src/c/linearAlgebra/interfaces/int_svd.h10
1 files changed, 7 insertions, 3 deletions
diff --git a/src/c/linearAlgebra/interfaces/int_svd.h b/src/c/linearAlgebra/interfaces/int_svd.h
index 449ee741..8f40bffe 100644
--- a/src/c/linearAlgebra/interfaces/int_svd.h
+++ b/src/c/linearAlgebra/interfaces/int_svd.h
@@ -17,9 +17,13 @@
extern "C" {
#endif
-#define d2svdd2(in1,size1,out1) dsvda(in1,size1[0],size1[1],0,1,out1,NULL,NULL)
-#define d2g2svdd2d2d2(in1,size1,in2,size2,out1,out2,out3) dsvda(in1,size1[0],size1[1],1,3,out1,out2,out3);
-#define d2svdd2d2d2(in1,size1,out1,out2,out3) dsvda(in1,size1[0],size1[1],0,3,out1,out2,out3);
+#define d2svdd2(in1,size1,out1) dsvda(0,in1,size1[0],size1[1],0,1,out1,NULL,NULL)
+#define d2g2svdd2d2d2(in1,size1,in2,size2,out1,out2,out3) dsvda(0,in1,size1[0],size1[1],1,3,out1,out2,out3);
+#define d2svdd2d2d2(in1,size1,out1,out2,out3) dsvda(0,in1,size1[0],size1[1],0,3,out1,out2,out3);
+
+#define d2svdd2d2d2d0(in1,size1,out1,out2,out3) dsvda(0,in1,size1[0],size1[1],0,4,out1,out2,out3);
+#define d2d0svdd2d2d2d0(in1,size1,tol,out1,out2,out3) dsvda(tol,in1,size1[0],size1[1],0,4,out1,out2,out3);
+
#define z2svdz2(in1,size1,out2) zsvda(in1,size1[0],size1[1],0,1,NULL,out2,NULL);
#define z2g2svdz2z2z2(in1,size1,in2,size2,out1,out2,out3) zsvda(in1,size1[0],size1[1],1,3,out1,out2,out3);
#define z2svdz2z2z2(in1,size1,out1,out2,out3) zsvda(in1,size1[0],size1[1],0,3,out1,out2,out3);