-
Notifications
You must be signed in to change notification settings - Fork 110
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
Merge pull request #226 from ndryden/master
Support block matrices in several BLAS1 routines
- Loading branch information
Showing
8 changed files
with
366 additions
and
27 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,134 @@ | ||
| /* | ||
| Copyright (c) 2009-2016, Jack Poulson | ||
| All rights reserved. | ||
| This file is part of Elemental and is under the BSD 2-Clause License, | ||
| which can be found in the LICENSE file in the root directory, or at | ||
| http://opensource.org/licenses/BSD-2-Clause | ||
| */ | ||
|
|
||
| #include <El.hpp> | ||
| using namespace El; | ||
|
|
||
| template <typename T, DistWrap W> | ||
| void TestColumnTwoNorms(Int m, Int n, const Grid& g, bool print) | ||
| { | ||
| // Generate random matrix to test. | ||
| DistMatrix<T, MC, MR, W> A(g); | ||
| Uniform(A, m, n); | ||
| if (print) | ||
| Print(A, "A"); | ||
| DistMatrix<T, MR, STAR, W> norms(g); | ||
| ColumnTwoNorms(A, norms); | ||
| if (print) | ||
| Print(norms, "norms"); | ||
| for (Int j = 0; j < A.LocalWidth(); ++j) | ||
| { | ||
| T got = norms.GetLocal(j, 0); | ||
| T expected = 0; | ||
| for (Int i = 0; i < A.LocalHeight(); ++i) | ||
| { | ||
| T val = A.GetLocal(i, j); | ||
| expected += val * val; | ||
| } | ||
| expected = mpi::AllReduce(expected, g.ColComm()); | ||
| expected = Sqrt(expected); | ||
| // Compute max(expected, 1) to use relative bound. | ||
| // (std::max and El::Max don't support BigFloat. | ||
| T div = expected > 1 ? expected : 1; | ||
| if (Abs(got - expected) / div > m * n * 10 * limits::Epsilon<El::Base<T>>()) | ||
| { | ||
| Output("Results do not match, norms(", j, ")=", got, | ||
| " instead of ", expected); | ||
| RuntimeError("got != expected"); | ||
| } | ||
| } | ||
| } | ||
|
|
||
| template <typename T, DistWrap W> | ||
| void TestColumnMaxNorms(Int m, Int n, const Grid& g, bool print) | ||
| { | ||
| // Generate random matrix to test. | ||
| DistMatrix<T, MC, MR, W> A(g); | ||
| Uniform(A, m, n); | ||
| if (print) | ||
| Print(A, "A"); | ||
| DistMatrix<T, MR, STAR, W> norms(g); | ||
| ColumnMaxNorms(A, norms); | ||
| if (print) | ||
| Print(norms, "norms"); | ||
| for (Int j = 0; j < A.LocalWidth(); ++j) | ||
| { | ||
| T got = norms.GetLocal(j, 0); | ||
| T expected = 0; | ||
| for (Int i = 0; i < A.LocalHeight(); ++i) | ||
| expected = Max(expected, Abs(A.GetLocal(i, j))); | ||
| T r; | ||
| mpi::AllReduce(&expected, &r, 1, mpi::MAX, g.ColComm()); | ||
| expected = r; | ||
| if (got != expected) | ||
| { | ||
| Output("Results do not match, norms(", j, ")=", got, | ||
| " instead of ", expected); | ||
| RuntimeError("got != expected"); | ||
| } | ||
| } | ||
| } | ||
|
|
||
| int main(int argc, char** argv) | ||
| { | ||
| Environment env(argc, argv); | ||
| mpi::Comm comm = mpi::COMM_WORLD; | ||
| try | ||
| { | ||
| const Int m = Input("--m", "height", 100); | ||
| const Int n = Input("--n", "width", 100); | ||
| const bool print = Input("--print", "print matrices?", false); | ||
| ProcessInput(); | ||
| PrintInputReport(); | ||
|
|
||
| const Grid g(comm); | ||
| OutputFromRoot(comm, "Testing ColumnTwoNorms"); | ||
| TestColumnTwoNorms<float, ELEMENT>(m, n, g, print); | ||
| TestColumnTwoNorms<float, BLOCK>(m, n, g, print); | ||
| TestColumnTwoNorms<double, ELEMENT>(m, n, g, print); | ||
| TestColumnTwoNorms<double, BLOCK>(m, n, g, print); | ||
| #if defined(EL_HAVE_QD) | ||
| TestColumnTwoNorms<DoubleDouble, ELEMENT>(m, n, g, print); | ||
| TestColumnTwoNorms<DoubleDouble, BLOCK>(m, n, g, print); | ||
| TestColumnTwoNorms<QuadDouble, ELEMENT>(m, n, g, print); | ||
| TestColumnTwoNorms<QuadDouble, BLOCK>(m, n, g, print); | ||
| #endif | ||
| #if defined(EL_HAVE_QUAD) | ||
| TestColumnTwoNorms<Quad, ELEMENT>(m, n, g, print); | ||
| TestColumnTwoNorms<Quad, BLOCK>(m, n, g, print); | ||
| #endif | ||
| #if defined(EL_HAVE_MPC) | ||
| TestColumnTwoNorms<BigFloat, ELEMENT>(m, n, g, print); | ||
| TestColumnTwoNorms<BigFloat, BLOCK>(m, n, g, print); | ||
| #endif | ||
| OutputFromRoot(comm, "Testing ColumnMaxNorms"); | ||
| TestColumnMaxNorms<float, ELEMENT>(m, n, g, print); | ||
| TestColumnMaxNorms<float, BLOCK>(m, n, g, print); | ||
| TestColumnMaxNorms<double, ELEMENT>(m, n, g, print); | ||
| TestColumnMaxNorms<double, BLOCK>(m, n, g, print); | ||
| #if defined(EL_HAVE_QD) | ||
| TestColumnMaxNorms<DoubleDouble, ELEMENT>(m, n, g, print); | ||
| TestColumnMaxNorms<DoubleDouble, BLOCK>(m, n, g, print); | ||
| TestColumnMaxNorms<QuadDouble, ELEMENT>(m, n, g, print); | ||
| TestColumnMaxNorms<QuadDouble, BLOCK>(m, n, g, print); | ||
| #endif | ||
| #if defined(EL_HAVE_QUAD) | ||
| TestColumnMaxNorms<Quad, ELEMENT>(m, n, g, print); | ||
| TestColumnMaxNorms<Quad, BLOCK>(m, n, g, print); | ||
| #endif | ||
| #if defined(EL_HAVE_MPC) | ||
| TestColumnMaxNorms<BigFloat, ELEMENT>(m, n, g, print); | ||
| TestColumnMaxNorms<BigFloat, BLOCK>(m, n, g, print); | ||
| #endif | ||
| } | ||
| catch (exception& e) | ||
| { | ||
| ReportException(e); | ||
| } | ||
| } |
Oops, something went wrong.