put wavmetrics in modules dir

Modules/Makefile

@@ -6,7 +6,7 @@
 
 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
 	gfortran $(GFOPT) -c $<
 
+wavmetrics.o:		wavmetrics.f90 Makefile
+	gfortran $(GFOPT) -c $<
+
 #----------------------------------------------------------
 #	making a fluffy archive
 #
 OBJECTS =	spitpgm.o		pixrgb.o	\
 		centermag.o		dummy.o		\
 		trials.o		mathstuff2.o	\
-		noisepictures.o
+		noisepictures.o		wavmetrics.o
 
 libtth90modules.a:	$(OBJECTS) Makefile
 	$(AR) 	rs $@ $?
 
+#	please explain the 'ar' command line
+
 #----------------------------------------------------------
 #     programmes de testouille
 #

Modules/wavmetrics.f90

@@ -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