changeset 10105:018d92ad0730

fix prototypes for zherk and cherk
author John W. Eaton <jwe@octave.org>
date Thu, 14 Jan 2010 03:10:46 -0500
parents 20b74e630faf
children edbe47bc0f88
files liboctave/CMatrix.cc liboctave/ChangeLog liboctave/fCMatrix.cc
diffstat 3 files changed, 9 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/liboctave/CMatrix.cc	Wed Jan 13 22:24:44 2010 -0800
+++ b/liboctave/CMatrix.cc	Thu Jan 14 03:10:46 2010 -0500
@@ -126,8 +126,8 @@
   F77_FUNC (zherk, ZHERK) (F77_CONST_CHAR_ARG_DECL,
 			   F77_CONST_CHAR_ARG_DECL,
 			   const octave_idx_type&, const octave_idx_type&, 
-			   const Complex&, const Complex*, const octave_idx_type&,
-			   const Complex&, Complex*, const octave_idx_type&
+			   const double&, const Complex*, const octave_idx_type&,
+			   const double&, Complex*, const octave_idx_type&
 			   F77_CHAR_ARG_LEN_DECL
 			   F77_CHAR_ARG_LEN_DECL);
 
--- a/liboctave/ChangeLog	Wed Jan 13 22:24:44 2010 -0800
+++ b/liboctave/ChangeLog	Thu Jan 14 03:10:46 2010 -0500
@@ -1,3 +1,8 @@
+2010-01-14  John W. Eaton  <jwe@octave.org>
+
+	* CMatrix.cc: Fix prototype for zherk.
+	* fCMatrix.cc: Fix prototype for cherk.
+
 2010-01-14  John W. Eaton  <jwe@octave.org>
 
 	* oct-rl-edit.c (octave_rl_set_name): Save arg before setting
--- a/liboctave/fCMatrix.cc	Wed Jan 13 22:24:44 2010 -0800
+++ b/liboctave/fCMatrix.cc	Thu Jan 14 03:10:46 2010 -0500
@@ -125,8 +125,8 @@
   F77_FUNC (cherk, CHERK) (F77_CONST_CHAR_ARG_DECL,
 			   F77_CONST_CHAR_ARG_DECL,
 			   const octave_idx_type&, const octave_idx_type&, 
-			   const FloatComplex&, const FloatComplex*, const octave_idx_type&,
-			   const FloatComplex&, FloatComplex*, const octave_idx_type&
+			   const float&, const FloatComplex*, const octave_idx_type&,
+			   const float&, FloatComplex*, const octave_idx_type&
 			   F77_CHAR_ARG_LEN_DECL
 			   F77_CHAR_ARG_LEN_DECL);