From 324522a16c85169c2568d14e4338c682bf42d3ea Mon Sep 17 00:00:00 2001 From: Bernard Gingold Date: Sun, 15 Dec 2024 17:30:45 +0100 Subject: [PATCH] MInor addition. --- Radiolocation/GMS_waveform_analysis_types.f90 | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/Radiolocation/GMS_waveform_analysis_types.f90 b/Radiolocation/GMS_waveform_analysis_types.f90 index b3d69846..280e2089 100644 --- a/Radiolocation/GMS_waveform_analysis_types.f90 +++ b/Radiolocation/GMS_waveform_analysis_types.f90 @@ -101,8 +101,10 @@ module waveform_analysis_types ! Signal Fourier Transform (continous) single precision. type, public :: signal_ft_cont_c4_t + logical(kind=i4), dimension(15) :: alloc_stat ! arrays allocation status (is_allocated output) character(len=64) :: integrator_name ! either direct integration by ?qawf, or by tabulated data integrator - character(len=12) :: transform_type ! direct or inverse transform + character(len=12) :: transform_type ! direct or inverse transform + integer(kind=i4) :: n ! number of sample signal values real(kind=sp), dimension(:), allocatable :: a ! lower limit of integration real(kind=sp), dimension(:), allocatable :: b ! upper limit of integration @@ -135,6 +137,7 @@ module waveform_analysis_types ! Signal Fourier Transform (continous) double precision. type, public :: signal_ft_cont_c8_t + logical(kind=i4), dimension(15) :: alloc_stat ! arrays allocation status (is_allocated output) character(len=64) :: integrator_name ! either direct integration by ?qawf, or by tabulated data integrator character(len=12) :: transform_type ! direct or inverse transform integer(kind=i4) :: n ! number of sample signal values