Branch data     Line data    Source code

       1                 :            : // *****************************************************************************
       2                 :            : /*!
       3                 :            :   \file      src/DiffEq/WrightFisher/WrightFisherCoeffPolicy.cpp
       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     Wright-Fisher coefficients policies
       9                 :            :   \details   This file defines coefficients policy classes for the Wright-Fisher
      10                 :            :              SDE, defined in DiffEq/WrightFisher/WrightFisher.h. For general
      11                 :            :              requirements on Wright-Fisher SDE coefficients policy classes see
      12                 :            :              the header file.
      13                 :            : */
      14                 :            : // *****************************************************************************
      15                 :            : 
      16                 :            : #include "WrightFisherCoeffPolicy.hpp"
      17                 :            : 
      18         [ -  - ]:          0 : walker::WrightFisherCoeffConst::WrightFisherCoeffConst(
      19                 :            :   tk::ctr::ncomp_t ncomp,
      20                 :            :   const std::vector< kw::sde_omega::info::expect::type >& omega_,
      21                 :            :   std::vector< kw::sde_omega::info::expect::type >& omega )
      22                 :            : // *****************************************************************************
      23                 :            : // Constructor: initialize coefficients
      24                 :            : //! \param[in] ncomp Number of scalar components in this SDE system
      25                 :            : //! \param[in] omega_ Vector used to initialize coefficient vector omega
      26                 :            : //! \param[in,out] omega Coefficient vector to be initialized
      27                 :            : // *****************************************************************************
      28                 :            : {
      29 [ -  - ][ -  - ]:          0 :   ErrChk( omega_.size() == ncomp,
         [ -  - ][ -  - ]
         [ -  - ][ -  - ]
                 [ -  - ]
      30                 :            :           "Wrong number of Wright-Fisher SDE parameters 'omega'");
      31                 :            : 
      32                 :          0 :   omega = omega_;
      33                 :          0 : }