1 /*! 2 * \file mfront/src/CalculiXComputeStiffnessTensor.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/st2tost2.hxx" 17 #include"TFEL/Material/StiffnessTensor.hxx" 18 #include"MFront/CalculiX/CalculiXComputeStiffnessTensor.hxx" 19 20 namespace calculix 21 { 22 23 void computeIsotropicStiffnessTensor(tfel::config::Types<3u,double,false>::StiffnessTensor & C,const double * const props)24 computeIsotropicStiffnessTensor(tfel::config::Types<3u,double,false>::StiffnessTensor& C, 25 const double* const props) 26 { 27 using namespace tfel::material; 28 using STAC = StiffnessTensorAlterationCharacteristic; 29 computeIsotropicStiffnessTensorII<3u,STAC::UNALTERED>(C,props[0],props[1]); 30 } // end of struct computeIsotropicStiffnessTensor 31 32 void computeOrthotropicStiffnessTensor(tfel::config::Types<3u,double,false>::StiffnessTensor & C,const double * const props)33 computeOrthotropicStiffnessTensor(tfel::config::Types<3u,double,false>::StiffnessTensor& C, 34 const double* const props) 35 { 36 using namespace tfel::material; 37 using STAC = StiffnessTensorAlterationCharacteristic; 38 computeOrthotropicStiffnessTensorII<3u,STAC::UNALTERED>(C,props[0],props[1],props[2], 39 props[3],props[4],props[5], 40 props[6],props[7],props[8]); 41 } // end of struct computeOrthotropicStiffnessTensor 42 43 } // end of namespace calculix 44