-void DriverMED_W_SMDS_Mesh::Write() {
-
- med_err ret = 0;
- int i,j,k,l;
- int numero;
- char message[200];
- Standard_Boolean ok;
- /* nombre d'objets MED */
- char nom_universel[MED_TAILLE_LNOM+1];
- med_int long_fichier_en_tete;
- char *fichier_en_tete;
- char version_hdf[10];
- char version_med[10];
- med_int nmaa,mdim,nnoe;
- med_int nmai[MED_NBR_GEOMETRIE_MAILLE],nfac[MED_NBR_GEOMETRIE_FACE];
- med_int nare[MED_NBR_GEOMETRIE_ARETE];
- /* nom du maillage */
- char nommaa[MED_TAILLE_NOM+1];
- /* noeuds */
- med_float *coo;
- char nomcoo[3*MED_TAILLE_PNOM+1];
- char unicoo[3*MED_TAILLE_PNOM+1];
- char *nomnoe;
- med_int *numnoe;
- med_int *nufano;
- med_repere rep;
- med_booleen inonoe,inunoe;
- med_mode_switch mode_coo;
- char str[MED_TAILLE_PNOM+1];
- med_int nbNodes;
- /* elements */
- med_int nsup;
- med_int edim;
- med_int taille;
- med_int elem_id,myId;
- med_int *connectivite;
- char *nomele;
- med_int *numele;
- med_int *nufael;
- med_booleen inoele, inuele;
- med_connectivite typ_con;
- med_geometrie_element typgeo;
- med_geometrie_element typmai[MED_NBR_GEOMETRIE_MAILLE] = {MED_POINT1,MED_SEG2,
- MED_SEG3,MED_TRIA3,
- MED_TRIA6,MED_QUAD4,
- MED_QUAD8,MED_TETRA4,
- MED_TETRA10,MED_HEXA8,
- MED_HEXA20,MED_PENTA6,
- MED_PENTA15,MED_PYRA5,
- MED_PYRA13};
- med_int desmai[MED_NBR_GEOMETRIE_MAILLE] = {0,2,3,3,3,4,4,4,4,6,6,5,5,5,5};
- med_int nmailles[MED_NBR_GEOMETRIE_MAILLE];
- char nommai[MED_NBR_GEOMETRIE_MAILLE] [MED_TAILLE_NOM+1] = {"MED_POINT1",
- "MED_SEG2",
- "MED_SEG3",
- "MED_TRIA3",
- "MED_TRIA6",
- "MED_QUAD4",
- "MED_QUAD8",
- "MED_TETRA4",
- "MED_TETRA10",
- "MED_HEXA8",
- "MED_HEXA20",
- "MED_PENTA6",
- "MED_PENTA15",
- "MED_PYRA5",
- "MED_PYRA13"};
- med_geometrie_element typfac[MED_NBR_GEOMETRIE_FACE] = {MED_TRIA3,MED_TRIA6,
- MED_QUAD4,MED_QUAD8};
- med_int desfac[MED_NBR_GEOMETRIE_FACE] = {3,3,4,4};
- med_int nfaces[MED_NBR_GEOMETRIE_FACE];
- char nomfac[MED_NBR_GEOMETRIE_FACE][MED_TAILLE_NOM+1] = {"MED_TRIA3","MED_TRIA6",
- "MED_QUAD4","MED_QUAD8"};
- med_geometrie_element typare[MED_NBR_GEOMETRIE_ARETE] = {MED_SEG2,MED_SEG3};
- med_int desare[MED_NBR_GEOMETRIE_ARETE] = {2,3};
- med_int naretes[MED_NBR_GEOMETRIE_ARETE];
- char nomare[MED_NBR_GEOMETRIE_ARETE] [MED_TAILLE_NOM+1] = {"MED_SEG2","MED_SEG3"};
- /* familles */
- med_int nfam;
- med_int natt,ngro;
- char *attdes,*gro;
- med_int *attval,*attide;
- char nomfam[MED_TAILLE_NOM+1];
- med_int numfam;
- char str1[MED_TAILLE_DESC+1];
- char str2[MED_TAILLE_LNOM+1];
+void DriverMED_W_SMDS_Mesh::Write()
+{
+
+ med_err ret = 0;
+ int i, j, k, l;
+ int numero;
+ char message[200];
+ bool ok;
+ /* nombre d'objets MED */
+ char nom_universel[MED_TAILLE_LNOM + 1];
+ med_int long_fichier_en_tete;
+ char *fichier_en_tete;
+ char version_hdf[10];
+ char version_med[10];
+ med_int nmaa, mdim, nnoe;
+ med_int nmai[MED_NBR_GEOMETRIE_MAILLE], nfac[MED_NBR_GEOMETRIE_FACE];
+ med_int nare[MED_NBR_GEOMETRIE_ARETE];
+ /* nom du maillage */
+ char nommaa[MED_TAILLE_NOM + 1];
+ /* noeuds */
+ med_float *coo;
+ char nomcoo[3 * MED_TAILLE_PNOM + 1];
+ char unicoo[3 * MED_TAILLE_PNOM + 1];
+ char *nomnoe;
+ med_int *numnoe;
+ med_int *nufano;
+ med_repere rep;
+ med_booleen inonoe, inunoe;
+ med_mode_switch mode_coo;
+ char str[MED_TAILLE_PNOM + 1];
+ med_int nbNodes;
+ /* elements */
+ med_int nsup;
+ med_int edim;
+ med_int taille;
+ med_int elem_id, myId;
+ med_int *connectivite;
+ char *nomele;
+ med_int *numele;
+ med_int *nufael;
+ med_booleen inoele, inuele;
+ med_connectivite typ_con;
+ med_geometrie_element typgeo;
+ med_geometrie_element typmai[MED_NBR_GEOMETRIE_MAILLE] =
+ { MED_POINT1, MED_SEG2,
+ MED_SEG3, MED_TRIA3,
+ MED_TRIA6, MED_QUAD4,
+ MED_QUAD8, MED_TETRA4,
+ MED_TETRA10, MED_HEXA8,
+ MED_HEXA20, MED_PENTA6,
+ MED_PENTA15, MED_PYRA5,
+ MED_PYRA13
+ };
+ med_int desmai[MED_NBR_GEOMETRIE_MAILLE] =
+ { 0, 2, 3, 3, 3, 4, 4, 4, 4, 6, 6, 5, 5, 5, 5 };
+ med_int nmailles[MED_NBR_GEOMETRIE_MAILLE];
+ char nommai[MED_NBR_GEOMETRIE_MAILLE][MED_TAILLE_NOM + 1] = { "MED_POINT1",
+ "MED_SEG2",
+ "MED_SEG3",
+ "MED_TRIA3",
+ "MED_TRIA6",
+ "MED_QUAD4",
+ "MED_QUAD8",
+ "MED_TETRA4",
+ "MED_TETRA10",
+ "MED_HEXA8",
+ "MED_HEXA20",
+ "MED_PENTA6",
+ "MED_PENTA15",
+ "MED_PYRA5",
+ "MED_PYRA13"
+ };
+ med_geometrie_element typfac[MED_NBR_GEOMETRIE_FACE] =
+ { MED_TRIA3, MED_TRIA6,
+ MED_QUAD4, MED_QUAD8
+ };
+ med_int desfac[MED_NBR_GEOMETRIE_FACE] = { 3, 3, 4, 4 };
+ med_int nfaces[MED_NBR_GEOMETRIE_FACE];
+ char nomfac[MED_NBR_GEOMETRIE_FACE][MED_TAILLE_NOM + 1] =
+ { "MED_TRIA3", "MED_TRIA6",
+ "MED_QUAD4", "MED_QUAD8"
+ };
+ med_geometrie_element typare[MED_NBR_GEOMETRIE_ARETE] =
+ { MED_SEG2, MED_SEG3 };
+ med_int desare[MED_NBR_GEOMETRIE_ARETE] = { 2, 3 };
+ med_int naretes[MED_NBR_GEOMETRIE_ARETE];
+ char nomare[MED_NBR_GEOMETRIE_ARETE][MED_TAILLE_NOM + 1] =
+ { "MED_SEG2", "MED_SEG3" };
+ /* familles */
+ med_int nfam;
+ med_int natt, ngro;
+ char *attdes, *gro;
+ med_int *attval, *attide;
+ char nomfam[MED_TAILLE_NOM + 1];
+ med_int numfam;
+ char str1[MED_TAILLE_DESC + 1];
+ char str2[MED_TAILLE_LNOM + 1];