Mercurial > octave
diff liboctave/numeric/svd.cc @ 23449:c763214a8260
maint: Use convention 'int *x' for naming pointers.
* mycell.c, myfeval.c, mypow2.c, myprop.c, myset.c, mystruct.c, Backend.cc,
Backend.h, BaseControl.cc, BaseControl.h, ButtonControl.cc, ButtonControl.h,
ButtonGroup.cc, ButtonGroup.h, Canvas.cc, Canvas.h, CheckBoxControl.cc,
CheckBoxControl.h, Container.cc, Container.h, ContextMenu.cc, ContextMenu.h,
EditControl.cc, EditControl.h, Figure.cc, Figure.h, FigureWindow.cc,
FigureWindow.h, GLCanvas.cc, GLCanvas.h, GenericEventNotify.h,
ListBoxControl.cc, ListBoxControl.h, Logger.cc, Logger.h, Menu.cc, Menu.h,
MenuContainer.h, MouseModeActionGroup.cc, MouseModeActionGroup.h, Object.cc,
Object.h, ObjectFactory.cc, ObjectFactory.h, ObjectProxy.cc, ObjectProxy.h,
Panel.cc, Panel.h, PopupMenuControl.cc, PopupMenuControl.h,
PushButtonControl.cc, PushButtonControl.h, PushTool.cc, PushTool.h,
QtHandlesUtils.cc, QtHandlesUtils.h, RadioButtonControl.cc,
RadioButtonControl.h, SliderControl.cc, SliderControl.h, TextControl.cc,
TextControl.h, TextEdit.cc, TextEdit.h, ToggleButtonControl.cc,
ToggleButtonControl.h, ToggleTool.cc, ToggleTool.h, ToolBar.cc, ToolBar.h,
ToolBarButton.cc, ToolBarButton.h, color-picker.cc, file-editor-tab.cc,
file-editor.cc, file-editor.h, find-dialog.cc, find-dialog.h,
octave-qscintilla.cc, main-window.cc, main-window.h, octave-cmd.cc,
octave-dock-widget.cc, parser.cc, shortcut-manager.cc, workspace-view.cc,
__ichol__.cc, __ilu__.cc, __magick_read__.cc, c-file-ptr-stream.cc,
c-file-ptr-stream.h, cellfun.cc, data.cc, gl2ps-print.cc, graphics.cc,
graphics.in.h, ls-hdf5.cc, ls-hdf5.h, ls-mat5.cc, mex.h, oct-map.cc, oct-map.h,
oct-stream.cc, octave-link.cc, profiler.cc, profiler.h, psi.cc, qz.cc,
sighandlers.cc, symtab.h, txt-eng.h, zfstream.cc, zfstream.h, __init_fltk__.cc,
audiodevinfo.cc, gzip.cc, ov-class.cc, ov-classdef.cc, ov-classdef.h,
ov-dld-fcn.h, ov-fcn-inline.cc, ov-java.cc, ov-java.h, ov.cc, pt-arg-list.cc,
pt-array-list.cc, pt-bp.cc, pt-check.cc, pt-classdef.h, pt-decl.cc, pt-eval.cc,
pt-idx.cc, pt-idx.h, pt-jit.cc, pt-misc.cc, pt-pr-code.cc, pt-select.cc,
pt-stmt.cc, Array.cc, Array.h, CMatrix.cc, MSparse.cc, Sparse.h, dMatrix.cc,
dim-vector.h, fCMatrix.cc, fMatrix.cc, CollocWt.cc, bsxfun-defs.cc,
eigs-base.cc, gsvd.cc, gsvd.h, lo-lapack-proto.h, oct-norm.cc, randmtzig.cc,
svd.cc, svd.h, mx-inlines.cc, oct-binmap.h, oct-sort.cc, oct-sort.h,
oct-string.cc, oct-string.h, sparse-sort.cc, sparse-sort.h:
Use convention 'int *x' for naming pointers.
author | Rik <rik@octave.org> |
---|---|
date | Thu, 27 Apr 2017 15:18:20 -0700 |
parents | e1c02e7126a9 |
children | 855122b993da |
line wrap: on
line diff
--- a/liboctave/numeric/svd.cc Thu Apr 27 15:26:32 2017 -0400 +++ b/liboctave/numeric/svd.cc Thu Apr 27 15:18:20 2017 -0700 @@ -92,8 +92,8 @@ template<> void svd<Matrix>::gesvd (char& jobu, char& jobv, F77_INT m, F77_INT n, - double* tmp_data, F77_INT m1, double* s_vec, - double* u, double* vt, F77_INT nrow_vt1, + double *tmp_data, F77_INT m1, double *s_vec, + double *u, double *vt, F77_INT nrow_vt1, std::vector<double>& work, F77_INT& lwork, F77_INT& info) { @@ -109,8 +109,8 @@ template<> void svd<FloatMatrix>::gesvd (char& jobu, char& jobv, F77_INT m, F77_INT n, - float* tmp_data, F77_INT m1, float* s_vec, - float* u, float* vt, F77_INT nrow_vt1, + float *tmp_data, F77_INT m1, float *s_vec, + float *u, float *vt, F77_INT nrow_vt1, std::vector<float>& work, F77_INT& lwork, F77_INT& info) { @@ -126,8 +126,8 @@ template<> void svd<ComplexMatrix>::gesvd (char& jobu, char& jobv, F77_INT m, F77_INT n, - Complex* tmp_data, F77_INT m1, double* s_vec, - Complex* u, Complex* vt, F77_INT nrow_vt1, + Complex *tmp_data, F77_INT m1, double *s_vec, + Complex *u, Complex *vt, F77_INT nrow_vt1, std::vector<Complex>& work, F77_INT& lwork, F77_INT& info) { @@ -145,9 +145,9 @@ template<> void svd<FloatComplexMatrix>::gesvd (char& jobu, char& jobv, F77_INT m, - F77_INT n, FloatComplex* tmp_data, - F77_INT m1, float* s_vec, FloatComplex* u, - FloatComplex* vt, F77_INT nrow_vt1, + F77_INT n, FloatComplex *tmp_data, + F77_INT m1, float *s_vec, FloatComplex *u, + FloatComplex *vt, F77_INT nrow_vt1, std::vector<FloatComplex>& work, F77_INT& lwork, F77_INT& info) { @@ -185,10 +185,10 @@ // DGESDD template<> void - svd<Matrix>::gesdd (char& jobz, F77_INT m, F77_INT n, double* tmp_data, - F77_INT m1, double* s_vec, double* u, double* vt, + svd<Matrix>::gesdd (char& jobz, F77_INT m, F77_INT n, double *tmp_data, + F77_INT m1, double *s_vec, double *u, double *vt, F77_INT nrow_vt1, std::vector<double>& work, - F77_INT& lwork, F77_INT* iwork, F77_INT& info) + F77_INT& lwork, F77_INT *iwork, F77_INT& info) { GESDD_REAL_STEP (dgesdd, DGESDD); @@ -201,8 +201,8 @@ // SGESDD template<> void - svd<FloatMatrix>::gesdd (char& jobz, F77_INT m, F77_INT n, float* tmp_data, - F77_INT m1, float* s_vec, float* u, float* vt, + svd<FloatMatrix>::gesdd (char& jobz, F77_INT m, F77_INT n, float *tmp_data, + F77_INT m1, float *s_vec, float *u, float *vt, F77_INT nrow_vt1, std::vector<float>& work, F77_INT& lwork, F77_INT* iwork, F77_INT& info) { @@ -218,10 +218,10 @@ template<> void svd<ComplexMatrix>::gesdd (char& jobz, F77_INT m, F77_INT n, - Complex* tmp_data, F77_INT m1, double* s_vec, - Complex* u, Complex* vt, F77_INT nrow_vt1, + Complex *tmp_data, F77_INT m1, double *s_vec, + Complex *u, Complex *vt, F77_INT nrow_vt1, std::vector<Complex>& work, F77_INT& lwork, - F77_INT* iwork, F77_INT& info) + F77_INT *iwork, F77_INT& info) { F77_INT min_mn = std::min (m, n); @@ -246,11 +246,11 @@ template<> void svd<FloatComplexMatrix>::gesdd (char& jobz, F77_INT m, F77_INT n, - FloatComplex* tmp_data, F77_INT m1, - float* s_vec, FloatComplex* u, - FloatComplex* vt, F77_INT nrow_vt1, + FloatComplex *tmp_data, F77_INT m1, + float *s_vec, FloatComplex *u, + FloatComplex *vt, F77_INT nrow_vt1, std::vector<FloatComplex>& work, - F77_INT& lwork, F77_INT* iwork, + F77_INT& lwork, F77_INT *iwork, F77_INT& info) { F77_INT min_mn = std::min (m, n); @@ -314,7 +314,7 @@ } T atmp = a; - P* tmp_data = atmp.fortran_vec (); + P *tmp_data = atmp.fortran_vec (); F77_INT min_mn = m < n ? m : n; @@ -354,15 +354,15 @@ if (! (jobu == 'N' || jobu == 'O')) left_sm.resize (m, ncol_u); - P* u = left_sm.fortran_vec (); + P *u = left_sm.fortran_vec (); sigma.resize (nrow_s, ncol_s); - DM_P* s_vec = sigma.fortran_vec (); + DM_P *s_vec = sigma.fortran_vec (); if (! (jobv == 'N' || jobv == 'O')) right_sm.resize (nrow_vt, n); - P* vt = right_sm.fortran_vec (); + P *vt = right_sm.fortran_vec (); // Query _GESVD for the correct dimension of WORK.