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

Examples: comments etc

This commit is contained in:
Shahram Najm 2017-07-11 17:12:03 +01:00
parent 08b98706da
commit 62f549d24c
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
examples/F90/grib_keys_iterator.f90
View File

@ -9,7 +9,7 @@
! !
! Description: ! Description:
! How to use keys_iterator to get all the available ! How to use keys_iterator to get all the available
! keys in a message. ! keys in a GRIB message.
! !
! !
! !
@ -43,7 +43,7 @@ program keys_iterator
do do
call codes_keys_iterator_next(kiter, iret) call codes_keys_iterator_next(kiter, iret)
if (iret .ne. CODES_SUCCESS) exit if (iret .ne. CODES_SUCCESS) exit !terminate the loop
call codes_keys_iterator_get_name(kiter,key) call codes_keys_iterator_get_name(kiter,key)
call codes_get(igrib,trim(key),value) call codes_get(igrib,trim(key),value)
@ -61,4 +61,3 @@ program keys_iterator
call codes_close_file(ifile) call codes_close_file(ifile)
end program keys_iterator end program keys_iterator