From 3807f533b3a7f2c18c048d0d264a9e03a4479a2d Mon Sep 17 00:00:00 2001 From: Shahram Najm Date: Tue, 19 Dec 2023 19:04:04 +0000 Subject: [PATCH] Examples: Initialise counter --- examples/F90/grib_multi.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/examples/F90/grib_multi.f90 b/examples/F90/grib_multi.f90 index c18b005fe..f225e6f04 100644 --- a/examples/F90/grib_multi.f90 +++ b/examples/F90/grib_multi.f90 @@ -16,7 +16,7 @@ program multi use eccodes implicit none - integer :: iret, counter + integer :: iret, counter=0 integer(kind=4) :: step integer :: ifile, igrib