From 90fb84e43ed144de741922ac398e483797272baf Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Thu, 22 Oct 2020 19:20:56 -0400 Subject: [PATCH] All QRA65 submodes and sequence lengths 15 - 300 s are now basically functional. --- lib/qra_loops.f90 | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lib/qra_loops.f90 b/lib/qra_loops.f90 index 21dbc863d..a835ed5e9 100644 --- a/lib/qra_loops.f90 +++ b/lib/qra_loops.f90 @@ -5,8 +5,8 @@ subroutine qra_loops(c00,npts2,nsps,mode,mode64,nsubmode,nFadingModel, & use timer_module, only: timer parameter (LN=1152*63) character*37 decoded - complex c00(0:720000) !Analytic representation of dd(), 6000 Hz - complex c0(0:720000) !Ditto, with freq shift + complex c00(0:npts2-1) !Analytic representation of dd(), 6000 Hz + complex ,allocatable :: c0(:) !Ditto, with freq shift real a(3) !twkfreq params f,f1,f2 real s3(LN) !Symbol spectra real s3avg(LN) !Averaged symbol spectra @@ -15,6 +15,7 @@ subroutine qra_loops(c00,npts2,nsps,mode,mode64,nsubmode,nFadingModel, & data nap/0,2,3,2,3,4,2,3,6,4,6,6/,nsave/0/ save nsave,s3avg + allocate(c0(0:npts2-1)) irc=-99 s3lim=20. ibwmax=11