#define MESGERR 1
#include <string.h>
#ifdef DEF_LECT_ECR
#define MODE_ACCES MED_ACC_RDWR
#elif DEF_LECT_AJOUT
#define MODE_ACCES MED_ACC_RDEXT
#else
#define MODE_ACCES MED_ACC_CREAT
#endif
#define OBJEXIST(oname)\
if ( MEDfileObjectExist(fid,MED_MESH, #oname ,& oname##exist) < 0) { \
MESSAGE("Erreur de test de présence du maillage "#oname); \
return -1; \
} \
if ( oname##exist) { MESSAGE("Le maillage "#oname" existe."); } else \
{ MESSAGE("Le maillage "#oname" n'existe pas.");}
int main (
int argc,
char **argv)
{
med_int nmaa=0,mdim=0,sdim=0,nstep=0;
int i=0;
char *maa ;
char *nomu ;
char *des ;
char *dtunit;
char *axisname=0,*axisunit=0;
if (fid < 0) {
MESSAGE(
"Erreur a l'ouverture du fichier test2.med");
return -1;
}
if (nmaa < 0) {
MESSAGE(
"Erreur a la lecture du nombre de maillage");
return -1;
}
printf(
"- Nombre de maillage dans test2.med = "IFORMAT"\n",nmaa);
for (i=0;i< nmaa;i++) {
MESSAGE(
"Erreur a la lecture de la dimension de l'espace du maillage :");
ret = -1;
}
if (
MEDmeshInfo(fid,i+1, maa, &sdim, &mdim, &meshtype, des, dtunit, &sortingtype, &nstep,
&axistype, axisname, axisunit) < 0) {
MESSAGE(
"Erreur a la lecture des informations du maillage :");
SSCRUTE(maa);
ret = -1;
}
if (inomu < 0)
printf(
"maillage %d de nom %s, de dimension "IFORMAT" \n",i+1,maa,mdim);
else
printf(
"maillage %d de nom %s, de dimension "IFORMAT" et de nom univ. %s\n",i+1,maa,mdim,nomu);
printf(
"La dimension de l'espace est "IFORMAT" \n",sdim);
printf("Il s'agit d'un maillage structure \n");
else
printf("Il s'agit d'un maillage non structure \n");
printf("Description associee au maillage : %s \n\n",des);
printf("\t -Noms des axes : %s\n", axisname);
printf("\t -Unités des axes : %s\n",axisunit);
printf("\t -Type de repère : %d\n", axistype);
printf(
"\t -Nombre d'étape de calcul : "IFORMAT"\n",nstep);
printf("\t -Unité des dates : %s\n",dtunit);
free(axisname);
free(axisunit);
}
free( maa );
free( nomu );
free( des );
free( dtunit );
MESSAGE(
"Erreur a la fermeture du fichier test2.med");
return -1;
}
return ret;
}