31 int main (
int argc,
char **argv) {
33 const char meshname[
MED_NAME_SIZE+1] =
"2D unstructured mesh";
38 const med_float initial_coordinates[30] = { 2.,1., 7.,1., 12.,1., 17.,1., 22.,1.,
39 2.,6., 7.,6., 12.,6., 17.,6., 22.,6.,
40 2.,11., 7.,11., 12.,11., 17.,11., 22.,11.};
42 const med_int triaconnectivity[24] = { 1,7,6, 2,7,1, 3,7,2, 8,7,3,
43 13,7,8, 12,7,13, 11,7,12, 6,7,11 };
45 const med_int quadconnectivity[16] = {3,4,9,8, 4,5,10,9,
46 15,14,9,10, 13,8,9,14};
49 const med_float tansfMatrix_step1 [7] = { 0.0, 0.0, 0.0, 0.92388, 0.0, 0.38268, 0.0 };
51 const med_float tansfMatrix_step2 [7] = { 0.0, 0.0, 0.0, 0.707, 0.0, 0.707, 0.0 };
57 MESSAGE(
"ERROR : file creation ...");
62 if (
MEDfileCommentWr(fid,
"A 2D unstructured mesh : 15 nodes, 12 cells") < 0) {
63 MESSAGE(
"ERROR : write file description ...");
70 MESSAGE(
"ERROR : mesh creation ...");
80 nnodes, initial_coordinates) < 0) {
81 MESSAGE(
"ERROR : nodes coordinates ...");
90 ntria3, triaconnectivity) < 0) {
91 MESSAGE(
"ERROR : triangular cells connectivity ...");
99 nquad4, quadconnectivity) < 0) {
100 MESSAGE(
"ERROR : quadrangular cells connectivity ...");
110 MESSAGE(
"Erreur a l'ecriture de la transformation géométrique n°1");
116 MESSAGE(
"Erreur a l'ecriture de la transformation géométrique n°2");
122 MESSAGE(
"ERROR : create family ...");
131 MESSAGE(
"ERROR : close file ...");