eccodes/examples/F90/grib_count_messages_multi.f90

! (C) Copyright 2005- ECMWF.
!
! This software is licensed under the terms of the Apache Licence Version 2.0
! which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
!
! In applying this licence, ECMWF does not waive the privileges and immunities granted to it by
! virtue of its status as an intergovernmental organisation nor does it submit to any jurisdiction.
!
!  Description: Count messages in a file with GRIB2 multi-field messages
!
!
program grib_count_messages_multi
   use eccodes
   implicit none

   integer                            ::  ifile
   character(len=100)                 ::  grib_file
   integer                            ::  n, stat
   character(len=1)                   ::  multi_flag

   call getarg(1, multi_flag)
   call getarg(2, grib_file)

   if (multi_flag /= "0") call codes_grib_multi_support_on()

   call codes_open_file(ifile, grib_file, 'r')

   ! count the messages in the file
   call codes_count_in_file(ifile, n, stat)

   print *, n

   call codes_close_file(ifile)
end program grib_count_messages_multi