peakrm Subroutine

public subroutine peakrm(dt, spec, freq, thm, dfm)

Finds a peak and flags it to search for subsequent ones. Flags are negated weights, so they are not lost.

Arguments

Type IntentOptional AttributesName
real(kind=TIME), intent(in) :: dt

peak width

type(SPEC_T) :: spec

spectrum structure (changed on output)

real(kind=TIME), intent(out) :: freq

current peak frequency

real(kind=SP), intent(out) :: thm

current peak value

real(kind=SP), intent(out) :: dfm

current peak width


Contents

None