text: //==============================================================================
  //         Copyright 2003 - 2011 LASMEA UMR 6602 CNRS/Univ. Clermont II
  //         Copyright 2009 - 2011 LRI    UMR 8623 CNRS/Univ Paris Sud XI
  //
  //          Distributed under the Boost Software License, Version 1.0.
  //                 See accompanying file LICENSE.txt or copy at
  //                     http://www.boost.org/LICENSE_1_0.txt
  //==============================================================================
  #ifndef BOOST_SIMD_ARITHMETIC_FUNCTIONS_SCALAR_CORRECT_FMA_HPP_INCLUDED
  #define BOOST_SIMD_ARITHMETIC_FUNCTIONS_SCALAR_CORRECT_FMA_HPP_INCLUDED
  #include <boost/simd/arithmetic/functions/correct_fma.hpp>
  
  namespace boost { namespace simd { namespace ext
  {
  
    BOOST_SIMD_FUNCTOR_IMPLEMENTATION( boost::simd::tag::correct_fma_, tag::cpu_
                                     , (A0)
                                     , (scalar_< single_<A0> >)
                                       (scalar_< single_<A0> >)
                                       (scalar_< single_<A0> >)
                                     )
    {
      typedef A0 result_type;
      BOOST_SIMD_FUNCTOR_CALL_REPEAT(3)
      {
        return static_cast<A0>(static_cast<double>(a0)*static_cast<double>(a1)+static_cast<double>(a2));
      }
    };
  } } }
  
  
  #endif
  