24 #define MODE_ACCES MED_ACC_RDWR
26 #define MODE_ACCES MED_ACC_RDEXT
28 #define MODE_ACCES MED_ACC_CREAT
31 int main (
int argc,
char **argv)
51 int _coefficientit =0;
57 MESSAGE(
"Erreur a la creation du fichier current.med");
61 if ( (_ninterp =
MEDnInterp(_fid)) <0) _ret=_ninterp;
65 for ( _interpit=1; _interpit<= _ninterp; ++_interpit) {
77 MESSAGE(
"Erreur à la demande d'information de la fonction d'interpolation n°");
82 fprintf(stdout,
"Fonction d'interpolation n° %d |%s| sur le type géométrique n° %d\n",
83 _interpit,_interpname, _geotype);
86 if ( _nbasisfunc == (_geotype % 100) )
87 fprintf(stdout,
"\t Les noeuds de construction sont les noeuds de la maille de référence.\n");
89 MESSAGE(
"Erreur : le nombre de noeuds de construction "\
90 "est différent du nombre de noeuds de la maille de référence.\n");
94 if ( _nvariable != (_geotype / 100) ) {
95 MESSAGE(
"Erreur : le nombre de variables "\
96 "est différent de la dimension de l'espace de la maille de référence.\n");
99 fprintf(stdout,
"\t Il y a %d fonctions de base avec %d variables\n ",_nbasisfunc,_nvariable);
100 fprintf(stdout,
"\t Le degré maximum des fonctions de base est %d et possèdent au maximum %d coefficients\n"
101 ,_maxdegree,_nmaxcoefficient);
105 _power = (
med_int*) calloc(
sizeof(
med_int),_nvariable*_nmaxcoefficient);
107 for ( _basisfuncit=1; _basisfuncit<= _nbasisfunc; ++_basisfuncit) {
117 MESSAGE(
"Erreur à la lecture de la fonction de base n°");
ISCRUTE(_basisfuncit);
goto ERROR;
119 fprintf(stdout,
"\n\t Tableau de coefficients de la fonctions de base n° %d :\n\t",_basisfuncit);
120 for ( _coefficientit=0; _coefficientit< _ncoefficient; ++_coefficientit)
121 fprintf(stdout,
" %4f ",_coefficient[_coefficientit]);
123 fprintf(stdout,
"\n\t Tableau de puissances de la fonctions de base n° %d :\n\t",_basisfuncit);
124 for ( _powerit=0; _powerit< _nvariable*_ncoefficient; ++_powerit)
125 fprintf(stdout,
" %4d ",_power[_powerit]);
128 fprintf(stdout,
"\n");
137 MESSAGE(
"ERROR : file closing");