[Boost-commit] svn:boost r51720 - sandbox/numeric_bindings/boost/numeric/bindings/blas

Subject: [Boost-commit] svn:boost r51720 - sandbox/numeric_bindings/boost/numeric/bindings/blas
From: rutger_at_[hidden]
Date: 2009-03-11 16:48:38

Author: rutger
Date: 2009-03-11 16:48:38 EDT (Wed, 11 Mar 2009)
New Revision: 51720
URL: http://svn.boost.org/trac/boost/changeset/51720

Log:
added norm_1 to blas functions

Added:
   sandbox/numeric_bindings/boost/numeric/bindings/blas/norm_1.hpp   (contents, props changed)

Added: sandbox/numeric_bindings/boost/numeric/bindings/blas/norm_1.hpp
==============================================================================
--- (empty file)
+++ sandbox/numeric_bindings/boost/numeric/bindings/blas/norm_1.hpp	2009-03-11 16:48:38 EDT (Wed, 11 Mar 2009)
@@ -0,0 +1,29 @@
+//
+// Copyright (c) 2009 Rutger ter Borg
+//
+// Distributed under the Boost Software License, Version 1.0.
+// (See accompanying file LICENSE_1_0.txt or copy at
+// http://www.boost.org/LICENSE_1_0.txt)
+//
+
+#ifndef BOOST_NUMERIC_BINDINGS_BLAS_NORM_1_HPP
+#define BOOST_NUMERIC_BINDINGS_BLAS_NORM_1_HPP
+
+#include <boost/numeric/bindings/blas/level1/asum.hpp>
+
+namespace boost {
+namespace numeric {
+namespace bindings {
+namespace blas {
+
+template< typename VectorX >
+inline typename level1::asum_impl<
+    typename traits::vector_traits< VectorX >::value_type >::return_type
+norm_1( VectorX& x ) {
+    typedef typename traits::vector_traits< VectorX >::value_type value_type;
+    return level1::asum_impl< value_type >::compute( x );
+}
+
+}}}} // namespace boost::numeric::bindings::blas
+
+#endif