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

4
fortran/eccodes_f90_tail.f90
View File

@ -1274,7 +1274,7 @@ end subroutine codes_keys_iterator_new
!> @param status CODES_SUCCESS if next iterator exists, integer value if no more elements to iterate on !> @param status CODES_SUCCESS if next iterator exists, integer value if no more elements to iterate on
subroutine codes_keys_iterator_next ( iterid , status) subroutine codes_keys_iterator_next ( iterid , status)
integer(kind=kindOfInt), intent(in) :: iterid integer(kind=kindOfInt), intent(in) :: iterid
integer(kind=kindOfInt),optional, intent(out) :: status integer(kind=kindOfInt), intent(out) :: status
call grib_keys_iterator_next ( iterid , status) call grib_keys_iterator_next ( iterid , status)
end subroutine codes_keys_iterator_next end subroutine codes_keys_iterator_next
@ -1362,7 +1362,7 @@ end subroutine codes_bufr_keys_iterator_new
!> @param status CODES_SUCCESS if next iterator exists, integer value if no more elements to iterate on !> @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) subroutine codes_bufr_keys_iterator_next (iterid , status)
integer(kind=kindOfInt), intent(in) :: iterid integer(kind=kindOfInt), intent(in) :: iterid
integer(kind=kindOfInt),optional, intent(out) :: status integer(kind=kindOfInt), intent(out) :: status
integer(kind=kindOfInt) :: iret integer(kind=kindOfInt) :: iret
status = GRIB_SUCCESS status = GRIB_SUCCESS