Branch data     Line data    Source code

       1                 :            : // *****************************************************************************
       2                 :            : /*!
       3                 :            :   \file      src/Control/Options/MKLBetaMethod.hpp
       4                 :            :   \copyright 2012-2015 J. Bakosi,
       5                 :            :              2016-2018 Los Alamos National Security, LLC.,
       6                 :            :              2019-2021 Triad National Security, LLC.
       7                 :            :              All rights reserved. See the LICENSE file for details.
       8                 :            :   \brief     Intel MKL Beta RNG method options
       9                 :            :   \details   Intel MKL Beta RNG method options
      10                 :            : */
      11                 :            : // *****************************************************************************
      12                 :            : #ifndef MKLBetaMethodOptions_h
      13                 :            : #define MKLBetaMethodOptions_h
      14                 :            : 
      15                 :            : #include <map>
      16                 :            : 
      17                 :            : #include <brigand/sequences/list.hpp>
      18                 :            : 
      19                 :            : #include <mkl_vsl_defines.h>
      20                 :            : 
      21                 :            : #include "Toggle.hpp"
      22                 :            : #include "Keywords.hpp"
      23                 :            : #include "PUPUtil.hpp"
      24                 :            : 
      25                 :            : namespace tk {
      26                 :            : namespace ctr {
      27                 :            : 
      28                 :            : //! MKL beta random number generator method types
      29                 :            : enum class MKLBetaMethodType : uint8_t { CJA,
      30                 :            :                                          CJA_ACCURATE };
      31                 :            : 
      32                 :            : //! \brief Pack/Unpack MKLBetaMethodType: forward overload to generic enum
      33                 :            : //!   class packer
      34                 :            : inline void operator|( PUP::er& p, MKLBetaMethodType& e ) { PUP::pup( p, e ); }
      35                 :            : 
      36                 :            : //! \brief MKLBetaMethod options: outsource searches to base templated on
      37                 :            : //!   enum type
      38 [ +  - ][ +  - ]:        385 : class MKLBetaMethod : public tk::Toggle< MKLBetaMethodType > {
      39                 :            : 
      40                 :            :   public:
      41                 :            :     using ParamType = int;
      42                 :            : 
      43                 :            :     //! Valid expected choices to make them also available at compile-time
      44                 :            :     using keywords = brigand::list< kw::cja
      45                 :            :                                   , kw::cja_accurate
      46                 :            :                                   >;
      47                 :            : 
      48                 :            :     //! \brief Options constructor
      49                 :            :     //! \details Simply initialize in-line and pass associations to base, which
      50                 :            :     //!    will handle client interactions
      51                 :        379 :     explicit MKLBetaMethod() :
      52                 :            :       tk::Toggle< MKLBetaMethodType >(
      53                 :            :         //! Group, i.e., options, name
      54                 :            :         "Beta method",
      55                 :            :         //! Enums -> names
      56                 :        379 :         { { MKLBetaMethodType::CJA, kw::cja::name() },
      57 [ -  + ][ -  - ]:        379 :           { MKLBetaMethodType::CJA_ACCURATE, kw::cja_accurate::name() } },
      58                 :            :         //! keywords -> Enums
      59                 :        379 :         { { kw::cja::string(), MKLBetaMethodType::CJA },
      60 [ +  - ][ +  - ]:       3411 :           { kw::cja_accurate::string(), MKLBetaMethodType::CJA_ACCURATE } } ) {}
         [ +  - ][ +  + ]
         [ -  + ][ -  + ]
         [ +  + ][ -  + ]
         [ -  + ][ -  + ]
         [ +  - ][ -  - ]
         [ -  - ][ -  - ]
         [ -  - ][ -  - ]
         [ -  - ][ -  - ]
      61                 :            : 
      62                 :            :     //! \brief Return parameter based on Enum
      63                 :            :     //! \details Here 'parameter' is the library-specific identifier of the
      64                 :            :     //!    option, i.e., as the library identifies the given option
      65                 :            :     //! \param[in] m Enum value of the option requested
      66                 :            :     //! \return Library-specific parameter of the option
      67                 :            :     const ParamType& param( MKLBetaMethodType m ) const {
      68                 :            :       using tk::operator<<;
      69                 :            :       auto it = method.find( m );
      70                 :            :       Assert( it != end(method),
      71                 :            :               std::string("Cannot find parameter for MKLBetaMethod \"")
      72                 :            :               << m << "\"" );
      73                 :       3267 :       return it->second;
      74                 :            :     }
      75                 :            : 
      76                 :            :   private:
      77                 :            :     //! Enums -> MKL VSL RNG BETA METHOD parameters
      78                 :            :     std::map< MKLBetaMethodType, ParamType > method {
      79                 :            :       { MKLBetaMethodType::CJA, VSL_RNG_METHOD_BETA_CJA },
      80                 :            :       { MKLBetaMethodType::CJA_ACCURATE, VSL_RNG_METHOD_BETA_CJA_ACCURATE }
      81                 :        379 :     };
      82                 :            : };
      83                 :            : 
      84                 :            : } // ctr::
      85                 :            : } // tk::
      86                 :            : 
      87                 :            : #endif // MKLBetaMethodOptions_h