put wavmetrics in modules dir
This commit is contained in:
parent
3da1022e8f
commit
49183e4153
|
@ -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
|
||||
#
|
||||
|
|
|
@ -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
|
Loading…
Reference in New Issue