# HG changeset patch
# User John W. Eaton <jwe@octave.org>
# Date 1263456646 18000
# Node ID 018d92ad0730a0166704c886a19014e41bb3fb97
# Parent  20b74e630faf3a6a8745ad18ef8d123c1c0073b7
fix prototypes for zherk and cherk

diff --git a/liboctave/CMatrix.cc b/liboctave/CMatrix.cc
--- a/liboctave/CMatrix.cc
+++ b/liboctave/CMatrix.cc
@@ -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);
 
diff --git a/liboctave/ChangeLog b/liboctave/ChangeLog
--- a/liboctave/ChangeLog
+++ b/liboctave/ChangeLog
@@ -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
diff --git a/liboctave/fCMatrix.cc b/liboctave/fCMatrix.cc
--- a/liboctave/fCMatrix.cc
+++ b/liboctave/fCMatrix.cc
@@ -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);