00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026 #include <med.h>
00027 #define MESGERR 1
00028 #include <med_utils.h>
00029
00030 #ifdef DEF_LECT_ECR
00031 #define MODE_ACCES MED_LECTURE_ECRITURE
00032 #elif DEF_LECT_AJOUT
00033 #define MODE_ACCES MED_LECTURE_AJOUT
00034 #else
00035 #define MODE_ACCES MED_CREATION
00036 #endif
00037
00038 int main (int argc, char **argv)
00039
00040
00041 {
00042 med_idt fid;
00043 med_int nse2 = 5;
00044 med_int se2[10] = {1,2,1,3,2,4,3,4,2,3};
00045
00046 char nomse2[MED_TAILLE_PNOM*5+1]="se1 se2 se3 se4 se5 ";
00047 med_int numse2[5] = {1,2,3,4,5};
00048 med_int nufase2[5] = {-1,-1,0,-2,-3};
00049 med_int ntr3 = 2;
00050 med_int tr3[6] = {1,2,-5,-5,3,-4};
00051
00052 char nomtr3[MED_TAILLE_PNOM*2+1] = "tr1 tr2 ";
00053 med_int numtr3[2] = {4,5};
00054 med_int nufatr3[2] = {0,-1};
00055 char maa[MED_TAILLE_NOM+1] = "maa1";
00056 med_int mdim = 2;
00057
00058
00059 if ( (fid = MEDouvrir("test6.med",MODE_ACCES)) < 0) {
00060 MESSAGE("Impossible de creer le fichier test6.med : ");
00061 return -1;
00062 }
00063
00064
00065 if ( MEDmaaCr(fid,maa,mdim,MED_NON_STRUCTURE,
00066 "un maillage pour test6") < 0 ) {
00067 MESSAGE("Impossible de creer le maillage : ");
00068 return -1;
00069 }
00070
00071
00072 if ( MEDconnEcr(fid,maa,mdim,se2,MED_FULL_INTERLACE,nse2,MED_ARETE,MED_SEG2,
00073 MED_DESC) < 0 ) {
00074 MESSAGE("Impossible d'ecrire la connectivité des segments: ");
00075 return -1;
00076 }
00077
00078
00079
00080 if ( MEDnomEcr(fid,maa,nomse2,nse2,MED_ARETE,MED_SEG2) < 0 ) {
00081 MESSAGE("Impossible d'ecrire les noms des segments : ");
00082 return -1;
00083 }
00084
00085
00086 if ( MEDnumEcr(fid,maa,numse2,nse2,MED_ARETE,MED_SEG2) < 0 ) {
00087 MESSAGE("Impossible d'ecrire les numéros des segments : ");
00088 return -1;
00089 }
00090
00091
00092 if ( MEDfamEcr(fid,maa,nufase2,nse2,MED_ARETE,MED_SEG2) < 0 ) {
00093 MESSAGE("Impossible d'ecrire les numéros de famille des segments : ");
00094 return -1;
00095 }
00096
00097
00098 if ( MEDconnEcr(fid,maa,mdim,tr3,MED_FULL_INTERLACE,ntr3,MED_MAILLE,MED_TRIA3,
00099 MED_DESC) < 0 ) {
00100 MESSAGE("Impossible d'ecrire la connectivité des triangles : ");
00101 return -1;
00102 }
00103
00104
00105 if ( MEDnomEcr(fid, maa, nomtr3, ntr3, MED_MAILLE, MED_TRIA3) < 0 ) {
00106 MESSAGE("Impossible d'ecrire les noms des triangles : ");
00107 return -1;
00108 }
00109
00110
00111 if ( MEDnumEcr(fid,maa,numtr3,ntr3,MED_MAILLE,MED_TRIA3) < 0 ) {
00112 MESSAGE("Impossible d'ecrire les numéros des triangles : ");
00113 return -1;
00114 }
00115
00116
00117 if ( MEDfamEcr(fid,maa,nufatr3,ntr3,MED_MAILLE,MED_TRIA3) < 0 ) {
00118 MESSAGE("Impossible d'ecrire les numéros de famille des triangles : ");
00119 return -1;
00120 }
00121
00122
00123 if ( MEDfermer(fid) < 0 ) {
00124 MESSAGE("Impossible de fermerle fichier : ");
00125 return -1;
00126 }
00127
00128 return 0;
00129
00130 }
00131
00132
00133