med_int
nmlcflni(med_int *fid, char *lname, med_int *lnamelen, med_int *gtype, med_int *sdim,
med_int *nip,char * giname, char * isname,
med_int *nsmc, med_int *sgtype)
#endif
{
med_int _ret;
char *_fn1;
char _fs2[MED_NAME_SIZE+1]="";
char _fs3[MED_NAME_SIZE+1]="";
med_geometry_type _gtype,_sgtype;
_fn1 = _MED2cstring((char *) lname, (int) *lnamelen);
if (!_fn1)
return(-1);
_ret = (med_int) MEDlocalizationInfoByName((med_idt) *fid,
_fn1,
&_gtype,
(med_int *) sdim,
(med_int *) nip,
_fs2,
_fs3,
(med_int *) nsmc,
&_sgtype);
_MEDcstringFree(_fn1);
_MEDc2fString(_fs2,giname,MED_NAME_SIZE);
_MEDc2fString(_fs3,isname,MED_NAME_SIZE);
*gtype = (med_int) _gtype;
*sgtype = (med_int) _sgtype;
return _ret;
}
med_err
MEDlocalizationInfo(const med_idt fid,
const int localizationit,
char * const localizationname,
med_geometry_type * const geotype,
med_int * const spacedimension,
med_int * const nipoint,
char * const geointerpname,
char * const sectionmeshname,
med_int * const nsectionmeshcell,
med_geometry_type * const sectiongeotype)
{
med_err _ret=-1;
char _path[MED_TAILLE_GAUSS+MED_NAME_SIZE+1]=MED_GAUSS;
int _num=localizationit-1;
/*
* On inhibe le gestionnaire d'erreur HDF 5
*/
_MEDmodeErreurVerrouiller();
/*
* ouverture du groupe /GAUSS/"nom"
*/
if ( _MEDobjectGetName(fid, _path ,_num, localizationname) < 0 ) {
MED_ERR_(_ret,MED_ERR_ACCESS,MED_ERR_DATAGROUP,_path);
ISCRUTE_int(localizationit);
goto ERROR;
}
if ( MEDlocalizationInfoByName(fid, localizationname, geotype, spacedimension,
nipoint,geointerpname,
sectionmeshname, nsectionmeshcell,sectiongeotype ) < 0) {
MED_ERR_(_ret,MED_ERR_CALL,MED_ERR_API,"MEDlocalizationInfoByName");
SSCRUTE(localizationname);
goto ERROR;
}
_ret = 0;
ERROR:
return _ret;
}
