core
/
eccodes
mirror of https://github.com/ecmwf/eccodes.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

ECC-1572: part 2

This commit is contained in:
Shahram Najm 2023-04-26 16:52:02 +00:00
parent f9613ee29b
commit 4f8d151dc3
2 changed files with 23 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
fortran/grib_fortran.c
View File

@ -2770,11 +2770,30 @@ int grib_f_get_real4_array_(int* gid, char* key, float *val, int* size, int len)
if(!h){
return GRIB_INVALID_GRIB;
}else{
err = grib_get_float_array(h, cast_char(buf,key,len), val, &lsize);
*size = lsize;
}
err = grib_get_float_array(h, cast_char(buf,key,len), val, &lsize);
if (err == GRIB_NOT_IMPLEMENTED) {
double* val8 = NULL;
size_t i = 0;
if(*size)
val8 = (double*)grib_context_malloc(h->context,(*size)*(sizeof(double)));
else
val8 = (double*)grib_context_malloc(h->context,sizeof(double));
if(!val8) return GRIB_OUT_OF_MEMORY;
err = grib_get_double_array(h, cast_char(buf,key,len), val8, &lsize);
if (err) {
grib_context_free(h->context,val8);
return err;
}
for(i=0;i<lsize;i++)
val[i] = val8[i];
grib_context_free(h->context,val8);
return err;
}
*size = lsize;
return err;
}
int grib_f_get_real4_array__(int* gid, char* key, float* val, int* size, int len){
return grib_f_get_real4_array_( gid, key, val, size, len);

2
src/grib_value.cc
View File

@ -1349,7 +1349,7 @@ int grib_get_float_array(const grib_handle* h, const char* name, float* val, siz
//[> TODO: For now only GRIB supported... no BUFR keys <]
if (h->product_kind != PRODUCT_GRIB) {
grib_context_log(h->context, GRIB_LOG_ERROR, "grib_get_float_array only supported for GRIB");
//grib_context_log(h->context, GRIB_LOG_ERROR, "grib_get_float_array only supported for GRIB");
return GRIB_NOT_IMPLEMENTED;
}
Assert(name[0]!='/');