med_int
nmsefnse (med_int *fid)
#endif
{
med_int _ret;
_ret = (med_int) MEDnStructElement((const med_idt) *fid);
return(_ret);
}
int main (int argc, char **argv)
{
med_err _ret=0;
med_idt _fid=0;
int _i =0;
med_int _nstructelement=0;
med_geometry_type _geotype=MED_NONE;
char _elementname[MED_NAME_SIZE+1]="";
med_int _elementdim=0;
char _supportmeshname[MED_NAME_SIZE+1]="";
med_entity_type _entitytype=MED_UNDEF_ENTITY_TYPE;
med_int _nnode=0;
med_int _ncell=0;
med_geometry_type _geocelltype=MED_NONE;
med_int _nconstantattribute=0;
med_bool _anyprofile=0;
med_int _nvariableattribute=0;
/* Ouverture en mode lecture du fichier Test_MEDstructuElement.med */
_fid = MEDfileOpen("current.med",MED_ACC_RDONLY);
if (_fid < 0) {
MESSAGE("Erreur à la lecture du fichier current.med");
return -1;
}
if ( (_nstructelement = MEDnStructElement(_fid)) <0) _ret=_nstructelement;
for ( _i=1; _i<= _nstructelement; ++_i) {
if (
MEDstructElementInfo(_fid,
_i,
_elementname,
&_geotype,
&_elementdim,
_supportmeshname,
&_entitytype,
&_nnode,
&_ncell,
&_geocelltype,
&_nconstantattribute,
&_anyprofile,
&_nvariableattribute
)
) return -1;
fprintf(stdout,"Elément de structure n° %d |%s| de type géométrique n° %d et de dimension %d\n",
_i,_elementname,_geotype,_elementdim);
if ( strlen(_supportmeshname) ) {
fprintf(stdout,"\t Maillage support de nom |%s|",_supportmeshname);
if (_ncell)
fprintf(stdout," avec %d mailles de type %d et ",_ncell,_geocelltype);
if (_nnode)
fprintf(stdout," avec %d noeuds\n",_nnode);
else {
fprintf(stderr,"\n Erreur : les noeuds doivent être définis s'il existe un maillage support\n");
}
} else
fprintf(stdout," avec support implicite sur noeud\n");
fprintf(stdout,"\t Nombre d'attributs constants : %d",_nconstantattribute);
if (_anyprofile) fprintf(stdout,", avec profil.\n"); else fprintf(stdout,", sans profil.\n");
fprintf(stdout,"\t Nombre d'attributs variables : %d\n",_nvariableattribute);
}
if (MEDfileClose(_fid) < 0) {
MESSAGE("ERROR : file closing");
return -1;
}
return _ret;
}
