test8.c
Aller à la documentation de ce fichier.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_ACC_RDWR
00032 #elif DEF_LECT_AJOUT
00033 #define MODE_ACCES MED_ACC_RDEXT
00034 #else
00035 #define MODE_ACCES MED_ACC_CREAT
00036 #endif
00037
00038 int main (int argc, char **argv)
00039
00040
00041 {
00042 med_idt fid = 0;
00043 char maa[MED_NAME_SIZE+1] ="maa1";
00044 med_int mdim = 2;
00045 char nomfam[MED_NAME_SIZE+1]="";
00046 med_int numfam;
00047 med_int ngro;
00048 char gro[MED_LNAME_SIZE+1]="";
00049 int i;
00050 int nfame = 3;
00051 int nfamn = 2;
00052 char nomcoo[2*MED_SNAME_SIZE+1] = "x y ";
00053 char unicoo[2*MED_SNAME_SIZE+1] = "cm cm ";
00054
00055
00056 if ((fid = MEDfileOpen("test8.med",MODE_ACCES)) < 0) {
00057 MESSAGE("Erreur a la creation du fichier test8.med");
00058 return -1;
00059 }
00060
00061 if (MEDmeshCr( fid, maa, mdim, mdim, MED_UNSTRUCTURED_MESH,
00062 "un maillage pour test8","s", MED_SORT_DTIT,
00063 MED_CARTESIAN, nomcoo, unicoo) < 0) {
00064 MESSAGE("Erreur a la creation du maillage : "); SSCRUTE(maa);
00065 return -1;
00066 }
00067
00068
00069
00070
00071
00072
00073
00074
00075
00076
00077
00078
00079 strcpy(nomfam,"FAMILLE_0");
00080 numfam = 0;
00081 if (MEDfamilyCr(fid,maa,nomfam,numfam,0,"") < 0) {
00082 MESSAGE("Erreur a la creation de la famille 0");
00083 return -1;
00084 }
00085
00086
00087
00088
00089 nfame = 3;
00090 for (i=0;i<nfame;i++) {
00091 numfam = -(i+1);
00092 sprintf(nomfam,"%s"IFORMAT,"FAMILLE_ELEMENT_",-numfam);
00093 strcpy(gro,"groupe1");
00094 ngro = 1;
00095 printf("%s - "IFORMAT" - "IFORMAT" \n",nomfam,numfam,
00096 ngro);
00097 if (MEDfamilyCr(fid,maa,nomfam,numfam,ngro,gro) < 0) {
00098 MESSAGE("Erreur a la creation de la famille :");
00099 SSCRUTE(nomfam); ISCRUTE(numfam);
00100 return -1;
00101 }
00102 }
00103
00104 nfamn = 2;
00105 for (i=0;i<nfamn;i++) {
00106 numfam = i+1;
00107 sprintf(nomfam,"%s"IFORMAT,"FAMILLE_NOEUD_",numfam);
00108 strcpy(gro,"groupe1");
00109 ngro = 1;
00110 if (MEDfamilyCr(fid,maa,nomfam,numfam,ngro,gro) < 0) {
00111 MESSAGE("Erreur a la creation de la famille :");
00112 SSCRUTE(nomfam); ISCRUTE(numfam);
00113 return -1;
00114 }
00115 }
00116
00117
00118
00119 if (MEDfileClose(fid) < 0) {
00120 MESSAGE("Erreur a la fermeture du fichier :");
00121 return -1;
00122 }
00123
00124 return 0;
00125 }
00126
00127
00128
00129