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

ECC-1899: Fix the Fortran call

This commit is contained in:
shahramn 2024-08-12 11:54:59 +01:00
parent 1db0056878
commit 11a4563c8b
4 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
fortran/eccodes_f90_tail.f90
View File

@ -2766,9 +2766,9 @@
end subroutine codes_skip_read_only
!> Set debug mode
subroutine codes_set_debug(mode)
integer(kind=kindOfInt), intent(in) :: mode
call grib_set_debug(mode)
subroutine codes_set_debug(dmode)
integer(kind=kindOfInt), intent(in) :: dmode
call grib_set_debug(dmode)
end subroutine codes_set_debug
!> Set the definition path

6
fortran/grib_f90_tail.f90
View File

@ -3178,9 +3178,9 @@
end subroutine grib_skip_read_only
!> Set debug mode
subroutine grib_set_debug(mode)
integer(kind=kindOfInt), intent(in) :: mode
call grib_f_set_debug(mode)
subroutine grib_set_debug(dmode)
integer(kind=kindOfInt), intent(in) :: dmode
call grib_f_set_debug(dmode)
end subroutine grib_set_debug

5
fortran/grib_fortran.cc
View File

@ -2893,10 +2893,11 @@ int codes_f_bufr_multi_element_constant_arrays_off_(void)
}
/*****************************************************************************/
void grib_f_set_debug_(int mode)
void grib_f_set_debug_(int* dmode)
{
Assert(dmode);
grib_context* c = grib_context_get_default();
grib_context_set_debug(c, mode);
grib_context_set_debug(c, *dmode);
}
/*****************************************************************************/

2
fortran/grib_fortran_prototypes.h
View File

@ -309,7 +309,7 @@ int grib_f_multi_append__(int *ingid, int *sec, int *mgid);
int codes_f_bufr_keys_iterator_new_(int* gid,int* iterid);
int grib_f_read_file_(int* fid, void* buffer, size_t* nbytes);
int codes_f_bufr_keys_iterator_delete_(int* iterid);
void grib_f_set_debug_(int mode);
void grib_f_set_debug_(int* mode);
int grib_f_set_definitions_path_(char* path, int len);
int grib_f_read_any_from_file_(int* fid, void* buffer, size_t* nbytes);
int any_f_new_from_file_(int* fid, int* gid);