! Copyright 2005-2017 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
