SpectreAnalysis_ Derived Type

type, public :: SpectreAnalysis_


Components

Type Visibility Attributes Name Initial
type(IO_), public :: display
type(IO_), public, allocatable :: files(:)
integer(kind=int32), public, allocatable :: num_lines(:,:)
integer(kind=int32), public, allocatable :: BOL(:)
real(kind=real32), public :: sampling_Hz
integer(kind=int32), public :: max_file_num = 10000
integer(kind=int32), public :: last_file_id
real(kind=real64), public, allocatable :: Freq(:)
real(kind=real64), public :: in1 = 0.0d0
real(kind=real64), public :: in2 = 0.0d0
real(kind=real64), public :: out1 = 0.0d0
real(kind=real64), public :: out2 = 0.0d0
complex(kind=real64), public :: in1_cmplx = 0.0d0
complex(kind=real64), public :: in2_cmplx = 0.0d0
complex(kind=real64), public :: out1_cmplx = 0.0d0
complex(kind=real64), public :: out2_cmplx = 0.0d0
complex(kind=real64), public, allocatable :: FDD_S(:,:)
complex(kind=real64), public, allocatable :: FDD_Phi(:,:,:)
logical, public :: initialized = .false.

Type-Bound Procedures

procedure, public :: init => initSpectreAnalysis

  • public subroutine initSpectreAnalysis(this, sampling_Hz, max_file_num)

    Arguments

    Type IntentOptional Attributes Name
    class(SpectreAnalysis_), intent(inout) :: this
    real(kind=real32), intent(in) :: sampling_Hz
    integer(kind=int32), intent(in), optional :: max_file_num

procedure, public :: add => addSpectreAnalysis

  • public subroutine addSpectreAnalysis(this, name, lines, BOL)

    Arguments

    Type IntentOptional Attributes Name
    class(SpectreAnalysis_), intent(inout) :: this
    character(len=*), intent(in) :: name
    integer(kind=int32), intent(in) :: lines(1:2)
    integer(kind=int32), intent(in) :: BOL

procedure, public :: channel => channelSpectreAnalysis

  • public function channelSpectreAnalysis(this, channel) result(vec_data)

    $OMP parallel do default(shared) private(n, i, loc_data_id, line,row_data) $OMP end parallel do

    Arguments

    Type IntentOptional Attributes Name
    class(SpectreAnalysis_), intent(inout) :: this
    integer(kind=int32), intent(in) :: channel

    Return Value real(kind=real64), allocatable, (:)

procedure, public :: plot => plotSpectreAnalysis

  • public subroutine plotSpectreAnalysis(this, channels)

    Arguments

    Type IntentOptional Attributes Name
    class(SpectreAnalysis_), intent(inout) :: this
    integer(kind=int32), intent(in) :: channels(:)

procedure, public, pass :: FFTSpectreAnalysis

  • public function FFTSpectreAnalysis(this, channel, Taper, Stacking, window_size) result(FFT_result)

    Arguments

    Type IntentOptional Attributes Name
    class(SpectreAnalysis_), intent(inout) :: this
    integer(kind=int32), intent(in) :: channel
    integer(kind=int32), intent(in) :: Taper
    real(kind=real32), intent(in) :: Stacking(:)
    integer(kind=int32), intent(in) :: window_size

    Return Value complex(kind=complex64), allocatable, (:)

procedure, public, pass :: FFT_for_vector_SpectreAnalysis

  • public function FFT_for_vector_SpectreAnalysis(this, vector, Taper, Stacking, window_size) result(FFT_result)

    Arguments

    Type IntentOptional Attributes Name
    class(SpectreAnalysis_), intent(inout) :: this
    real(kind=real64), intent(in) :: vector(:)
    integer(kind=int32), intent(in) :: Taper
    real(kind=real32), intent(in) :: Stacking(:)
    integer(kind=int32), intent(in) :: window_size

    Return Value complex(kind=complex64), allocatable, (:)

generic, public :: FFT => FFTSpectreAnalysis, FFT_for_vector_SpectreAnalysis

  • public function FFTSpectreAnalysis(this, channel, Taper, Stacking, window_size) result(FFT_result)

    Arguments

    Type IntentOptional Attributes Name
    class(SpectreAnalysis_), intent(inout) :: this
    integer(kind=int32), intent(in) :: channel
    integer(kind=int32), intent(in) :: Taper
    real(kind=real32), intent(in) :: Stacking(:)
    integer(kind=int32), intent(in) :: window_size

    Return Value complex(kind=complex64), allocatable, (:)

  • public function FFT_for_vector_SpectreAnalysis(this, vector, Taper, Stacking, window_size) result(FFT_result)

    Arguments

    Type IntentOptional Attributes Name
    class(SpectreAnalysis_), intent(inout) :: this
    real(kind=real64), intent(in) :: vector(:)
    integer(kind=int32), intent(in) :: Taper
    real(kind=real32), intent(in) :: Stacking(:)
    integer(kind=int32), intent(in) :: window_size

    Return Value complex(kind=complex64), allocatable, (:)

procedure, public :: PSD => PSDSpectreAnalysis

  • public function PSDSpectreAnalysis(this, channel, Taper, Stacking, window_size, wave_data) result(PSD_result)

    Arguments

    Type IntentOptional Attributes Name
    class(SpectreAnalysis_), intent(inout) :: this
    integer(kind=int32), intent(in) :: channel
    integer(kind=int32), intent(in) :: Taper
    real(kind=real32), intent(in) :: Stacking(:)
    integer(kind=int32), intent(in) :: window_size
    type(SpectreAnalysis_), intent(inout) :: wave_data(:)

    Return Value complex(kind=complex64), allocatable, (:,:,:)

procedure, public :: PowerSpectrum => PowerSpectrumSpectreAnalysis

  • public function PowerSpectrumSpectreAnalysis(this, channel, Taper, Stacking, window_size) result(PowerSpectrum)

    Arguments

    Type IntentOptional Attributes Name
    class(SpectreAnalysis_), intent(inout) :: this
    integer(kind=int32), intent(in) :: channel
    integer(kind=int32), intent(in) :: Taper
    real(kind=real32), intent(in) :: Stacking(:)
    integer(kind=int32), intent(in) :: window_size

    Return Value real(kind=real64), allocatable, (:)

procedure, public :: freq_axis => freq_axisSpectreAnalysis

  • public function freq_axisSpectreAnalysis(this, window_size) result(freq)

    Arguments

    Type IntentOptional Attributes Name
    class(SpectreAnalysis_), intent(in) :: this
    integer(kind=int32), intent(in) :: window_size

    Return Value real(kind=real64), allocatable, (:)

procedure, public :: FDD => FDD_SpectreAnalysis

  • public subroutine FDD_SpectreAnalysis(this, wave_data, window_size, channel, Taper, Stacking)

    Arguments

    Type IntentOptional Attributes Name
    class(SpectreAnalysis_), intent(inout) :: this
    type(SpectreAnalysis_), intent(inout) :: wave_data(:)
    integer(kind=int32), intent(in) :: window_size
    integer(kind=int32), intent(in) :: channel
    integer(kind=int32), intent(in) :: Taper
    real(kind=real32), intent(in) :: Stacking(:)

procedure, public :: export => exportSpectreAnalysis

procedure, public, pass :: bandpass_complex64_scalar_SpectreAnalysis

  • public function bandpass_complex64_scalar_SpectreAnalysis(this, x, freq_range) result(ft)

    Arguments

    Type IntentOptional Attributes Name
    class(SpectreAnalysis_), intent(inout) :: this
    complex(kind=real64), intent(in) :: x
    real(kind=real32), intent(in) :: freq_range(1:2)

    Return Value complex(kind=real64)

procedure, public, pass :: bandpass_complex64_SpectreAnalysis

  • public function bandpass_complex64_SpectreAnalysis(this, x, freq_range) result(ft)

    Arguments

    Type IntentOptional Attributes Name
    class(SpectreAnalysis_), intent(inout) :: this
    complex(kind=real64), intent(in) :: x(:)
    real(kind=real32), intent(in) :: freq_range(1:2)

    Return Value complex(kind=real64), allocatable, (:)

procedure, public, pass :: bandpass_real64_scalar_SpectreAnalysis

  • public function bandpass_real64_scalar_SpectreAnalysis(this, x, freq_range) result(ft)

    Arguments

    Type IntentOptional Attributes Name
    class(SpectreAnalysis_), intent(inout) :: this
    real(kind=real64), intent(in) :: x
    real(kind=real32), intent(in) :: freq_range(1:2)

    Return Value real(kind=real64)

procedure, public, pass :: bandpass_real64_SpectreAnalysis

  • public function bandpass_real64_SpectreAnalysis(this, x, freq_range) result(ft)

    Arguments

    Type IntentOptional Attributes Name
    class(SpectreAnalysis_), intent(inout) :: this
    real(kind=real64), intent(in) :: x(:)
    real(kind=real32), intent(in) :: freq_range(1:2)

    Return Value real(kind=real64), allocatable, (:)

generic, public :: bandpass => bandpass_complex64_scalar_SpectreAnalysis, bandpass_complex64_SpectreAnalysis, bandpass_real64_scalar_SpectreAnalysis, bandpass_real64_SpectreAnalysis

  • public function bandpass_complex64_scalar_SpectreAnalysis(this, x, freq_range) result(ft)

    Arguments

    Type IntentOptional Attributes Name
    class(SpectreAnalysis_), intent(inout) :: this
    complex(kind=real64), intent(in) :: x
    real(kind=real32), intent(in) :: freq_range(1:2)

    Return Value complex(kind=real64)

  • public function bandpass_complex64_SpectreAnalysis(this, x, freq_range) result(ft)

    Arguments

    Type IntentOptional Attributes Name
    class(SpectreAnalysis_), intent(inout) :: this
    complex(kind=real64), intent(in) :: x(:)
    real(kind=real32), intent(in) :: freq_range(1:2)

    Return Value complex(kind=real64), allocatable, (:)

  • public function bandpass_real64_scalar_SpectreAnalysis(this, x, freq_range) result(ft)

    Arguments

    Type IntentOptional Attributes Name
    class(SpectreAnalysis_), intent(inout) :: this
    real(kind=real64), intent(in) :: x
    real(kind=real32), intent(in) :: freq_range(1:2)

    Return Value real(kind=real64)

  • public function bandpass_real64_SpectreAnalysis(this, x, freq_range) result(ft)

    Arguments

    Type IntentOptional Attributes Name
    class(SpectreAnalysis_), intent(inout) :: this
    real(kind=real64), intent(in) :: x(:)
    real(kind=real32), intent(in) :: freq_range(1:2)

    Return Value real(kind=real64), allocatable, (:)

procedure, public :: lowpass => lowpass_vector_SpectreAnalysis

  • public function lowpass_vector_SpectreAnalysis(this, x, cutoff_frequency) result(ret)

    Arguments

    Type IntentOptional Attributes Name
    class(SpectreAnalysis_), intent(in) :: this
    real(kind=real64), intent(in) :: x(:)
    real(kind=real64), intent(in) :: cutoff_frequency

    Return Value real(kind=real64), allocatable, (:)

procedure, public, pass :: cutifSpectreAnalysis

  • public function cutifSpectreAnalysis(this, x_t, window_size, sigma) result(x_r)

    Arguments

    Type IntentOptional Attributes Name
    class(SpectreAnalysis_), intent(in) :: this
    real(kind=real64), intent(in) :: x_t(:)
    integer(kind=int32), intent(in) :: window_size
    real(kind=real64), intent(in), optional :: sigma

    Return Value real(kind=real64), allocatable, (:)

procedure, public, pass :: cutif_loggers_SpectreAnalysis

  • public function cutif_loggers_SpectreAnalysis(this, x_t, window_size, sigma, log) result(x_r)

    Arguments

    Type IntentOptional Attributes Name
    class(SpectreAnalysis_), intent(in) :: this
    real(kind=real64), intent(in) :: x_t(:,:)
    integer(kind=int32), intent(in) :: window_size
    real(kind=real64), intent(in), optional :: sigma
    character(len=*), intent(in), optional :: log

    Return Value real(kind=real64), allocatable, (:,:)

generic, public :: cutif => cutifSpectreAnalysis, cutif_loggers_SpectreAnalysis

  • public function cutifSpectreAnalysis(this, x_t, window_size, sigma) result(x_r)

    Arguments

    Type IntentOptional Attributes Name
    class(SpectreAnalysis_), intent(in) :: this
    real(kind=real64), intent(in) :: x_t(:)
    integer(kind=int32), intent(in) :: window_size
    real(kind=real64), intent(in), optional :: sigma

    Return Value real(kind=real64), allocatable, (:)

  • public function cutif_loggers_SpectreAnalysis(this, x_t, window_size, sigma, log) result(x_r)

    Arguments

    Type IntentOptional Attributes Name
    class(SpectreAnalysis_), intent(in) :: this
    real(kind=real64), intent(in) :: x_t(:,:)
    integer(kind=int32), intent(in) :: window_size
    real(kind=real64), intent(in), optional :: sigma
    character(len=*), intent(in), optional :: log

    Return Value real(kind=real64), allocatable, (:,:)

procedure, public :: whiteNoize => whiteNoizeSpectreAnalysis

  • public function whiteNoizeSpectreAnalysis(this, n, t) result(x)

    Arguments

    Type IntentOptional Attributes Name
    class(SpectreAnalysis_), intent(in) :: this
    integer(kind=int32), intent(in) :: n
    real(kind=real64), intent(inout), optional, allocatable :: t(:)

    Return Value real(kind=real64), allocatable, (:)

procedure, public :: time => timeSpectreAnalysis

  • public function timeSpectreAnalysis(this, n) result(t)

    Arguments

    Type IntentOptional Attributes Name
    class(SpectreAnalysis_), intent(in) :: this
    integer(kind=int32), intent(in) :: n

    Return Value real(kind=real64), allocatable, (:)

procedure, public :: to_segment => to_segmentSpectreAnalysis

  • public function to_segmentSpectreAnalysis(this, time_and_components, n) result(segments)

    Arguments

    Type IntentOptional Attributes Name
    class(SpectreAnalysis_), intent(in) :: this
    real(kind=real64), intent(in) :: time_and_components(:,:)
    integer(kind=int32) :: n

    Return Value real(kind=real64), allocatable, (:,:,:)

procedure, public :: applyTaper => applyTaper_SpectreAnalysis

  • public subroutine applyTaper_SpectreAnalysis(this, segments, percent)

    Arguments

    Type IntentOptional Attributes Name
    class(SpectreAnalysis_), intent(in) :: this
    real(kind=real64), intent(inout) :: segments(:,:,:)
    integer(kind=int32), intent(in) :: percent

procedure, public :: FourierAmplitude => FourierAmplitude_SpectreAnalysis

  • public function FourierAmplitude_SpectreAnalysis(this, all_segments) result(all_spectrum)

    Arguments

    Type IntentOptional Attributes Name
    class(SpectreAnalysis_), intent(in) :: this
    real(kind=real64), intent(in) :: all_segments(:,:,:)

    Return Value real(kind=real64), allocatable, (:,:,:)

procedure, public :: FourierPhase => FourierPhase_SpectreAnalysis

  • public function FourierPhase_SpectreAnalysis(this, all_segments) result(all_spectrum)

    Arguments

    Type IntentOptional Attributes Name
    class(SpectreAnalysis_), intent(in) :: this
    real(kind=real64), intent(in) :: all_segments(:,:,:)

    Return Value real(kind=real64), allocatable, (:,:,:)

procedure, public :: masw => masw_SpectreAnalysis

  • public function masw_SpectreAnalysis(this, t, x, position, c_axis) result(ret)

    Arguments

    Type IntentOptional Attributes Name
    class(SpectreAnalysis_), intent(in) :: this
    real(kind=real64), intent(in) :: t(:)
    real(kind=real64), intent(in) :: x(:,:)
    real(kind=real64), intent(in) :: position(:)
    real(kind=real64), intent(in) :: c_axis(:)

    Return Value complex(kind=real64), allocatable, (:,:)

procedure, public :: fk => fk_SpectreAnalysis

  • public function fk_SpectreAnalysis(this, t, x, position, k_axis) result(z)

    Arguments

    Type IntentOptional Attributes Name
    class(SpectreAnalysis_), intent(in) :: this
    real(kind=real64), intent(in) :: t(:)
    real(kind=real64), intent(in) :: x(:,:)
    real(kind=real64), intent(in) :: position(:)
    real(kind=real64), intent(in) :: k_axis(:)

    Return Value complex(kind=real64), allocatable, (:,:)

procedure, public :: write => write_SpectreAnalysis

  • public subroutine write_SpectreAnalysis(this, name, all_spectrum)

    Arguments

    Type IntentOptional Attributes Name
    class(SpectreAnalysis_), intent(in) :: this
    character(len=*), intent(in) :: name
    real(kind=real64), allocatable :: all_spectrum(:,:,:)