#include <med.h>
#define MESGERR 1
#include <med_utils.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] = "maa1";
med_float coo[8] = {0.0, 1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0};
char nomcoo[2*MED_TAILLE_PNOM+1] = "x y ";
char unicoo[2*MED_TAILLE_PNOM+1] = "cm cm ";
char nomnoe[4*MED_TAILLE_PNOM+1] = "nom1 nom2 nom3 nom4 ";
if (fid < 0) {
MESSAGE(
"Erreur a la creation du fichier test4.med");
return -1;
}
if (MEDmaaCr(fid,maa,mdim,MED_NON_STRUCTURE,
"un maillage pour test4") < 0) {
ret = -1;
}
MED_CART,nomcoo,unicoo) < 0) {
MESSAGE(
"Erreur a l'ecriture des coordonnees des noeuds");
ret = -1;
}
if (MEDnomEcr(fid,maa,nomnoe,nnoe,MED_NOEUD,0) < 0) {
MESSAGE(
"Erreur a l'ecriture des noms des noeuds");
ret = -1;
}
if (MEDnumEcr(fid,maa,numnoe,nnoe,MED_NOEUD,0) < 0) {
MESSAGE(
"Erreur a l'ecriture des numeros des noeuds");
ret = -1;
}
if (MEDfamEcr(fid,maa,nufano,nnoe,MED_NOEUD,0) < 0) {
MESSAGE(
"Erreur a l'ecriture des numeros de familles des noeuds");
ret = -1;
}
if (MEDfermer(fid) < 0) {
MESSAGE(
"Erreur a la fermeture du fichier test4.med");
return -1;
}
return ret;
}