program essai

  ! new: Wed Feb  7 01:27:48 UTC 2024

  use mathstuff2
  use wavmetrics
  implicit none

  write(0, *)   "----------------- essai -------------------"

  call run_first_test(44100/30)
 
contains
!-----------------------------------------------------------------------

subroutine run_first_test(nbs)
  integer, intent(in)   :: nbs                ! nombre d'echantillons

  type(intsample), allocatable     :: samples(:)
  type(wavmetric)                  :: metrics
  integer                          :: foo, bar

  write(0, '(1X, "first test on ", I0, " samples.")') nbs

! create the buffer, and fill it with garbage
  allocate(samples(nbs))
  do foo=1, nbs
    samples(foo)%left   = mod(irand(), 65534) - 32700
    samples(foo)%right  = mod(irand(), 60000) - 29999
  enddo

! compute and display the metrics (gi-go)
  call compute_wavmetric(samples, nbs, metrics)
  call display_wavmetrics(metrics)

end subroutine
!-----------------------------------------------------------------------

end program