# HG changeset patch
# User Robert Jenssen <robertjenssen@ozemail.com.au>
# Date 1466983580 -36000
# Node ID 9b6cdd17b929107c48a587cf9c007235d4d54336
# Parent  74257c267c8baa97e292e50542213e4d37ab3e69
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.

diff -r 74257c267c8b -r 9b6cdd17b929 liboctave/numeric/EIG.cc
--- 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)
diff -r 74257c267c8b -r 9b6cdd17b929 liboctave/numeric/fEIG.cc
--- 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)