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 #include <med.h>
00026 #define MESGERR 1
00027 #include "med_utils.h"
00028 #include <string.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 char maa[MED_TAILLE_NOM+1] ="maa1";
00044 med_int mdim = 2;
00045 char nomfam[MED_TAILLE_NOM+1]="";
00046 med_int numfam;
00047 char attdes[MED_TAILLE_DESC+1]="";
00048 med_int natt;
00049 med_int attide;
00050 med_int attval;
00051 med_int ngro;
00052 char gro[MED_TAILLE_LNOM+1]="";
00053 int i;
00054 int nfame = 3;
00055 int nfamn = 2;
00056
00057
00058 if ((fid = MEDouvrir("test8.med",MODE_ACCES)) < 0) {
00059 MESSAGE("Erreur a la creation du fichier test8.med");
00060 return -1;
00061 }
00062
00063
00064 if (MEDmaaCr(fid,maa,2,MED_NON_STRUCTURE,
00065 "un maillage pour test8") < 0) {
00066 MESSAGE("Erreur a la creation du maillage");
00067 return -1;
00068 }
00069
00070
00071
00072
00073
00074
00075
00076
00077
00078
00079
00080
00081 strcpy(nomfam,"FAMILLE_0");
00082 numfam = 0;
00083 if (MEDfamCr(fid,maa,nomfam,numfam,&attide,&attval,attdes,0,
00084 gro,0) < 0) {
00085 MESSAGE("Erreur a la creation de la famille 0");
00086 return -1;
00087 }
00088
00089
00090
00091
00092 nfame = 3;
00093 for (i=0;i<nfame;i++) {
00094 strcpy(nomfam,"FAMILLE_ELEMENT_");
00095 numfam = -(i+1);
00096 sprintf(nomfam,"%s"IFORMAT,nomfam,-numfam);
00097 attide = 1;
00098 attval = numfam*100;
00099 natt = 1;
00100 strcpy(attdes,"description attribut");
00101 strcpy(gro,"groupe1");
00102 ngro = 1;
00103 printf("%s - "IFORMAT" - "IFORMAT" - "IFORMAT" - "IFORMAT" \n",nomfam,numfam,attide,attval,
00104 ngro);
00105 if (MEDfamCr(fid,maa,nomfam,numfam,&attide,&attval,attdes,
00106 natt,gro,ngro) < 0) {
00107 MESSAGE("Erreur a la creation de la famille :");
00108 SSCRUTE(nomfam); ISCRUTE(numfam);
00109 return -1;
00110 }
00111 }
00112
00113 nfamn = 2;
00114 for (i=0;i<nfamn;i++) {
00115 strcpy(nomfam,"FAMILLE_NOEUD_");
00116 numfam = i+1;
00117 sprintf(nomfam,"%s"IFORMAT,nomfam,numfam);
00118 attide = 1;
00119 attval = numfam*100;
00120 natt = 1;
00121 strcpy(attdes,"description attribut");
00122 strcpy(gro,"groupe1");
00123 ngro = 1;
00124 if (MEDfamCr(fid,maa,nomfam,numfam,&attide,&attval,attdes,
00125 natt,gro,ngro) < 0) {
00126 MESSAGE("Erreur a la creation de la famille :");
00127 SSCRUTE(nomfam); ISCRUTE(numfam);
00128 return -1;
00129 }
00130 }
00131
00132
00133
00134 if (MEDfermer(fid) < 0) {
00135 MESSAGE("Erreur a la fermeture du fichier :");
00136 return -1;
00137 }
00138
00139 return 0;
00140 }
00141
00142
00143
00144