CPPScaLapack: _dcovector-io.hpp Source File

00001 //=============================================================================
00002 /*! operator() for const object */
00003 inline CPPSL_double _dcovector::operator()(const long& i) const
00004 {
00005 #ifdef  CPPSL_DEBUG
00006   if( i<0 || L<=i ){
00007     std::cerr << "[ERROR] dcovector::operator()(const long&) const"
00008               << std::endl
00009               << "The required component is out of the vector size."
00010               << std::endl
00011               << "Your input was (" << i << ")." << std::endl;
00012     exit(1);
00013   }
00014 #endif//CPPSL_DEBUG
00015   
00016   return CPPSL_double( Array, i, 0, Desc );
00017 
00018 }
00019 
00020 ///////////////////////////////////////////////////////////////////////////////
00021 ///////////////////////////////////////////////////////////////////////////////
00022 ///////////////////////////////////////////////////////////////////////////////
00023 
00024 //=============================================================================
00025 inline std::ostream& operator<<(std::ostream& s, const _dcovector& vec)
00026 {
00027   for(long i=0; i<vec.L; i++){
00028     s << " " << vec(i) << std::endl;
00029   }
00030   
00031   vec.destroy();
00032   return s;
00033 }