1 /*! 2 * \file mfront/src/CalculiXComputeThermalExpansionCoefficientTensor.cxx 3 * \brief 4 * \author Thomas Helfer 5 * \date 18 mar 2008 6 * \copyright Copyright (C) 2006-2018 CEA/DEN, EDF R&D. All rights 7 * reserved. 8 * This project is publicly released under either the GNU GPL Licence 9 * or the CECILL-A licence. A copy of thoses licences are delivered 10 * with the sources of TFEL. CEA or EDF may also distribute this 11 * project under specific licensing conditions. 12 */ 13 14 #include<algorithm> 15 16 #include"TFEL/Math/stensor.hxx" 17 #include"MFront/CalculiX/CalculiXComputeThermalExpansionCoefficientTensor.hxx" 18 19 namespace calculix 20 { 21 22 void exe(const CalculiXReal * const props,tfel::config::Types<3u,CalculiXReal,false>::ThermalExpansionCoefficientTensor & A)23 CalculiXComputeThermalExpansionCoefficientTensor<ISOTROPIC>::exe(const CalculiXReal* const props, 24 tfel::config::Types<3u,CalculiXReal,false>::ThermalExpansionCoefficientTensor& A) 25 { 26 const auto a = props[0]; 27 A(0)=A(1)=A(2)=a; 28 A(3)=A(4)=A(5)=CalculiXReal(0); 29 } // end of struct CalculiXComputeThermalExpansionCoefficientTensor 30 31 void exe(const CalculiXReal * const props,tfel::config::Types<3u,CalculiXReal,false>::ThermalExpansionCoefficientTensor & A)32 CalculiXComputeThermalExpansionCoefficientTensor<ORTHOTROPIC>::exe(const CalculiXReal* const props, 33 tfel::config::Types<3u,CalculiXReal,false>::ThermalExpansionCoefficientTensor& A) 34 { 35 const auto a0 = props[0]; 36 const auto a1 = props[1]; 37 const auto a2 = props[2]; 38 A(0)=a0; 39 A(1)=a1; 40 A(2)=a2; 41 A(3)=A(4)=A(5)=CalculiXReal(0); 42 } // end of struct CalculiXComputeThermalExpansionCoefficientTensor 43 44 } // end of namespace calculix 45