|
DenseLinAlgPack: Concreate C++ Classes for Dense Blas-Compatible Linear Algebra Version of the Day
|
00001 // @HEADER 00002 // *********************************************************************** 00003 // 00004 // Moocho: Multi-functional Object-Oriented arCHitecture for Optimization 00005 // Copyright (2003) Sandia Corporation 00006 // 00007 // Under terms of Contract DE-AC04-94AL85000, there is a non-exclusive 00008 // license for use of this work by or on behalf of the U.S. Government. 00009 // 00010 // This library is free software; you can redistribute it and/or modify 00011 // it under the terms of the GNU Lesser General Public License as 00012 // published by the Free Software Foundation; either version 2.1 of the 00013 // License, or (at your option) any later version. 00014 // 00015 // This library is distributed in the hope that it will be useful, but 00016 // WITHOUT ANY WARRANTY; without even the implied warranty of 00017 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 00018 // Lesser General Public License for more details. 00019 // 00020 // You should have received a copy of the GNU Lesser General Public 00021 // License along with this library; if not, write to the Free Software 00022 // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 00023 // USA 00024 // Questions? Contact Roscoe A. Bartlett (rabartl@sandia.gov) 00025 // 00026 // *********************************************************************** 00027 // @HEADER 00028 00029 #include <ostream> 00030 #include <iomanip> 00031 00032 #include "DenseLinAlgPack_DVectorOutFunc.hpp" 00033 #include "DenseLinAlgPack_DVectorClass.hpp" 00034 00035 std::ostream& DenseLinAlgPack::output(std::ostream& os, const DVectorSlice& vs 00036 , LinAlgPackIO::fmtflags extra_flags) 00037 { 00038 int w = os.width(0) - 1; // get the set width (minus 1 since a space is inserted) 00039 00040 if( !(extra_flags & LinAlgPackIO::ignore_dim_bit) ) 00041 os << std::setw(0) << std::left << vs.dim() << std::endl << std::right; 00042 00043 DVectorSlice::const_iterator itr = vs.begin(); 00044 for( size_type i = 1; itr != vs.end(); ++i, ++itr ) { 00045 os << " " << std::setw(w) << (*itr) << ":" << i; // insert a space to be sure there is white space 00046 // inbetween adjacent elements. 00047 } 00048 00049 if( !(extra_flags & LinAlgPackIO::no_insert_newlines_bit) ) 00050 os << std::endl; 00051 00052 return os; 00053 }
1.7.4