00001 // @(#)root/minuit2:$Id: LaSumOfElements.cxx 20880 2007-11-19 11:23:41Z rdm $ 00002 // Authors: M. Winkler, F. James, L. Moneta, A. Zsenei 2003-2005 00003 00004 /********************************************************************** 00005 * * 00006 * Copyright (c) 2005 LCG ROOT Math team, CERN/PH-SFT * 00007 * * 00008 **********************************************************************/ 00009 00010 #include "Minuit2/LAVector.h" 00011 #include "Minuit2/LASymMatrix.h" 00012 00013 namespace ROOT { 00014 00015 namespace Minuit2 { 00016 00017 00018 double mndasum(unsigned int, const double*, int); 00019 00020 double sum_of_elements(const LAVector& v) { 00021 // calculate the absolute sum of the vector elements using mndasum 00022 // which is a translation from dasum from BLAS 00023 return mndasum(v.size(), v.Data(), 1); 00024 } 00025 00026 double sum_of_elements(const LASymMatrix& m) { 00027 // calculate the absolute sum of all the matrix elements using mndasum 00028 // which is a translation of dasum from BLAS 00029 return mndasum(m.size(), m.Data(), 1); 00030 } 00031 00032 } // namespace Minuit2 00033 00034 } // namespace ROOT
1.5.1