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

ECC-503: Fortran interface: status argument of keys_iterator_next should not be optional

This commit is contained in:
Shahram Najm 2017-07-11 17:27:52 +01:00
parent 62f549d24c
commit 9109ad0b0b
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
fortran/eccodes_f90_tail.f90
View File

@ -1273,8 +1273,8 @@ end subroutine codes_keys_iterator_new
!> @param iterid keys iterator id created with @ref codes_keys_iterator_new
!> @param status CODES_SUCCESS if next iterator exists, integer value if no more elements to iterate on
subroutine codes_keys_iterator_next ( iterid , status)
integer(kind=kindOfInt), intent(in) :: iterid
integer(kind=kindOfInt),optional, intent(out) :: status
integer(kind=kindOfInt), intent(in) :: iterid
integer(kind=kindOfInt), intent(out) :: status
call grib_keys_iterator_next ( iterid , status)
end subroutine codes_keys_iterator_next
@ -1361,9 +1361,9 @@ end subroutine codes_bufr_keys_iterator_new
!> @param iterid keys iterator id created with @ref codes_bufr_keys_iterator_new
!> @param status CODES_SUCCESS if next iterator exists, integer value if no more elements to iterate on
subroutine codes_bufr_keys_iterator_next (iterid , status)
integer(kind=kindOfInt), intent(in) :: iterid
integer(kind=kindOfInt),optional, intent(out) :: status
integer(kind=kindOfInt) :: iret
integer(kind=kindOfInt), intent(in) :: iterid
integer(kind=kindOfInt), intent(out) :: status
integer(kind=kindOfInt) :: iret
status = GRIB_SUCCESS
iret = codes_f_bufr_keys_iterator_next( iterid )