1 /* This file is part of MED.
2 *
3 * COPYRIGHT (C) 1999 - 2019 EDF R&D, CEA/DEN
4 * MED is free software: you can redistribute it and/or modify
5 * it under the terms of the GNU Lesser General Public License as published by
6 * the Free Software Foundation, either version 3 of the License, or
7 * (at your option) any later version.
8 *
9 * MED is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 * GNU Lesser General Public License for more details.
13 *
14 * You should have received a copy of the GNU Lesser General Public License
15 * along with MED. If not, see <http://www.gnu.org/licenses/>.
16 */
17
18
19 #include <med.h>
20 #include <med_config.h>
21 #include <med_outils.h>
22 #include <string.h>
23 #include <stdlib.h>
24
25 /**\ingroup MEDstructElement
26 \brief \MEDmeshStructElementVarAttWrBrief
27 \param fid \fid
28 \param meshname \meshname
29 \param numdt \numdt
30 \param numit \numit
31 \param mgeotype \mgeotype
32 \param varattname \varattname
33 \param nentity \nentity
34 \param value \value
35 \return \error
36 \details \MEDmeshStructElementVarAttWrDetails
37 */
38
39 /* TODO : FULL/NO */
40
41 med_err
MEDmeshStructElementVarAttWr(const med_idt fid,const char * const meshname,const med_int numdt,const med_int numit,const med_geometry_type mgeotype,const char * const varattname,const med_int nentity,const void * const value)42 MEDmeshStructElementVarAttWr(const med_idt fid,
43 const char* const meshname,
44 const med_int numdt,
45 const med_int numit,
46 const med_geometry_type mgeotype,
47 const char* const varattname,
48 const med_int nentity,
49 const void* const value
50 )
51 {
52
53 med_err _ret = -1;
54 med_entity_type _entitytype = MED_STRUCT_ELEMENT;
55
56
57 _ret= _MEDmeshAdvancedWr(fid,
58 meshname,
59 MED_VARIABLE_ATTRIBUTE,
60 varattname,
61 MED_INTERNAL_UNDEF,
62 numdt,
63 numit,
64 MED_UNDEF_DT, /*Si la s$(0!;(Bquence de calcul n'existe pas, ce champ sera initialis,Ai(B correctement par d'autres appels.*/
65 _entitytype,
66 mgeotype,
67 MED_NODAL,
68 MED_UNDEF_STMODE,
69 MED_SAME_PROFILE_INTERNAL,
70 MED_FULL_INTERLACE,
71 MED_ALL_CONSTITUENT,
72 NULL,
73 nentity,
74 value);
75 ERROR:
76
77 return _ret;
78
79 }
80