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

Cleanup

This commit is contained in:
Shahram Najm 2024-01-06 13:55:05 +00:00
parent 0f3d2bf9d2
commit 7bd5d6228b
1 changed files with 41 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fortran/grib_fortran.c
View File

@ -1439,7 +1439,7 @@ int any_f_scan_file_(int* fid, int* n) {
grib_context* c=grib_context_get_default();
/* this needs a callback to a destructor*/
/* grib_oarray_delete_content(c,binary_messages); */
/* grib_oarray_delete_content(c, info_messages); */
grib_oarray_delete(c, info_messages);
info_messages=grib_oarray_new(c, 1000, 1000);
@ -1547,7 +1547,8 @@ int any_f_new_from_loaded_(int* msgid,int* gid)
if (h) {
push_handle(h, gid);
return GRIB_SUCCESS;
} else {
}
else {
*gid = -1;
return GRIB_END_OF_FILE;
}
@ -1580,7 +1581,8 @@ int any_f_new_from_file_(int* fid, int* gid){
if (h) {
push_handle(h, gid);
return GRIB_SUCCESS;
} else {
}
else {
*gid = -1;
return GRIB_END_OF_FILE;
}