QRA65 submodes A-E now basically OK for 15, 30, 60, 120 s sequences; 300 s is NG.

lib/qra65_decode.f90

@@ -120,7 +120,8 @@ contains
 
     irc=-1
     if(snr1.ge.2.5) then
-       jpk0=(xdt+1.0)*6000   !###
+       jpk0=(xdt+1.0)*6000                      !###
+       if(ntrperiod.le.30) jpk0=(xdt+0.5)*6000  !###
        if(jpk0.lt.0) jpk0=0
        fac=1.0/32767.0
        dd=fac*iwave

lib/spec64.f90

@@ -1,7 +1,8 @@
 subroutine spec64(c0,nsps,mode,mode64,jpk,s3,LL,NN)
 
-  parameter (MAXFFT=3840)
-  complex c0(0:360000)                       !Complex spectrum of dd()
+  parameter (MAXFFT=20736)
+!### Fix this:
+  complex c0(0:1800000-1)                    !Complex spectrum of dd()
   complex cs(0:MAXFFT-1)                     !Complex symbol spectrum
   real s3(LL,NN)                             !Synchronized symbol spectra
   real xbase0(LL),xbase(LL)
@@ -76,7 +77,6 @@ subroutine spec64(c0,nsps,mode,mode64,jpk,s3,LL,NN)
 !     write(72,3072) j,m,m/2,m/4,m/8
 !3072 format(5i8)
 !  enddo
-!  if(nfft.ne.-999) stop
 
   return
 end subroutine spec64