21 #include <med_utils.h>
25 #define MODE_ACCES MED_ACC_RDWR
27 #define MODE_ACCES MED_ACC_RDEXT
29 #define MODE_ACCES MED_ACC_CREAT
32 int main (
int argc,
char **argv)
37 int _i =0,_j=0,_k=0,_l=0,_n=0;
60 unsigned char * _value=NULL;
66 MESSAGE(
"Erreur à la lecture du fichier current.med");
72 for ( _i=1; _i<= _nstructelement; ++_i) {
89 fprintf(stdout,
"Elément de structure n° %d |%s| de type géométrique n° %d et de dimension %"IFORMAT"\n",
90 _i,_elementname,_geotype,_elementdim);
92 if ( strlen(_supportmeshname) ) {
93 fprintf(stdout,
"\t Maillage support de nom |%s|",_supportmeshname);
94 if (_ncell) fprintf(stdout,
" avec %d maille(s) de type %d et ",_ncell,_geocelltype);
95 if (_nnode) fprintf(stdout,
" avec %d noeud(s)\n",_nnode);
97 fprintf(stderr,
"\n Erreur : les noeuds doivent être définis s'il existe un maillage support\n");
100 fprintf(stdout,
"\t Maillage support implicite sur noeud\n");
102 fprintf(stdout,
"\t Nombre d'attribut(s) constant(s) : %d",_nconstantattribute);
103 if (_anyprofile) fprintf(stdout,
", avec profil.\n");
else fprintf(stdout,
", sans profil.\n");
104 if ( _nconstantattribute ) {
105 for (_j=1;_j<=_nconstantattribute;++_j) {
107 _constattname, &_constatttype, &_ncomponent,
108 &_attentitytype, _profilename, &_profilesize ) )
return -1;
110 fprintf(stdout,
"\t\t Attribut constant de nom |%s| de type %d à "IFORMAT" composantes\n",
111 _constattname,_constatttype,_ncomponent);
112 fprintf(stdout,
"\t\t Cet Attribut est attaché au type d'entité %d avec un profil |%s| de taille "IFORMAT"\n",
113 _attentitytype,_profilename,_profilesize);
117 if (_attentitytype ==
MED_NODE) _profilesize = _nnode;
else _profilesize=_ncell;
118 _n = _ncomponent*_profilesize;
122 _value = (
unsigned char *) malloc(_allocsize);
127 fprintf(stdout,
"\t\t Cet Attribut a pour valeurs : \n");
128 for (_k=0; _k < _n; ++_k) {
129 switch (_constatttype) {
137 printf(
"%c",((
char *)_value)[_l]);printf(
"\n");
147 fprintf(stdout,
"\t Nombre d'attributs variables : %d\n",_nvariableattribute);
153 MESSAGE(
"ERROR : file closing");