Commit 82a3d2ef by Francois Gygi

fixed scalapack call

git-svn-id: http://qboxcode.org/svn/qb/trunk@1456 cba15fb0-1239-40c8-b417-11db7ca47a34
parent 4c8394c6
...@@ -121,7 +121,7 @@ int main(int argc, char **argv) ...@@ -121,7 +121,7 @@ int main(int argc, char **argv)
// cout << a; // cout << a;
valarray<double> w(a.m()); valarray<double> w(a.m());
DoubleMatrix asave(a); DoubleMatrix asave(a);
a.syevd('u',w); a.syev('u',w);
cout << " frequencies:" << endl; cout << " frequencies:" << endl;
for ( int i = 0; i < a.n(); i++ ) for ( int i = 0; i < a.n(); i++ )
...@@ -133,7 +133,7 @@ int main(int argc, char **argv) ...@@ -133,7 +133,7 @@ int main(int argc, char **argv)
} }
a = asave; a = asave;
a.syevd('l',w); a.syev('l',w);
cout << " frequencies:" << endl; cout << " frequencies:" << endl;
for ( int i = 0; i < a.n(); i++ ) for ( int i = 0; i < a.n(); i++ )
{ {
......
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