Fortran: Add missing skip attributes

examples/F90/grib_keys_iterator_skip.f90

@@ -36,6 +36,8 @@ program keys_iterator_skip
       call codes_skip_coded(kiter)
       call codes_skip_duplicates(kiter)
       call codes_skip_read_only(kiter)
+      call codes_skip_function(kiter)
+      call codes_skip_edition_specific(kiter)
 
       do
          call codes_keys_iterator_next(kiter, iret)

fortran/eccodes_f90_tail.f90

@@ -2765,12 +2765,29 @@
     call grib_skip_read_only(iterid, status)
   end subroutine codes_skip_read_only
 
+  subroutine codes_skip_function(iterid, status)
+    integer(kind=kindOfInt), intent(in)  :: iterid
+    integer(kind=kindOfInt), optional, intent(out) :: status
+
+    call grib_skip_function(iterid, status)
+  end subroutine codes_skip_function
+
+  subroutine codes_skip_edition_specific(iterid, status)
+    integer(kind=kindOfInt), intent(in)  :: iterid
+    integer(kind=kindOfInt), optional, intent(out) :: status
+
+    call grib_skip_edition_specific(iterid, status)
+  end subroutine codes_skip_edition_specific
+
+
   !> 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
   !>
   !> In case of error, if the status parameter (optional) is not given, the program will

fortran/eccodes_visibility.h

@@ -7,6 +7,8 @@ public :: codes_keys_iterator_new, &
 public :: codes_skip_computed, &
           codes_skip_coded, &
           codes_skip_duplicates, &
+          codes_skip_function, &
+          codes_skip_edition_specific, &
           codes_skip_read_only
 public :: codes_keys_iterator_get_name, &
           codes_keys_iterator_rewind

fortran/grib_f90_tail.f90

@@ -3177,6 +3177,34 @@
     end if
   end subroutine grib_skip_read_only
 
+
+  subroutine grib_skip_function(iterid, status)
+    integer(kind=kindOfInt), intent(in)            :: iterid
+    integer(kind=kindOfInt), optional, intent(out) :: status
+    integer(kind=kindOfInt)                        :: iret
+
+    iret = grib_f_skip_function(iterid)
+    if (present(status)) then
+      status = iret
+    else
+      call grib_check(iret, 'skip_function', '')
+    end if
+  end subroutine grib_skip_function
+
+  !!!
+  subroutine grib_skip_edition_specific(iterid, status)
+    integer(kind=kindOfInt), intent(in)            :: iterid
+    integer(kind=kindOfInt), optional, intent(out) :: status
+    integer(kind=kindOfInt)                        :: iret
+
+    iret = grib_f_skip_edition_specific(iterid)
+    if (present(status)) then
+      status = iret
+    else
+      call grib_check(iret, 'skip_edition_specific', '')
+    end if
+  end subroutine grib_skip_edition_specific
+
   !> Set debug mode
   subroutine grib_set_debug(dmode)
     integer(kind=kindOfInt), intent(in) :: dmode