put wavmetrics in modules dir

This commit is contained in:
tTh 2024-02-07 00:50:27 +01:00
parent 3da1022e8f
commit 49183e4153
2 changed files with 47 additions and 2 deletions

View File

@ -6,7 +6,7 @@
GFOPT = -Wall -Wextra -g -I. GFOPT = -Wall -Wextra -g -I.
all: chkpixels trnd t all: chkpixels trnd
# --------------------------------------------------------- # ---------------------------------------------------------
@ -31,17 +31,22 @@ mathstuff2.o: mathstuff2.f90 Makefile
noisepictures.o: noisepictures.f90 Makefile noisepictures.o: noisepictures.f90 Makefile
gfortran $(GFOPT) -c $< gfortran $(GFOPT) -c $<
wavmetrics.o: wavmetrics.f90 Makefile
gfortran $(GFOPT) -c $<
#---------------------------------------------------------- #----------------------------------------------------------
# making a fluffy archive # making a fluffy archive
# #
OBJECTS = spitpgm.o pixrgb.o \ OBJECTS = spitpgm.o pixrgb.o \
centermag.o dummy.o \ centermag.o dummy.o \
trials.o mathstuff2.o \ trials.o mathstuff2.o \
noisepictures.o noisepictures.o wavmetrics.o
libtth90modules.a: $(OBJECTS) Makefile libtth90modules.a: $(OBJECTS) Makefile
$(AR) rs $@ $? $(AR) rs $@ $?
# please explain the 'ar' command line
#---------------------------------------------------------- #----------------------------------------------------------
# programmes de testouille # programmes de testouille
# #

40
Modules/wavmetrics.f90 Normal file
View File

@ -0,0 +1,40 @@
! 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