#define MESGERR 1
#include <string.h>
#ifdef DEF_LECT_ECR
#define MODE_ACCES MED_LECTURE_ECRITURE
#elif DEF_LECT_AJOUT
#define MODE_ACCES MED_LECTURE_AJOUT
#else
#define MODE_ACCES MED_CREATION
#endif
int main (
int argc,
char **argv)
{
char maa[MED_TAILLE_NOM+1] = "maillage_test19";
char desc[MED_TAILLE_DESC+1]="un maillage pour test19.med";
char nom_groupes[MED_TAILLE_LNOM*3+1];
med_int entites[7] = { 1,2, 3,4,6, 1,4};
int i;
char nom_famille0[MED_TAILLE_NOM+1] = "FAMILLE0";
if ((fid = MEDouvrir(
"test19.med",
MODE_ACCES)) < 0) {
MESSAGE(
"Erreur a la creation du fichier test19.med");
return -1;
}
printf("Creation du fichier test19.med \n");
if (MEDmaaCr(fid,maa,mdim,MED_NON_STRUCTURE,desc) < 0) {
MESSAGE(
"Erreur a la creation du maillage");
return -1;
}
printf("Creation du maillage \n");
strcpy(nom_groupes,"GROUPE 1");
for (i=8;i<MED_TAILLE_LNOM;i++)
nom_groupes[i] = ' ';
nom_groupes[MED_TAILLE_LNOM] = '\0';
strcat(nom_groupes,"GROUPE 2");
for (i=8;i<MED_TAILLE_LNOM;i++)
nom_groupes[MED_TAILLE_LNOM+i] = ' ';
nom_groupes[2*MED_TAILLE_LNOM] = '\0';
strcat(nom_groupes,"GROUPE 3");
for (i=8;i<MED_TAILLE_LNOM;i++)
nom_groupes[2*MED_TAILLE_LNOM+i] = ' ';
nom_groupes[3*MED_TAILLE_LNOM] = '\0';
if (MEDfamCr(fid,maa,nom_famille0,0,NULL,NULL,NULL,0,NULL,0) < 0) {
MESSAGE(
"Erreur a la creation de la famille 0");
return -1;
}
printf("Creation de la famille 0 \n");
if (MEDgro2famCr(fid,maa,nom_groupes,index,ngroup,entites,nent,
MED_NOEUD,NULL,NULL,0) < 0) {
MESSAGE(
"Erreur a la creation des familles de noeuds ");
return -1;
}
printf("On constuit les familles de noeuds et on les stocke dans test19.med \n");
if (MEDgro2famCr(fid,maa,nom_groupes,index,ngroup,entites,nent,
MED_MAILLE,geo,index_geo,ngeo) < 0) {
MESSAGE(
"Erreur a la creation des familles d'elements ");
return -1;
}
printf("On constuit les familles d'elements et on les stocke dans test19.med \n");
if (MEDfermer(fid) <0) {
MESSAGE(
"Erreur a la fermeture du fichier");
return -1;
}
printf("Fermeture du fichier \n");
return 0;
}