Commit e000e184 by Francois Gygi

cleaned up arguments of zherk, pzherk.


git-svn-id: http://qboxcode.org/svn/qb/trunk@794 cba15fb0-1239-40c8-b417-11db7ca47a34
parent 468e98e6
...@@ -15,7 +15,7 @@ ...@@ -15,7 +15,7 @@
// Matrix.C // Matrix.C
// //
//////////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////////
// $Id: Matrix.C,v 1.21 2009-11-30 02:32:59 fgygi Exp $ // $Id: Matrix.C,v 1.22 2010-05-10 20:50:37 fgygi Exp $
#include <cassert> #include <cassert>
#include <iostream> #include <iostream>
...@@ -146,9 +146,9 @@ extern "C" ...@@ -146,9 +146,9 @@ extern "C"
const double*, const double*, const int*, const int*, const int*, const double*, const double*, const int*, const int*, const int*,
const double*, double*, const int*, const int*, const int*); const double*, double*, const int*, const int*, const int*);
void pzherk(const char*, const char*, const int*, const int*, void pzherk(const char*, const char*, const int*, const int*,
const complex<double>*, const complex<double>*, const int*, const double*, const complex<double>*, const int*,
const int*, const int*, const int*, const int*,
const complex<double>*, complex<double>*, const int*, const double*, complex<double>*, const int*,
const int*, const int*); const int*, const int*);
void pdtran(const int*,const int*, const double*, void pdtran(const int*,const int*, const double*,
const double*, const int*, const int*, const int*, const double*, const int*, const int*, const int*,
...@@ -275,9 +275,9 @@ extern "C" ...@@ -275,9 +275,9 @@ extern "C"
const double *, const double *, const int *, const double *, const double *, const int *,
const double *, double *, const int *); const double *, double *, const int *);
void zherk(const char* uplo, const char* trans, const int* n, const int* k, void zherk(const char* uplo, const char* trans, const int* n, const int* k,
const complex<double>* alpha, const complex<double>* a, const double* alpha, const complex<double>* a,
const int* lda, const int* lda,
const complex<double>* beta, complex<double>* c, const int* ldc); const double* beta, complex<double>* c, const int* ldc);
void dtrmm(const char*, const char*, const char*, const char*, void dtrmm(const char*, const char*, const char*, const char*,
const int*, const int *, const double*, const double*, const int*, const int *, const double*, const double*,
const int*, double*, const int*); const int*, double*, const int*);
...@@ -2069,8 +2069,7 @@ void DoubleMatrix::syrk(char uplo, char trans, ...@@ -2069,8 +2069,7 @@ void DoubleMatrix::syrk(char uplo, char trans,
// this = beta * this + alpha * A^H * A (trans=='c') // this = beta * this + alpha * A^H * A (trans=='c')
//////////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////////
void ComplexMatrix::herk(char uplo, char trans, void ComplexMatrix::herk(char uplo, char trans,
complex<double> alpha, const ComplexMatrix& a, double alpha, const ComplexMatrix& a, double beta)
complex<double> beta)
{ {
assert( ictxt_ == a.ictxt() ); assert( ictxt_ == a.ictxt() );
assert( n_ == m_ ); // *this must be a square matrix assert( n_ == m_ ); // *this must be a square matrix
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment