! new: Thu Jan  4 00:08:04 UTC 2024

module wavmetrics

  use mathstuff2
  implicit none

  type wavmetric
    integer             :: num
    real                :: freql, freqr
    integer             :: maxl,  maxr
  end type

  type intsample
    integer             :: left, right
  end type

  contains

!-------------------------------------------------------------

subroutine compute_wavmetric(samples, start, size, metrics)
  type(intsample), intent(in)       :: samples(:)
  integer, intent(in)               :: start, size
  type(wavmetric), intent(out)      :: metrics

end subroutine

!-------------------------------------------------------------

subroutine display_wavmetrics(metrics)
  type(wavmetric), intent(in)      :: metrics

end subroutine

!-------------------------------------------------------------
!-------------------------------------------------------------

end module