#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 new_coordinates_step1 [6] = { 12.,15., 17.,15., 22.,15.};
const char profile1name[
MED_NAME_SIZE+1] =
"UPPER_QUAD4_PROFILE";
const med_int profile1[3] = {13, 14, 15};
const med_float new_coordinates_step2 [6] = { 12.,10., 17.,10., 22.,10.};
const char profile2name[
MED_NAME_SIZE+1] =
"MIDDLE_QUAD4_PROFILE";
const med_int profile2[3] = {8, 9, 10};
int ret=-1;
if (fid < 0) {
MESSAGE(
"ERROR : file creation ...");
goto ERROR;
}
MESSAGE(
"ERROR : write file description ...");
goto ERROR;
}
if (
MEDprofileWr(fid, profile1name, profile1size, profile1 ) < 0) {
MESSAGE(
"ERROR : create profile ...");
goto ERROR;
}
if (
MEDprofileWr(fid, profile2name, profile2size, profile2 ) < 0) {
MESSAGE(
"ERROR : create profile ...");
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;
}
nnodes, new_coordinates_step1 ) < 0) {
MESSAGE(
"ERROR : nodes coordinates ...");
goto ERROR;
}
nnodes, new_coordinates_step2 ) < 0) {
MESSAGE(
"ERROR : nodes coordinates ...");
goto ERROR;
}
MESSAGE(
"ERROR : familly 0 creation ...");
goto ERROR;
}
ret=0;
ERROR:
ret=-1;
}
return ret;
}