#define MESGERR 1
#include <string.h>
int main (
int argc,
char **argv) {
med_int nprofile, pit, profilesize;
int ret=-1;
if (fid < 0) {
goto ERROR;
}
componentname, componentunit, dtunit, &nstep) < 0) {
MESSAGE(
"ERROR : Field info by name ...");
goto ERROR;
}
MESSAGE(
"ERROR : Read how many interpolation functions for the field ...");
goto ERROR;
}
for (it=0; it<ninterp; it++) {
MESSAGE(
"ERROR : read interpolation family name ...");
goto ERROR;
}
}
for (csit=0; csit<nstep; csit++) {
MESSAGE(
"ERROR : Computing step info ...");
goto ERROR;
}
geotype = geotypes[it];
profilename, localizationname)) < 0) {
MESSAGE(
"ERROR : read number of profile ");
goto ERROR;
}
for (pit=0; pit<nprofile; pit++) {
localizationname, &nintegrationpoint)) < 0) {
MESSAGE(
"ERROR : read number of values with a profile ...");
goto ERROR;
}
if (nvalues) {
if ((values = (
med_float *) malloc(
sizeof(
med_float)*nvalues*ncomponent*nintegrationpoint)) == NULL) {
MESSAGE(
"ERROR : memory allocation ...");
goto ERROR;
}
(unsigned char*) values) < 0) {
MESSAGE(
"ERROR : read fields values for cells ...");
free(values);
goto ERROR;
}
free(values);
}
}
}
}
ret=0;
ERROR:
ret=-1;
}
return ret;
}