put wavmetrics in modules dir

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