stokes_coefficient_constant.cc

Go to the documentation of this file.

#include "stokes_coefficient_constant.h"
#include "ostream_pad.h"

using namespace FullPhysics;
#ifdef HAVE_LUA
#include "register_lua.h"
REGISTER_LUA_DERIVED_CLASS(StokesCoefficientConstant, StokesCoefficient)
.def(luabind::constructor<const blitz::Array<double, 2>&>())
REGISTER_LUA_END()
#endif

//-----------------------------------------------------------------------
//-----------------------------------------------------------------------
StokesCoefficientConstant::StokesCoefficientConstant
(const blitz::Array<double, 2>& Stokes_coeff)
{
  stokes_coeff.resize(Stokes_coeff.shape(), 0);
  stokes_coeff = Stokes_coeff;
}

void StokesCoefficientConstant::print(std::ostream& Os) const
{
  OstreamPad opad(Os, "  ");
  Os << "StokesCoefficientConstant:\n";
  opad << stokes_coefficient().value();
  opad.strict_sync();
}

boost::shared_ptr<StokesCoefficient> StokesCoefficientConstant::clone() const
{
  return boost::shared_ptr<StokesCoefficient>
    (new StokesCoefficientConstant(stokes_coefficient().value()));
}