Chris@16: //
Chris@16: //  Copyright (c) 2002-2003
Chris@16: //  Toon Knapen, Kresimir Fresl, Joerg Walter
Chris@16: //
Chris@16: //  Distributed under the Boost Software License, Version 1.0. (See
Chris@16: //  accompanying file LICENSE_1_0.txt or copy at
Chris@16: //  http://www.boost.org/LICENSE_1_0.txt)
Chris@16: //
Chris@16: //
Chris@16: 
Chris@16: #ifndef _BOOST_UBLAS_RAW_
Chris@16: #define _BOOST_UBLAS_RAW_
Chris@16: 
Chris@16: namespace boost { namespace numeric { namespace ublas { namespace raw {
Chris@16: 
Chris@16:     // We need data_const() mostly due to MSVC 6.0.
Chris@16:     // But how shall we write portable code otherwise?
Chris@16: 
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int size( const V &v ) ;
Chris@16: 
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int size( const vector_reference<V> &v ) ;
Chris@16: 
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int size1( const M &m ) ;
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int size2( const M &m ) ;
Chris@16: 
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int size1( const matrix_reference<M> &m ) ;
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int size2( const matrix_reference<M> &m ) ;
Chris@16: 
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int leading_dimension( const M &m, row_major_tag ) ;
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int leading_dimension( const M &m, column_major_tag ) ;
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int leading_dimension( const M &m ) ;
Chris@16: 
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int leading_dimension( const matrix_reference<M> &m ) ;
Chris@16: 
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int stride( const V &v ) ;
Chris@16: 
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int stride( const vector_range<V> &v ) ;
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int stride( const vector_slice<V> &v ) ;
Chris@16: 
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int stride( const matrix_row<M> &v ) ;
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int stride( const matrix_column<M> &v ) ;
Chris@16: 
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int stride1( const M &m ) ;
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int stride2( const M &m ) ;
Chris@16: 
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int stride1( const matrix_reference<M> &m ) ;
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int stride2( const matrix_reference<M> &m ) ;
Chris@16: 
Chris@16:     template < typename T, std::size_t M, std::size_t N >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int stride1( const c_matrix<T, M, N> &m ) ;
Chris@16:     template < typename T, std::size_t M, std::size_t N >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int stride2( const c_matrix<T, M, N> &m ) ;
Chris@16: 
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int stride1( const matrix_range<M> &m ) ;
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int stride1( const matrix_slice<M> &m ) ;
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int stride2( const matrix_range<M> &m ) ;
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int stride2( const matrix_slice<M> &m ) ;
Chris@16: 
Chris@16:     template < typename MV >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename MV::array_type::array_type::const_pointer data( const MV &mv ) ;
Chris@16:     template < typename MV >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename MV::array_type::array_type::const_pointer data_const( const MV &mv ) ;
Chris@16:     template < typename MV >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename MV::array_type::pointer data( MV &mv ) ;
Chris@16: 
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename V::array_type::array_type::const_pointer data( const vector_reference<V> &v ) ;
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename V::array_type::array_type::const_pointer data_const( const vector_reference<V> &v ) ;
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename V::array_type::pointer data( vector_reference<V> &v ) ;
Chris@16: 
Chris@16:     template < typename T, std::size_t N >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename c_vector<T, N>::array_type::array_type::const_pointer data( const c_vector<T, N> &v ) ;
Chris@16:     template < typename T, std::size_t N >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename c_vector<T, N>::array_type::array_type::const_pointer data_const( const c_vector<T, N> &v ) ;
Chris@16:     template < typename T, std::size_t N >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename c_vector<T, N>::pointer data( c_vector<T, N> &v ) ;
Chris@16: 
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename V::array_type::array_type::const_pointer data( const vector_range<V> &v ) ;
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename V::array_type::array_type::const_pointer data( const vector_slice<V> &v ) ;
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename V::array_type::array_type::const_pointer data_const( const vector_range<V> &v ) ;
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename V::array_type::array_type::const_pointer data_const( const vector_slice<V> &v ) ;
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename V::array_type::pointer data( vector_range<V> &v ) ;
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename V::array_type::pointer data( vector_slice<V> &v ) ;
Chris@16: 
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::array_type::const_pointer data( const matrix_reference<M> &m ) ;
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::array_type::const_pointer data_const( const matrix_reference<M> &m ) ;
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::pointer data( matrix_reference<M> &m ) ;
Chris@16: 
Chris@16:     template < typename T, std::size_t M, std::size_t N >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename c_matrix<T, M, N>::array_type::array_type::const_pointer data( const c_matrix<T, M, N> &m ) ;
Chris@16:     template < typename T, std::size_t M, std::size_t N >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename c_matrix<T, M, N>::array_type::array_type::const_pointer data_const( const c_matrix<T, M, N> &m ) ;
Chris@16:     template < typename T, std::size_t M, std::size_t N >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename c_matrix<T, M, N>::pointer data( c_matrix<T, M, N> &m ) ;
Chris@16: 
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::array_type::const_pointer data( const matrix_row<M> &v ) ;
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::array_type::const_pointer data( const matrix_column<M> &v ) ;
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::array_type::const_pointer data_const( const matrix_row<M> &v ) ;
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::array_type::const_pointer data_const( const matrix_column<M> &v ) ;
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::pointer data( matrix_row<M> &v ) ;
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::pointer data( matrix_column<M> &v ) ;
Chris@16: 
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::array_type::const_pointer data( const matrix_range<M> &m ) ;
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::array_type::const_pointer data( const matrix_slice<M> &m ) ;
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::array_type::const_pointer data_const( const matrix_range<M> &m ) ;
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::array_type::const_pointer data_const( const matrix_slice<M> &m ) ;
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::pointer data( matrix_range<M> &m ) ;
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::pointer data( matrix_slice<M> &m ) ;
Chris@16: 
Chris@16:     template < typename MV >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename MV::array_type::array_type::const_pointer base( const MV &mv ) ;
Chris@16: 
Chris@16:     template < typename MV >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename MV::array_type::array_type::const_pointer base_const( const MV &mv ) ;
Chris@16:     template < typename MV >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename MV::array_type::pointer base( MV &mv ) ;
Chris@16: 
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename V::array_type::array_type::const_pointer base( const vector_reference<V> &v ) ;
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename V::array_type::array_type::const_pointer base_const( const vector_reference<V> &v ) ;
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename V::array_type::pointer base( vector_reference<V> &v ) ;
Chris@16: 
Chris@16:     template < typename T, std::size_t N >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename c_vector<T, N>::array_type::array_type::const_pointer base( const c_vector<T, N> &v ) ;
Chris@16:     template < typename T, std::size_t N >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename c_vector<T, N>::array_type::array_type::const_pointer base_const( const c_vector<T, N> &v ) ;
Chris@16:     template < typename T, std::size_t N >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename c_vector<T, N>::pointer base( c_vector<T, N> &v ) ;
Chris@16: 
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename V::array_type::array_type::const_pointer base( const vector_range<V> &v ) ;
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename V::array_type::array_type::const_pointer base( const vector_slice<V> &v ) ;
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename V::array_type::array_type::const_pointer base_const( const vector_range<V> &v ) ;
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename V::array_type::array_type::const_pointer base_const( const vector_slice<V> &v ) ;
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename V::array_type::pointer base( vector_range<V> &v ) ;
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename V::array_type::pointer base( vector_slice<V> &v ) ;
Chris@16: 
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::array_type::const_pointer base( const matrix_reference<M> &m ) ;
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::array_type::const_pointer base_const( const matrix_reference<M> &m ) ;
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::pointer base( matrix_reference<M> &m ) ;
Chris@16: 
Chris@16:     template < typename T, std::size_t M, std::size_t N >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename c_matrix<T, M, N>::array_type::array_type::const_pointer base( const c_matrix<T, M, N> &m ) ;
Chris@16:     template < typename T, std::size_t M, std::size_t N >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename c_matrix<T, M, N>::array_type::array_type::const_pointer base_const( const c_matrix<T, M, N> &m ) ;
Chris@16:     template < typename T, std::size_t M, std::size_t N >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename c_matrix<T, M, N>::pointer base( c_matrix<T, M, N> &m ) ;
Chris@16: 
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::array_type::const_pointer base( const matrix_row<M> &v ) ;
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::array_type::const_pointer base( const matrix_column<M> &v ) ;
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::array_type::const_pointer base_const( const matrix_row<M> &v ) ;
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::array_type::const_pointer base_const( const matrix_column<M> &v ) ;
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::pointer base( matrix_row<M> &v ) ;
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::pointer base( matrix_column<M> &v ) ;
Chris@16: 
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::array_type::const_pointer base( const matrix_range<M> &m ) ;
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::array_type::const_pointer base( const matrix_slice<M> &m ) ;
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::array_type::const_pointer base_const( const matrix_range<M> &m ) ;
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::array_type::const_pointer base_const( const matrix_slice<M> &m ) ;
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::pointer base( matrix_range<M> &m ) ;
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::pointer base( matrix_slice<M> &m ) ;
Chris@16: 
Chris@16:     template < typename MV >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename MV::size_type start( const MV &mv ) ;
Chris@16: 
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename V::size_type start( const vector_range<V> &v ) ;
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename V::size_type start( const vector_slice<V> &v ) ;
Chris@16: 
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::size_type start( const matrix_row<M> &v ) ;
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::size_type start( const matrix_column<M> &v ) ;
Chris@16: 
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::size_type start( const matrix_range<M> &m ) ;
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::size_type start( const matrix_slice<M> &m ) ;
Chris@16: 
Chris@16: 
Chris@16: 
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int size( const V &v ) {
Chris@16:         return v.size() ;
Chris@16:     }
Chris@16: 
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int size( const vector_reference<V> &v ) {
Chris@16:         return size( v ) ;
Chris@16:     }
Chris@16: 
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int size1( const M &m ) {
Chris@16:         return m.size1() ;
Chris@16:     }
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int size2( const M &m ) {
Chris@16:         return m.size2() ;
Chris@16:     }
Chris@16: 
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int size1( const matrix_reference<M> &m ) {
Chris@16:         return size1( m.expression() ) ;
Chris@16:     }
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int size2( const matrix_reference<M> &m ) {
Chris@16:         return size2( m.expression() ) ;
Chris@16:     }
Chris@16: 
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int leading_dimension( const M &m, row_major_tag ) {
Chris@16:         return m.size2() ;
Chris@16:     }
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int leading_dimension( const M &m, column_major_tag ) {
Chris@16:         return m.size1() ;
Chris@16:     }
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int leading_dimension( const M &m ) {
Chris@16:         return leading_dimension( m, typename M::orientation_category() ) ;
Chris@16:     }
Chris@16: 
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int leading_dimension( const matrix_reference<M> &m ) {
Chris@16:         return leading_dimension( m.expression() ) ;
Chris@16:     }
Chris@16: 
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int stride( const V &v ) {
Chris@16:         return 1 ;
Chris@16:     }
Chris@16: 
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int stride( const vector_range<V> &v ) {
Chris@16:         return stride( v.data() ) ;
Chris@16:     }
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int stride( const vector_slice<V> &v ) {
Chris@16:         return v.stride() * stride( v.data() ) ;
Chris@16:     }
Chris@16: 
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int stride( const matrix_row<M> &v ) {
Chris@16:         return stride2( v.data() ) ;
Chris@16:     }
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int stride( const matrix_column<M> &v ) {
Chris@16:         return stride1( v.data() ) ;
Chris@16:     }
Chris@16: 
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int stride1( const M &m ) {
Chris@16:         typedef typename M::functor_type functor_type;
Chris@16:         return functor_type::one1( m.size1(), m.size2() ) ;
Chris@16:     }
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int stride2( const M &m ) {
Chris@16:         typedef typename M::functor_type functor_type;
Chris@16:         return functor_type::one2( m.size1(), m.size2() ) ;
Chris@16:     }
Chris@16: 
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int stride1( const matrix_reference<M> &m ) {
Chris@16:         return stride1( m.expression() ) ;
Chris@16:     }
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int stride2( const matrix_reference<M> &m ) {
Chris@16:         return stride2( m.expression() ) ;
Chris@16:     }
Chris@16: 
Chris@16:     template < typename T, std::size_t M, std::size_t N >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int stride1( const c_matrix<T, M, N> &m ) {
Chris@16:         return N ;
Chris@16:     }
Chris@16:     template < typename T, std::size_t M, std::size_t N >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int stride2( const c_matrix<T, M, N> &m ) {
Chris@16:         return 1 ;
Chris@16:     }
Chris@16: 
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int stride1( const matrix_range<M> &m ) {
Chris@16:         return stride1( m.data() ) ;
Chris@16:     }
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int stride1( const matrix_slice<M> &m ) {
Chris@16:         return m.stride1() * stride1( m.data() ) ;
Chris@16:     }
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int stride2( const matrix_range<M> &m ) {
Chris@16:         return stride2( m.data() ) ;
Chris@16:     }
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     int stride2( const matrix_slice<M> &m ) {
Chris@16:         return m.stride2() * stride2( m.data() ) ;
Chris@16:     }
Chris@16: 
Chris@16:     template < typename MV >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename MV::array_type::array_type::array_type::const_pointer data( const MV &mv ) {
Chris@16:         return &mv.data().begin()[0] ;
Chris@16:     }
Chris@16:     template < typename MV >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename MV::array_type::array_type::const_pointer data_const( const MV &mv ) {
Chris@16:         return &mv.data().begin()[0] ;
Chris@16:     }
Chris@16:     template < typename MV >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename MV::array_type::pointer data( MV &mv ) {
Chris@16:         return &mv.data().begin()[0] ;
Chris@16:     }
Chris@16: 
Chris@16: 
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename V::array_type::array_type::const_pointer data( const vector_reference<V> &v ) {
Chris@16:         return data( v.expression () ) ;
Chris@16:     }
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename V::array_type::array_type::const_pointer data_const( const vector_reference<V> &v ) {
Chris@16:         return data_const( v.expression () ) ;
Chris@16:     }
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename V::array_type::pointer data( vector_reference<V> &v ) {
Chris@16:         return data( v.expression () ) ;
Chris@16:     }
Chris@16: 
Chris@16:     template < typename T, std::size_t N >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename c_vector<T, N>::array_type::array_type::const_pointer data( const c_vector<T, N> &v ) {
Chris@16:         return v.data() ;
Chris@16:     }
Chris@16:     template < typename T, std::size_t N >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename c_vector<T, N>::array_type::array_type::const_pointer data_const( const c_vector<T, N> &v ) {
Chris@16:         return v.data() ;
Chris@16:     }
Chris@16:     template < typename T, std::size_t N >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename c_vector<T, N>::pointer data( c_vector<T, N> &v ) {
Chris@16:         return v.data() ;
Chris@16:     }
Chris@16: 
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename V::array_type::array_type::const_pointer data( const vector_range<V> &v ) {
Chris@16:         return data( v.data() ) + v.start() * stride (v.data() ) ;
Chris@16:     }
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename V::array_type::array_type::const_pointer data( const vector_slice<V> &v ) {
Chris@16:         return data( v.data() ) + v.start() * stride (v.data() ) ;
Chris@16:     }
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename V::array_type::array_type::const_pointer data_const( const vector_range<V> &v ) {
Chris@16:         return data_const( v.data() ) + v.start() * stride (v.data() ) ;
Chris@16:     }
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename V::array_type::const_pointer data_const( const vector_slice<V> &v ) {
Chris@16:         return data_const( v.data() ) + v.start() * stride (v.data() ) ;
Chris@16:     }
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename V::array_type::pointer data( vector_range<V> &v ) {
Chris@16:         return data( v.data() ) + v.start() * stride (v.data() ) ;
Chris@16:     }
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename V::array_type::pointer data( vector_slice<V> &v ) {
Chris@16:         return data( v.data() ) + v.start() * stride (v.data() ) ;
Chris@16:     }
Chris@16: 
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::const_pointer data( const matrix_reference<M> &m ) {
Chris@16:         return data( m.expression () ) ;
Chris@16:     }
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::const_pointer data_const( const matrix_reference<M> &m ) {
Chris@16:         return data_const( m.expression () ) ;
Chris@16:     }
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::pointer data( matrix_reference<M> &m ) {
Chris@16:         return data( m.expression () ) ;
Chris@16:     }
Chris@16: 
Chris@16:     template < typename T, std::size_t M, std::size_t N >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename c_matrix<T, M, N>::array_type::const_pointer data( const c_matrix<T, M, N> &m ) {
Chris@16:         return m.data() ;
Chris@16:     }
Chris@16:     template < typename T, std::size_t M, std::size_t N >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename c_matrix<T, M, N>::array_type::const_pointer data_const( const c_matrix<T, M, N> &m ) {
Chris@16:         return m.data() ;
Chris@16:     }
Chris@16:     template < typename T, std::size_t M, std::size_t N >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename c_matrix<T, M, N>::pointer data( c_matrix<T, M, N> &m ) {
Chris@16:         return m.data() ;
Chris@16:     }
Chris@16: 
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::const_pointer data( const matrix_row<M> &v ) {
Chris@16:         return data( v.data() ) + v.index() * stride1( v.data() ) ;
Chris@16:     }
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::const_pointer data( const matrix_column<M> &v ) {
Chris@16:         return data( v.data() ) + v.index() * stride2( v.data() ) ;
Chris@16:     }
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::const_pointer data_const( const matrix_row<M> &v ) {
Chris@16:         return data_const( v.data() ) + v.index() * stride1( v.data() ) ;
Chris@16:     }
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::const_pointer data_const( const matrix_column<M> &v ) {
Chris@16:         return data_const( v.data() ) + v.index() * stride2( v.data() ) ;
Chris@16:     }
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::pointer data( matrix_row<M> &v ) {
Chris@16:         return data( v.data() ) + v.index() * stride1( v.data() ) ;
Chris@16:     }
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::pointer data( matrix_column<M> &v ) {
Chris@16:         return data( v.data() ) + v.index() * stride2( v.data() ) ;
Chris@16:     }
Chris@16: 
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::const_pointer data( const matrix_range<M> &m ) {
Chris@16:         return data( m.data() ) + m.start1() * stride1( m.data () ) + m.start2() * stride2( m.data () ) ;
Chris@16:     }
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::const_pointer data( const matrix_slice<M> &m ) {
Chris@16:         return data( m.data() ) + m.start1() * stride1( m.data () ) + m.start2() * stride2( m.data () ) ;
Chris@16:     }
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::const_pointer data_const( const matrix_range<M> &m ) {
Chris@16:         return data_const( m.data() ) + m.start1() * stride1( m.data () ) + m.start2() * stride2( m.data () ) ;
Chris@16:     }
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::const_pointer data_const( const matrix_slice<M> &m ) {
Chris@16:         return data_const( m.data() ) + m.start1() * stride1( m.data () ) + m.start2() * stride2( m.data () ) ;
Chris@16:     }
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::pointer data( matrix_range<M> &m ) {
Chris@16:         return data( m.data() ) + m.start1() * stride1( m.data () ) + m.start2() * stride2( m.data () ) ;
Chris@16:     }
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::pointer data( matrix_slice<M> &m ) {
Chris@16:         return data( m.data() ) + m.start1() * stride1( m.data () ) + m.start2() * stride2( m.data () ) ;
Chris@16:     }
Chris@16: 
Chris@16: 
Chris@16:     template < typename MV >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename MV::array_type::const_pointer base( const MV &mv ) {
Chris@16:         return &mv.data().begin()[0] ;
Chris@16:     }
Chris@16:     template < typename MV >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename MV::array_type::const_pointer base_const( const MV &mv ) {
Chris@16:         return &mv.data().begin()[0] ;
Chris@16:     }
Chris@16:     template < typename MV >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename MV::array_type::pointer base( MV &mv ) {
Chris@16:         return &mv.data().begin()[0] ;
Chris@16:     }
Chris@16: 
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename V::array_type::const_pointer base( const vector_reference<V> &v ) {
Chris@16:         return base( v.expression () ) ;
Chris@16:     }
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename V::array_type::const_pointer base_const( const vector_reference<V> &v ) {
Chris@16:         return base_const( v.expression () ) ;
Chris@16:     }
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename V::array_type::pointer base( vector_reference<V> &v ) {
Chris@16:         return base( v.expression () ) ;
Chris@16:     }
Chris@16: 
Chris@16:     template < typename T, std::size_t N >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename c_vector<T, N>::array_type::const_pointer base( const c_vector<T, N> &v ) {
Chris@16:         return v.data() ;
Chris@16:     }
Chris@16:     template < typename T, std::size_t N >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename c_vector<T, N>::array_type::const_pointer base_const( const c_vector<T, N> &v ) {
Chris@16:         return v.data() ;
Chris@16:     }
Chris@16:     template < typename T, std::size_t N >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename c_vector<T, N>::pointer base( c_vector<T, N> &v ) {
Chris@16:         return v.data() ;
Chris@16:     }
Chris@16: 
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename V::array_type::const_pointer base( const vector_range<V> &v ) {
Chris@16:         return base( v.data() ) ;
Chris@16:     }
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename V::array_type::const_pointer base( const vector_slice<V> &v ) {
Chris@16:         return base( v.data() ) ;
Chris@16:     }
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename V::array_type::const_pointer base_const( const vector_range<V> &v ) {
Chris@16:         return base_const( v.data() ) ;
Chris@16:     }
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename V::array_type::const_pointer base_const( const vector_slice<V> &v ) {
Chris@16:         return base_const( v.data() ) ;
Chris@16:     }
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename V::array_type::pointer base( vector_range<V> &v ) {
Chris@16:         return base( v.data() ) ;
Chris@16:     }
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename V::array_type::pointer base( vector_slice<V> &v ) {
Chris@16:         return base( v.data() ) ;
Chris@16:     }
Chris@16: 
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::const_pointer base( const matrix_reference<M> &m ) {
Chris@16:         return base( m.expression () ) ;
Chris@16:     }
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::const_pointer base_const( const matrix_reference<M> &m ) {
Chris@16:         return base_const( m.expression () ) ;
Chris@16:     }
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::pointer base( matrix_reference<M> &m ) {
Chris@16:         return base( m.expression () ) ;
Chris@16:     }
Chris@16: 
Chris@16:     template < typename T, std::size_t M, std::size_t N >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename c_matrix<T, M, N>::array_type::const_pointer base( const c_matrix<T, M, N> &m ) {
Chris@16:         return m.data() ;
Chris@16:     }
Chris@16:     template < typename T, std::size_t M, std::size_t N >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename c_matrix<T, M, N>::array_type::const_pointer base_const( const c_matrix<T, M, N> &m ) {
Chris@16:         return m.data() ;
Chris@16:     }
Chris@16:     template < typename T, std::size_t M, std::size_t N >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename c_matrix<T, M, N>::pointer base( c_matrix<T, M, N> &m ) {
Chris@16:         return m.data() ;
Chris@16:     }
Chris@16: 
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::const_pointer base( const matrix_row<M> &v ) {
Chris@16:         return base( v.data() ) ;
Chris@16:     }
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::const_pointer base( const matrix_column<M> &v ) {
Chris@16:         return base( v.data() ) ;
Chris@16:     }
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::const_pointer base_const( const matrix_row<M> &v ) {
Chris@16:         return base_const( v.data() ) ;
Chris@16:     }
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::const_pointer base_const( const matrix_column<M> &v ) {
Chris@16:         return base_const( v.data() ) ;
Chris@16:     }
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::pointer base( matrix_row<M> &v ) {
Chris@16:         return base( v.data() ) ;
Chris@16:     }
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::pointer base( matrix_column<M> &v ) {
Chris@16:         return base( v.data() ) ;
Chris@16:     }
Chris@16: 
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::const_pointer base( const matrix_range<M> &m ) {
Chris@16:         return base( m.data() ) ;
Chris@16:     }
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::const_pointer base( const matrix_slice<M> &m ) {
Chris@16:         return base( m.data() ) ;
Chris@16:     }
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::const_pointer base_const( const matrix_range<M> &m ) {
Chris@16:         return base_const( m.data() ) ;
Chris@16:     }
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::const_pointer base_const( const matrix_slice<M> &m ) {
Chris@16:         return base_const( m.data() ) ;
Chris@16:     }
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::pointer base( matrix_range<M> &m ) {
Chris@16:         return base( m.data() ) ;
Chris@16:     }
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::array_type::pointer base( matrix_slice<M> &m ) {
Chris@16:         return base( m.data() ) ;
Chris@16:     }
Chris@16: 
Chris@16:     template < typename MV >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename MV::size_type start( const MV &mv ) {
Chris@16:         return 0 ;
Chris@16:     }
Chris@16: 
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename V::size_type start( const vector_range<V> &v ) {
Chris@16:         return v.start() * stride (v.data() ) ;
Chris@16:     }
Chris@16:     template < typename V >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename V::size_type start( const vector_slice<V> &v ) {
Chris@16:         return v.start() * stride (v.data() ) ;
Chris@16:     }
Chris@16: 
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::size_type start( const matrix_row<M> &v ) {
Chris@16:         return v.index() * stride1( v.data() ) ;
Chris@16:     }
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::size_type start( const matrix_column<M> &v ) {
Chris@16:         return v.index() * stride2( v.data() ) ;
Chris@16:     }
Chris@16: 
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::size_type start( const matrix_range<M> &m ) {
Chris@16:         return m.start1() * stride1( m.data () ) + m.start2() * stride2( m.data () ) ;
Chris@16:     }
Chris@16:     template < typename M >
Chris@16:     BOOST_UBLAS_INLINE
Chris@16:     typename M::size_type start( const matrix_slice<M> &m ) {
Chris@16:         return m.start1() * stride1( m.data () ) + m.start2() * stride2( m.data () ) ;
Chris@16:     }
Chris@16: 
Chris@16: }}}}
Chris@16: 
Chris@16: #endif