Go to the source code of this file.
Functions | |
double | operator * (const drovector &rovec, const dcovector &covec) |
|
drovector*dcovector operator Definition at line 3 of file drovector-dcovector.hpp. References dcovector::Array, drovector::Array, dcovector::Desc, drovector::Desc, dcovector::L, and drovector::L.
00004 { 00005 #ifdef CPPSL_DEBUG 00006 if(rovec.L!=covec.L){ 00007 std::cerr << "[ERROR] operator*(const drovector&, const dcovector&)" 00008 << std::endl 00009 << "These two vectors can not make a product." << std::endl 00010 << "Your input was (" << rovec.L << ") * (" << covec.L << ")." 00011 << std::endl; 00012 exit(1); 00013 } 00014 #endif//CPPSL_DEBUG 00015 00016 double val; 00017 pddot_( rovec.L, val, 00018 rovec.Array, 1, 1, rovec.Desc, 1, covec.Array, 1, 1, covec.Desc, 1 ); 00019 00020 return val; 00021 } |