Mercurial > octave

changeset 21983:9b6cdd17b929

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix inconsistent definitions of cpotrf, dpotrf, spotrf, and zpotrf (bug #48320) * EIG.cc: Drop extraneous length parameter from definitions of dpotrf and zpotrf. (EIG::init): Drop corresponding argument. * fEIG.cc: Drop extraneous length parameter from definitions of spotrf and cpotrf. (FloatEIG::init): Drop corresponding argument.
author Robert Jenssen <robertjenssen@ozemail.com.au>
date Mon, 27 Jun 2016 09:26:20 +1000
parents 74257c267c8b
children 6187b9ce8477
files liboctave/numeric/EIG.cc liboctave/numeric/fEIG.cc
diffstat 2 files changed, 0 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/liboctave/numeric/EIG.cc	Mon Jun 27 09:24:43 2016 -0700
+++ b/liboctave/numeric/EIG.cc	Mon Jun 27 09:26:20 2016 +1000
@@ -76,7 +76,6 @@
   F77_FUNC (dpotrf, DPOTRF) (F77_CONST_CHAR_ARG_DECL,
                              const octave_idx_type&, double*,
                              const octave_idx_type&, octave_idx_type&
-                             F77_CHAR_ARG_LEN_DECL
                              F77_CHAR_ARG_LEN_DECL);
 
   F77_RET_T
@@ -84,7 +83,6 @@
                              const octave_idx_type&,
                              Complex*, const octave_idx_type&,
                              octave_idx_type&
-                             F77_CHAR_ARG_LEN_DECL
                              F77_CHAR_ARG_LEN_DECL);
 
   F77_RET_T
@@ -432,7 +430,6 @@
   F77_XFCN (dpotrf, DPOTRF, (F77_CONST_CHAR_ARG2 ("L", 1),
                              n, tmp_data, n,
                              info
-                             F77_CHAR_ARG_LEN (1)
                              F77_CHAR_ARG_LEN (1)));
 
   if (a.is_symmetric () && b.is_symmetric () && info == 0)
@@ -615,7 +612,6 @@
   F77_XFCN (zpotrf, ZPOTRF, (F77_CONST_CHAR_ARG2 ("L", 1),
                              n, tmp_data, n,
                              info
-                             F77_CHAR_ARG_LEN (1)
                              F77_CHAR_ARG_LEN (1)));
 
   if (a.is_hermitian () && b.is_hermitian () && info == 0)
--- a/liboctave/numeric/fEIG.cc	Mon Jun 27 09:24:43 2016 -0700
+++ b/liboctave/numeric/fEIG.cc	Mon Jun 27 09:26:20 2016 +1000
@@ -75,14 +75,12 @@
   F77_FUNC (spotrf, SPOTRF) (F77_CONST_CHAR_ARG_DECL,
                              const octave_idx_type&, float*,
                              const octave_idx_type&, octave_idx_type&
-                             F77_CHAR_ARG_LEN_DECL
                              F77_CHAR_ARG_LEN_DECL);
 
   F77_RET_T
   F77_FUNC (cpotrf, CPOTRF) (F77_CONST_CHAR_ARG_DECL,
                              const octave_idx_type&, FloatComplex*,
                              const octave_idx_type&, octave_idx_type&
-                             F77_CHAR_ARG_LEN_DECL
                              F77_CHAR_ARG_LEN_DECL);
 
   F77_RET_T
@@ -428,7 +426,6 @@
   F77_XFCN (spotrf, SPOTRF, (F77_CONST_CHAR_ARG2 ("L", 1),
                              n, tmp_data, n,
                              info
-                             F77_CHAR_ARG_LEN (1)
                              F77_CHAR_ARG_LEN (1)));
 
   if (a.is_symmetric () && b.is_symmetric () && info == 0)
@@ -612,7 +609,6 @@
   F77_XFCN (cpotrf, CPOTRF, (F77_CONST_CHAR_ARG2 ("L", 1),
                              n, tmp_data, n,
                              info
-                             F77_CHAR_ARG_LEN (1)
                              F77_CHAR_ARG_LEN (1)));
 
   if (a.is_hermitian () && b.is_hermitian () && info == 0)