# HG changeset patch
# User Jaroslav Hajek <address@hidden>
# Date 1218317583 -7200
# Node ID 445f15757b7385a18262d8302b1601f5ebab0b8a
# Parent  79890b8187bdb2f2d9e4174d8d94f5e03d39ec3c
[mq]: transpose

diff -r 79890b8187bd -r 445f15757b73 liboctave/Array.cc
--- a/liboctave/Array.cc	Fri Aug 08 09:35:35 2008 -0400
+++ b/liboctave/Array.cc	Sat Aug 09 23:33:03 2008 +0200
@@ -1262,10 +1262,20 @@
 }
 
 template <class T>
+static T
+identityT (const T& x)
+{
+  return x;
+}
+
+template <class T>
 Array<T>
 Array<T>::hermitian (T (*fcn) (const T&)) const
 {
   assert (ndims () == 2);
+
+  if (! fcn)
+    fcn = identityT<T>;
 
   octave_idx_type nr = dim1 ();
   octave_idx_type nc = dim2 ();
diff -r 79890b8187bd -r 445f15757b73 liboctave/ChangeLog
--- a/liboctave/ChangeLog	Fri Aug 08 09:35:35 2008 -0400
+++ b/liboctave/ChangeLog	Sat Aug 09 23:33:03 2008 +0200
@@ -1,3 +1,7 @@
+2008-08-09  Jaroslav Hajek <address@hidden>
+
+	* Array.cc (Array<T>::hermitian): If fcn is null, set to identityT.
+
 2008-08-07  John W. Eaton  <address@hidden>
 
 	* sprse-base-chol.h, oct-sparse.h: Don't include config.h.