@Behaviour Elasticity;
@Author Helfer Thomas;
@Date 23/11/06;
@Description{
    A very first test
    (the most simple one in fact).
}

@UseQt true;
@ProvidesSymmetricTangentOperator;

@MaterialProperty stress young;
young.setGlossaryName("YoungModulus");
@MaterialProperty real nu;
nu.setGlossaryName("PoissonRatio");

@LocalVariable stress lambda;
@LocalVariable stress mu;

@Includes
{
#include "TFEL/Material/Lame.hxx"
}

@Integrator
{
    using namespace tfel::material::lame;
    lambda = computeLambda(young, nu);
    mu = computeMu(young, nu);
    sig = lambda * trace(eto + deto) * StrainStensor::Id() +
          2 * mu * (eto + deto);
    if (computeTangentOperator_)
    {
        Dt = lambda * Stensor4::IxI() + 2 * mu * Stensor4::Id();
    }
}