40 lines
1020 B
Fortran
40 lines
1020 B
Fortran
|
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
|