Teuchos Package Browser (Single Doxygen Collection) Version of the Day
Teuchos_ScalarTraits.cpp
Go to the documentation of this file.
00001 // @HEADER
00002 // ***********************************************************************
00003 //
00004 //                    Teuchos: Common Tools Package
00005 //                 Copyright (2004) 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 // Redistribution and use in source and binary forms, with or without
00011 // modification, are permitted provided that the following conditions are
00012 // met:
00013 //
00014 // 1. Redistributions of source code must retain the above copyright
00015 // notice, this list of conditions and the following disclaimer.
00016 //
00017 // 2. Redistributions in binary form must reproduce the above copyright
00018 // notice, this list of conditions and the following disclaimer in the
00019 // documentation and/or other materials provided with the distribution.
00020 //
00021 // 3. Neither the name of the Corporation nor the names of the
00022 // contributors may be used to endorse or promote products derived from
00023 // this software without specific prior written permission.
00024 //
00025 // THIS SOFTWARE IS PROVIDED BY SANDIA CORPORATION "AS IS" AND ANY
00026 // EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
00027 // IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
00028 // PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL SANDIA CORPORATION OR THE
00029 // CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
00030 // EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
00031 // PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
00032 // PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
00033 // LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
00034 // NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
00035 // SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
00036 //
00037 // Questions? Contact Michael A. Heroux (maherou@sandia.gov)
00038 //
00039 // ***********************************************************************
00040 // @HEADER
00041 
00042 #include "Teuchos_ScalarTraits.hpp"
00043 #include "Teuchos_TestForException.hpp"
00044 
00045 // Define this to throw exceptions when any Teuchos::ScalarTraits function
00046 // encounters a NaN or an Inf.
00047 //#define TEUCHOS_SCALAR_TRAITS_THROW_NAN_INF_ERR
00048 
00049 
00050 namespace {
00051 
00052 // These functions exist to trick the compiler into not returning a warning
00053 // message for 0.0/0.0 or refusing to compile the code.  If a compiler gets
00054 // too smart, we can put these definitions into a different *.cpp file such
00055 // that most compilers would not be able to know at compile-time if a NaN or
00056 // an Inf was being created.
00057 
00058 float returnFloatZero() { return 0.0; }
00059 
00060 double returnDoubleZero() { return 0.0; }
00061 
00062 } // namespace
00063 
00064 
00065 void Teuchos::throwScalarTraitsNanInfError( const std::string &errMsg )
00066 {
00067 #ifdef TEUCHOS_SCALAR_TRAITS_THROW_NAN_INF_ERR
00068   TEST_FOR_EXCEPTION( true, std::runtime_error, errMsg );
00069 #endif
00070 }
00071 
00072 #ifdef HAVE_TEUCHOS_GNU_MP
00073 gmp_randclass Teuchos::gmp_rng ( gmp_randinit_default );
00074 #endif
00075 
00076 #ifdef HAVE_TEUCHOS_QD
00077 bool Teuchos::operator&&(const dd_real &a, const dd_real &b) {
00078   return !a.is_zero() && !b.is_zero();
00079 }
00080 bool Teuchos::operator&&(const qd_real &a, const qd_real &b) {
00081   return !a.is_zero() && !b.is_zero();
00082 }
00083 #endif
00084 
00085 #ifndef __sun
00086 // This is an intentional computation of NaN.
00087 const float  Teuchos::flt_nan = +returnFloatZero()/returnFloatZero();
00088 const double Teuchos::dbl_nan = +returnDoubleZero()/returnDoubleZero();
00089 #endif
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Defines