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; }