med_int
nmsefipw(med_int *fid, char *mname, med_int *mnamelen,
char *aname, med_int *anamelen,
med_int *atype, med_int *anc,
med_int *setype,
char *pname, med_int *pnamelen,
med_int *val)
#endif
{
med_int _ret;
char *_fn1, *_fn2, *_fn3;
med_attribute_type _atype = (med_attribute_type) *atype;
med_entity_type _setype = (med_entity_type) *setype;
_fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
if (!_fn1)
return(-1);
_fn2 = _MED2cstring((char *) aname, (int) *anamelen);
if (!_fn2)
return(-1);
_fn3 = _MED2cstring((char *) pname, (int) *pnamelen);
if (!_fn3)
return(-1);
_ret = (med_int) MEDstructElementConstAttWithProfileWr((const med_idt) *fid,
_fn1,
_fn2,
_atype,
(med_int) *anc,
_setype,
_fn3,
(void *) val);
_MEDcstringFree(_fn1);
_MEDcstringFree(_fn2);
_MEDcstringFree(_fn3);
return _ret;
}
med_err
MEDstructElementConstAttWr(const med_idt fid,
const char* const elementname,
const char* const constattname,
const med_attribute_type constatttype,
const med_int ncomponent,
const med_entity_type sentitytype,
const void* const value
)
{
return
MEDstructElementConstAttWithProfileWr(fid,
elementname,
constattname,
constatttype,
ncomponent,
sentitytype,
MED_NO_PROFILE,
value
);
}
med_int
nmsefspw(med_int *fid, char *mname, med_int *mnamelen,
char *aname, med_int *anamelen,
med_int *atype, med_int *anc, med_int *setype,
char *pname, med_int *pnamelen,
char *val, med_int *vallen)
#endif
{
med_int _ret;
char *_fn1, *_fn2,*_fn3, *_fn4;
med_attribute_type _atype = (med_attribute_type) *atype;
med_entity_type _setype = (med_entity_type) *setype;
int _nentity=0;
med_geometry_type _geotype=0;
med_int _modeldim=0;
char _supportmeshname[MED_NAME_SIZE+1]="";
med_entity_type _entitytype=0;
med_int _nnode=0;
med_int _ncell=0;
med_geometry_type _sgeotype=0;
med_int _nconstatt=0;
med_bool _anyprofile=0;
med_int _nvaratt=0;
med_bool _coordinatechangement=MED_FALSE;
med_bool _geotransformation=MED_FALSE;
_fn1 = _MED2cstring((char *) mname, (int) *mnamelen);
if (!_fn1)
return(-1);
_fn2 = _MED2cstring((char *) aname, (int) *anamelen);
if (!_fn2)
return(-1);
_fn3 = _MED2cstring((char *) pname, (int) *pnamelen);
if (!_fn3)
return(-1);
/* on recupere le nom du maillage support */
_ret = MEDstructElementInfoByName((med_idt) *fid,
_fn1,
&_geotype,
&_modeldim,
_supportmeshname,
&_entitytype,
&_nnode,
&_ncell,
&_sgeotype,
&_nconstatt,
&_anyprofile,
&_nvaratt);
if (_ret < 0)
return (-1);
/* on recupere le nombre d'entite dans le maillage support :
MED_NODE ou MED_CELL */
if (_setype == MED_NODE)
_nentity = MEDmeshnEntity((med_idt) *fid,
_supportmeshname,
MED_NO_DT,
MED_NO_IT,
_setype,
_sgeotype,
MED_COORDINATE,
MED_NO_CMODE,
&_coordinatechangement,
&_geotransformation);
else
_nentity = MEDmeshnEntity((med_idt) *fid,
_supportmeshname,
MED_NO_DT,
MED_NO_IT,
_setype,
_sgeotype,
MED_CONNECTIVITY,
MED_NODAL,
&_coordinatechangement,
&_geotransformation);
if (_nentity < 0)
return (-1);
_fn4 = _MED1cstring((char *) val, (int) *vallen*_nentity, (int) *anc*_nentity*MED_NAME_SIZE);
if (!_fn4)
return(-1);
_ret = (med_int) MEDstructElementConstAttWithProfileWr((const med_idt) *fid,
_fn1,
_fn2,
_atype,
(med_int) *anc,
_setype,
_fn3,
(void *) _fn4);
_MEDcstringFree(_fn1);
_MEDcstringFree(_fn2);
_MEDcstringFree(_fn3);
_MEDcstringFree(_fn4);
return _ret;
}
