Examples: Fortran dump fixes

2023-08-22 15:38:31 +01:00 · 2023-08-22 15:38:31 +01:00 · bfb9893d28
parent 2a667cef1b
commit bfb9893d28
1 changed files with 3 additions and 4 deletions
--- a/examples/F90/codes_dump.f90
+++ b/examples/F90/codes_dump.f90
@ -11,12 +11,11 @@ program grib_dump_test
   use eccodes
   implicit none
   integer            :: ifile
-   integer            :: iret, i
+   integer            :: iret
   integer            :: count1 = 0
-   integer            :: msgid  ! message identifier
+   integer            :: msgid
   character(len=100) :: infile_name

-   ifile = 5
   call getarg(1, infile_name)
   call codes_open_file(ifile, infile_name, 'r')