#define _a 0.446948490915965
#define _b 0.091576213509771
#define _p1 0.11169079483905
#define _p2 0.0549758718227661
#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
#ifndef USER_INTERLACE
#define USER_INTERLACE MED_FULL_INTERLACE
#endif
#define USER_MODE MED_COMPACT_STMODE
int main (
int argc,
char **argv)
{
char * lien_maa2 = "./testfoo.med";
med_float refcoo1[12] = { -1.0,1.0, -1.0,-1.0, 1.0,-1.0, -1.0,0.0, 0.0,-1.0, 0.0,0.0 };
med_float valr1_1[1*6*2] = {0.0,1.0, 2.0,3.0, 10.0,11.0, 12.0,13.0, 20.0,21.0, 22.0,23.0};
med_float gscoo1_2[6] = { -2.0/3,1.0/3, -2.0/3,-2.0/3, 1.0/3,-2.0/3 };
med_float wg1_2[3] = { 2.0/3, 2.0/3, 2.0/3 };
med_float valr1_2[2*3*2] = {0.0,1.0, 2.0,3.0, 10.0,11.0, 12.0,13.0, 20.0,21.0, 22.0,23.0};
med_float valr1_2p[2*3*2] = { 12.0,13.0, 20.0,21.0, 22.0,23.0};
med_float valr1_3[2*3*2] = {0.0,1.0, 2.0,3.0, 10.0,11.0, 12.0,13.0, 20.0,21.0, 22.0,23.0};
med_float valr1_3p[2*2*2] = { 2.0,3.0, 10.0,11.0 };
med_int valr2[5*3 ] = {0,1,2, 10,11,12, 20,21,22, 30,31,32, 40,41,42};
med_int valr2p[3*3 ] = {0,1,2, 20,21,22, 40,41,42};
med_int valr3[5*4*2] = {0,1, 10,11, 20,21, 30,31,
40,41, 50,51, 60,61, 70,71,
80,81, 90,91, 100,101, 110,111,
120,121, 130,131, 140,141, 150,151,
160,161, 170,171, 180,181, 190,191};
med_int valr3p[3*4*2] = {0,1, 10,11, 20,21, 30,31,
80,81, 90,91, 100,101, 110,111,
160,161, 170,171, 180,181, 190,191};
MESSAGE(
"Erreur à l'ouverture du fichier : ");
return -1;
}
}
printf(
"Nombre de champs : "IFORMAT" \n",ncha);
if (ncha == 3 ) {
MESSAGE(
"Erreur à la création du champ : ");
SSCRUTE(
"Ajout Complémentaire");
ret = -1;
};
}
ret = -1;
}
ret = -1;
}
ret = -1;
};
ret = -1;
};
ret = -1;
};
ngauss1_1, gscoo1_1, wg1_1,
ret = -1;
};
ngauss1_2, gscoo1_2, wg1_2,
ret = -1;
};
gauss1_1,
USER_INTERLACE, 2, _nent1_1, (
unsigned char*)valr1_1 ) < 0) {
MESSAGE(
"Erreur à l'écriture du champ : ");
ret = -1;
};
gauss1_1,
USER_INTERLACE, 1, _nent1_1, (
unsigned char*)valr1_1 ) < 0) {
MESSAGE(
"Erreur à l'écriture du champ : ");
ret = -1;
};
gauss1_2,
USER_INTERLACE, 1, _nent1_2, (
unsigned char*)valr1_2 ) < 0) {
MESSAGE(
"Erreur à l'écriture du champ : ");
ret = -1;
};
gauss1_1,
USER_INTERLACE, 2, _nent1_1, (
unsigned char*)valr1_1 ) < 0) {
MESSAGE(
"Erreur à l'écriture du champ : ");
ret = -1;
};
gauss1_2,
USER_INTERLACE, 1, _nent1_2, (
unsigned char*)valr1_2 ) < 0) {
MESSAGE(
"Erreur à l'écriture du champ : ");
ret = -1;
};
MESSAGE(
"Erreur à l'écriture du profil : ");
ret = -1;
};
MESSAGE(
"Erreur à l'écriture du profil : ");
ret = -1;
};
MESSAGE(
"Erreur à l'écriture du champ : ");
ret = -1;
};
MESSAGE(
"Erreur à l'écriture du champ : ");
ret = -1;
};
MESSAGE(
"Erreur à l'écriture du champ : ");
ret = -1;
};
MESSAGE(
"Erreur à l'écriture du champ : ");
ret = -1;
};
MESSAGE(
"Erreur à l'écriture du champ : ");
ret = -1;
};
MESSAGE(
"Erreur à l'écriture du champ : ");
ret = -1;
};
MESSAGE(
"Erreur à l'écriture du profil : ");
ret = -1;
};
MESSAGE(
"Erreur à l'écriture du champ : ");
ret = -1;
};
ret = -1;
};
MESSAGE(
"Erreur à l'écriture du champ : ");
ret = -1;
};
MESSAGE(
"Erreur à l'écriture du champ : ");
ret = -1;
};
MESSAGE(
"Erreur à l'écriture du champ : ");
ret = -1;
};
ret=-1;
MESSAGE(
"Erreur à la fermeture du fichier ");
}
MESSAGE(
"Erreur à l'ouverture du fichier : ");
return -1;
}
}
printf(
"Nombre de champs : "IFORMAT" \n",ncha);
MESSAGE(
"Erreur à la création du champ : Complémentaire 2");
ret = -1;
};
if (
MEDmeshInfo( fid, 1, _maa, &_sdim, &_mdim, &_type, _desc, __dtunit, &_sort,
&_nstep, &_rep, _nomcoo,_unicoo) < 0 ) {
MESSAGE(
"Erreur a la lecture des informations sur le maillage : ");
SSCRUTE(_maa);
return -1;
} else {
printf(
"Maillage de nom : |%s| , de dimension : "IFORMAT" , et de type %d\n",_maa,_mdim,_type);
printf(
"\t -Dimension de l'espace : "IFORMAT"\n",_sdim);
printf("\t -Description du maillage : %s\n",_desc);
printf("\t -Noms des axes : |%s|\n",_nomcoo);
printf("\t -Unités des axes : |%s|\n",_unicoo);
printf("\t -Type de repère : %d\n",_rep);
printf(
"\t -Nombre d'étapes de calcul : "IFORMAT"\n",_nstep);
printf("\t -Unité des dates : |%s|\n",__dtunit);
}
}
printf(
"Nombre de champs : "IFORMAT" \n",ncha);
ret=-1;
MESSAGE(
"Erreur à la fermeture du fichier ");
}
free(memfile[0].app_image_ptr);
return ret;
}
int main(int argc, char **argv)
MEDC_EXPORT med_int MEDnField(const med_idt fid)
Cette fonction permet de lire le nombre de champs dans un fichier.
MEDC_EXPORT med_err MEDfieldCr(const med_idt fid, const char *const fieldname, const med_field_type fieldtype, const med_int ncomponent, const char *const componentname, const char *const componentunit, const char *const dtunit, const char *const meshname)
Cette fonction crée un champ dans un fichier.
MEDC_EXPORT med_err MEDfieldValueWithProfileWr(const med_idt fid, const char *const fieldname, const med_int numdt, const med_int numit, const med_float dt, const med_entity_type entitype, const med_geometry_type geotype, const med_storage_mode storagemode, const char *const profilename, const char *const localizationname, const med_switch_mode switchmode, const med_int componentselect, const med_int nentity, const unsigned char *const value)
Cette fonction permet d'écrire les valeurs d'un champ définies sur des entités d'un maillage pour une...
MEDC_EXPORT med_err MEDfieldValueWr(const med_idt fid, const char *const fieldname, const med_int numdt, const med_int numit, const med_float dt, const med_entity_type entitype, const med_geometry_type geotype, const med_switch_mode switchmode, const med_int componentselect, const med_int nentity, const unsigned char *const value)
Cette fonction permet d'écrire les valeurs d'un champ définies sur des entités d'un maillage pour une...
MEDC_EXPORT med_err MEDfileClose(med_idt fid)
Fermeture d'un fichier MED.
MEDC_EXPORT med_idt MEDmemFileOpen(const char *const filename, med_memfile *const memfile, const med_bool filesync, const med_access_mode accessmode)
Ouverture d'un fichier MED pour une utilisation en mémoire.
MEDC_EXPORT med_err MEDlinkWr(const med_idt fid, const char *const meshname, const char *const link)
Cette routine permet d'écrire un lien dans un fichier MED.
MEDC_EXPORT med_err MEDlocalizationWr(const med_idt fid, const char *const localizationname, const med_geometry_type geotype, const med_int spacedimension, const med_float *const elementcoordinate, const med_switch_mode switchmode, const med_int nipoint, const med_float *const ipointcoordinate, const med_float *const weight, const char *const geointerpname, const char *const ipointstructmeshname)
Cette routine permet l'écriture d'une localisation localizationname de points d'intégration dans/auto...
MEDC_EXPORT med_err MEDmeshCr(const med_idt fid, const char *const meshname, const med_int spacedim, const med_int meshdim, const med_mesh_type meshtype, const char *const description, const char *const dtunit, const med_sorting_type sortingtype, const med_axis_type axistype, const char *const axisname, const char *const axisunit)
Cette routine permet de créer un maillage dans un fichier.
MEDC_EXPORT med_err MEDmeshInfo(const med_idt fid, const int meshit, char *const meshname, med_int *const spacedim, med_int *const meshdim, med_mesh_type *const meshtype, char *const description, char *const dtunit, med_sorting_type *const sortingtype, med_int *const nstep, med_axis_type *const axistype, char *const axisname, char *const axisunit)
Cette routine permet de lire les informations relatives à un maillage dans un fichier.
MEDC_EXPORT med_err MEDprofileWr(const med_idt fid, const char *const profilename, const med_int profilesize, const med_int *const profilearray)
Cette routine permet d'écrire un profil dans un fichier MED.
#define MED_NO_LOCALIZATION
#define MED_ALLENTITIES_PROFILE
#define MED_NO_INTERPOLATION
#define MED_ALL_CONSTITUENT
#define MED_NO_MESH_SUPPORT
#define ISCRUTE_int(entier)
Structure d'acceuil du buffer d'un fichier MED en mémoire.