Fortraneries/Modules/wavmetrics.f90

41 lines
903 B
Fortran
Raw Normal View History

2024-02-07 00:50:27 +01:00
! 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