From 9109ad0b0b8937d8de0c6abe77828490e73f790f Mon Sep 17 00:00:00 2001 From: Shahram Najm Date: Tue, 11 Jul 2017 17:27:52 +0100 Subject: [PATCH] ECC-503: Fortran interface: status argument of keys_iterator_next should not be optional --- fortran/eccodes_f90_tail.f90 | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/fortran/eccodes_f90_tail.f90 b/fortran/eccodes_f90_tail.f90 index 8ee8b4bbf..b4d026e63 100644 --- a/fortran/eccodes_f90_tail.f90 +++ b/fortran/eccodes_f90_tail.f90 @@ -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 )