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

Fortran: Add missing skip attributes

This commit is contained in:
shahramn 2024-08-25 13:11:44 +01:00
parent 4ef34f02e3
commit 64f9c026bf
4 changed files with 49 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/F90/grib_keys_iterator_skip.f90
View File

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

17
fortran/eccodes_f90_tail.f90
View File

@ -2765,12 +2765,29 @@
call grib_skip_read_only(iterid, status) call grib_skip_read_only(iterid, status)
end subroutine codes_skip_read_only 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 !> Set debug mode
subroutine codes_set_debug(dmode) subroutine codes_set_debug(dmode)
integer(kind=kindOfInt), intent(in) :: dmode integer(kind=kindOfInt), intent(in) :: dmode
call grib_set_debug(dmode) call grib_set_debug(dmode)
end subroutine codes_set_debug end subroutine codes_set_debug
!> Set the definition path !> Set the definition path
!> !>
!> In case of error, if the status parameter (optional) is not given, the program will !> In case of error, if the status parameter (optional) is not given, the program will

2
fortran/eccodes_visibility.h
View File

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

28
fortran/grib_f90_tail.f90
View File

@ -3177,6 +3177,34 @@
end if end if
end subroutine grib_skip_read_only 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 !> Set debug mode
subroutine grib_set_debug(dmode) subroutine grib_set_debug(dmode)
integer(kind=kindOfInt), intent(in) :: dmode integer(kind=kindOfInt), intent(in) :: dmode