Fortran: Data quality checks

fortran/eccodes_f90_tail.f90

@@ -2786,6 +2786,12 @@
     call grib_set_debug(dmode)
   end subroutine codes_set_debug
 
+  !> Set data quality check value (0, 1 or 2)
+  subroutine codes_set_data_quality_checks(val)
+    integer(kind=kindOfInt), intent(in) :: val
+    call grib_set_data_quality_checks(val)
+  end subroutine codes_set_data_quality_checks
+
 
 
   !> Set the definition path

fortran/grib_api_externals.h

@@ -79,7 +79,7 @@ integer, external :: grib_f_set_int, grib_f_set_int_array, &
 integer, external :: grib_f_get_message_size, grib_f_copy_message, grib_f_count_in_file
 integer, external :: grib_f_write, grib_f_multi_write, grib_f_multi_append
 integer, external :: grib_f_clone, grib_f_copy_namespace
-external :: grib_f_check , grib_f_set_debug
+external :: grib_f_check , grib_f_set_debug, grib_f_set_data_quality_checks
 integer, external :: grib_f_util_sections_copy
 integer, external :: grib_f_set_definitions_path, grib_f_set_samples_path
 integer, external :: grib_f_julian_to_datetime, grib_f_datetime_to_julian, grib_f_copy_key

fortran/grib_f90_tail.f90

@@ -3211,6 +3211,12 @@
     call grib_f_set_debug(dmode)
   end subroutine grib_set_debug
 
+  !> Set data quality check value (0, 1 or 2)
+  subroutine grib_set_data_quality_checks(val)
+    integer(kind=kindOfInt), intent(in) :: val
+    call grib_f_set_data_quality_checks(val)
+  end subroutine grib_set_data_quality_checks
+
 
   !> Set the definition path
   !>

fortran/grib_fortran.cc

@@ -2875,6 +2875,13 @@ void grib_f_set_debug_(int* dmode)
     grib_context* c = grib_context_get_default();
     grib_context_set_debug(c, *dmode);
 }
+/*****************************************************************************/
+void grib_f_set_data_quality_checks_(int* val)
+{
+    Assert(val);
+    grib_context* c = grib_context_get_default();
+    grib_context_set_data_quality_checks(c, *val);
+}
 
 /*****************************************************************************/
 int grib_f_set_definitions_path_(char* path, int len)

fortran/grib_fortran_prototypes.h

@@ -310,6 +310,7 @@ 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_data_quality_checks_(int* val);
 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);