Index: boost/numeric/ublas/functional.hpp
===================================================================
RCS file: /cvsroot/boost/boost/boost/numeric/ublas/functional.hpp,v
retrieving revision 1.29
diff -u -p -r1.29 functional.hpp
--- boost/numeric/ublas/functional.hpp	10 Mar 2005 12:10:18 -0000	1.29
+++ boost/numeric/ublas/functional.hpp	3 May 2005 14:21:05 -0000
@@ -35,6 +35,7 @@ namespace boost { namespace numeric { na
 #include <boost/numeric/bindings/traits/ublas_matrix.hpp>
 #include <boost/numeric/bindings/atlas/cblas.hpp>
 #endif
+#include <boost/concept_check.hpp>
 
 
 
@@ -1449,6 +1450,7 @@ namespace boost { namespace numeric { na
             BOOST_UBLAS_CHECK (j < size2, bad_index ());
             // Guard against size_type overflow
             BOOST_UBLAS_CHECK (i <= ((std::numeric_limits<size_type>::max) () - j) / size2, bad_index ());
+	    boost::ignore_unused_variable_warning(size1);
             return i * size2 + j;
         }
         static
@@ -1458,6 +1460,7 @@ namespace boost { namespace numeric { na
             BOOST_UBLAS_CHECK (j <= size2, bad_index ());
             // Guard against size_type overflow - address may be size2 past end of storage
             BOOST_UBLAS_CHECK (size2 == 0 || i <= ((std::numeric_limits<size_type>::max) () - j) / size2, bad_index ());
+	    boost::ignore_unused_variable_warning(size1);
             return i * size2 + j;
         }
         static
@@ -1529,24 +1532,28 @@ namespace boost { namespace numeric { na
         BOOST_UBLAS_INLINE
         size_type element1 (size_type i, size_type size1, size_type /* j */, size_type /* size2 */) {
             BOOST_UBLAS_CHECK (i < size1, bad_index ());
+	    boost::ignore_unused_variable_warning(size1);
             return i;
         }
         static
         BOOST_UBLAS_INLINE
         size_type element2 (size_type /* i */, size_type /* size1 */, size_type j, size_type size2) {
             BOOST_UBLAS_CHECK (j < size2, bad_index ());
+	    boost::ignore_unused_variable_warning(size2);
             return j;
         }
         static
         BOOST_UBLAS_INLINE
         size_type address1 (size_type i, size_type size1, size_type /* j */, size_type /* size2 */) {
             BOOST_UBLAS_CHECK (i <= size1, bad_index ());
+	    boost::ignore_unused_variable_warning(size1);
             return i;
         }
         static
         BOOST_UBLAS_INLINE
         size_type address2 (size_type /* i */, size_type /* size1 */, size_type j, size_type size2) {
             BOOST_UBLAS_CHECK (j <= size2, bad_index ());
+	    boost::ignore_unused_variable_warning(size2);
             return j;
         }
         static