#define MESGERR 1
#include <string.h>
int main (
int argc,
char **argv) {
const med_float initial_coordinates[30] = { 2.,1., 7.,1., 12.,1., 17.,1., 22.,1.,
2.,6., 7.,6., 12.,6., 17.,6., 22.,6.,
2.,11., 7.,11., 12.,11., 17.,11., 22.,11.};
const med_int triaconnectivity[24] = { 1,7,6, 2,7,1, 3,7,2, 8,7,3,
13,7,8, 12,7,13, 11,7,12, 6,7,11 };
const med_int quadconnectivity[16] = {3,4,9,8, 4,5,10,9,
15,14,9,10, 13,8,9,14};
const med_float tansfMatrix_step1 [7] = { 0.0, 0.0, 0.0, 0.92388, 0.0, 0.38268, 0.0 };
const med_float tansfMatrix_step2 [7] = { 0.0, 0.0, 0.0, 0.707, 0.0, 0.707, 0.0 };
int ret=-1;
if (fid < 0) {
MESSAGE(
"ERROR : file creation ...");
goto ERROR;
}
MESSAGE(
"ERROR : write file description ...");
goto ERROR;
}
MESSAGE(
"ERROR : mesh creation ...");
goto ERROR;
}
nnodes, initial_coordinates) < 0) {
MESSAGE(
"ERROR : nodes coordinates ...");
goto ERROR;
}
ntria3, triaconnectivity) < 0) {
MESSAGE(
"ERROR : triangular cells connectivity ...");
goto ERROR;
}
nquad4, quadconnectivity) < 0) {
MESSAGE(
"ERROR : quadrangular cells connectivity ...");
goto ERROR;
}
MESSAGE(
"Erreur a l'ecriture de la transformation géométrique n°1");
goto ERROR;
}
MESSAGE(
"Erreur a l'ecriture de la transformation géométrique n°2");
goto ERROR;
}
MESSAGE(
"ERROR : create family ...");
goto ERROR;
}
ret=0;
ERROR:
ret=-1;
}
return ret;
}