41 lines
903 B
Fortran
41 lines
903 B
Fortran
|
|
||
|
|
! 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
|