namespace ModelData{ // Problem parameters.
static const double mu = 10.0;
// Stress tensor functions.
void
PK1_dev_stress_function(
TensorValue<double>& PP,
const TensorValue<double>& FF,
const libMesh::Point& /*X*/,
const libMesh::Point& /*s*/,
Elem* const /*elem*/,
const vector<NumericVector<double>*>& /*system_data*/,
double /*time*/,
void* /*ctx*/)
{
PP = mu*FF;
return;
}// PK1_dev_stress_function
void
PK1_dil_stress_function(
TensorValue<double>& PP,
const TensorValue<double>& FF,
const libMesh::Point& /*X*/,
const libMesh::Point& /*s*/,
Elem* const /*elem*/,
const vector<NumericVector<double>*>& /*system_data*/,
double /*time*/,
void* /*ctx*/)
{
PP = -mu*tensor_inverse_transpose(FF,NDIM);
return;
}// PK1_dil_stress_function
}