diff options
| author | ukashanoor | 2017-07-04 11:55:14 +0530 |
|---|---|---|
| committer | ukashanoor | 2017-07-04 11:55:14 +0530 |
| commit | 9c98503cadef71c7d916f30801c18661e9c3292f (patch) | |
| tree | 3ab652b9a61e0991dcefa01f0d63145516101361 /src/c/linearAlgebra/interfaces/int_svd.h | |
| parent | 9fc55b8370323fd8f7364a5abfcee3af65899a97 (diff) | |
| download | Scilab2C_fossee_old-9c98503cadef71c7d916f30801c18661e9c3292f.tar.gz Scilab2C_fossee_old-9c98503cadef71c7d916f30801c18661e9c3292f.tar.bz2 Scilab2C_fossee_old-9c98503cadef71c7d916f30801c18661e9c3292f.zip | |
after debugging 1
Diffstat (limited to 'src/c/linearAlgebra/interfaces/int_svd.h')
| -rw-r--r-- | src/c/linearAlgebra/interfaces/int_svd.h | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/src/c/linearAlgebra/interfaces/int_svd.h b/src/c/linearAlgebra/interfaces/int_svd.h new file mode 100644 index 0000000..8f40bff --- /dev/null +++ b/src/c/linearAlgebra/interfaces/int_svd.h @@ -0,0 +1,35 @@ + /* Copyright (C) 2017 - IIT Bombay - FOSSEE + + This file must be used under the terms of the CeCILL. + This source file is licensed as described in the file COPYING, which + you should have received as part of this distribution. The terms + are also available at + http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt + Author: Sandeep Gupta + Organization: FOSSEE, IIT Bombay + Email: toolbox@scilab.in + */ + +#ifndef __INT_SVD_H__ +#define __INT_SVD_H__ + +#ifdef __cplusplus +extern "C" { +#endif + +#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); + +#ifdef __cplusplus +} /* extern "C" */ +#endif + +#endif /*__INT_SVD_H__*/ |