diff --git a/lib/pctile.f90 b/lib/pctile.f90 index 7a039b05a..3bf2ffcf8 100644 --- a/lib/pctile.f90 +++ b/lib/pctile.f90 @@ -1,6 +1,6 @@ subroutine pctile(x,npts,npct,xpct) - parameter (NMAX=128*1024) + parameter (NMAX=256*1024) real*4 x(npts) real*4 tmp(NMAX) diff --git a/lib/qra_loops.f90 b/lib/qra_loops.f90 index de58263de..cebd7036a 100644 --- a/lib/qra_loops.f90 +++ b/lib/qra_loops.f90 @@ -3,7 +3,7 @@ subroutine qra_loops(c00,npts2,nsps,mode,mode64,nsubmode,nFadingModel, & use packjt use timer_module, only: timer - parameter (LN=1152*63) + parameter (LN=2176*63) !LN=LL*NN; LL = 64*(mode64+2) character*37 decoded complex c00(0:npts2-1) !Analytic representation of dd(), 6000 Hz complex ,allocatable :: c0(:) !Ditto, with freq shift @@ -51,7 +51,6 @@ subroutine qra_loops(c00,npts2,nsps,mode,mode64,nsubmode,nFadingModel, & call pctile(s3,LL*NN,40,base) s3=s3/base where(s3(1:LL*NN)>s3lim) s3(1:LL*NN)=s3lim -! if(iavg.eq.0 .and. idf.eq.1 .and. idt.eq.1) s3a(1:LL*NN)=s3(1:LL*NN) else s3(1:LL*NN)=s3avg(1:LL*NN) endif diff --git a/lib/spec64.f90 b/lib/spec64.f90 index 0bf30e679..fe518d747 100644 --- a/lib/spec64.f90 +++ b/lib/spec64.f90 @@ -74,8 +74,8 @@ subroutine spec64(c0,nsps,mode,mode64,jpk,s3,LL,NN) ! do j=1,NN ! ipk1=maxloc(s3(1:LL,j)) ! m=ipk1(1)-65 -! write(72,3072) j,m,m/2,m/4,m/8 -!3072 format(5i8) +! write(72,3072) j,m,m/2,m/4,m/8,m/16,m/32,m/64 +!3072 format(8i7) ! enddo return diff --git a/widgets/mainwindow.cpp b/widgets/mainwindow.cpp index 231e9efa9..dbb950df7 100644 --- a/widgets/mainwindow.cpp +++ b/widgets/mainwindow.cpp @@ -6403,7 +6403,8 @@ void MainWindow::on_actionQ65_triggered() m_hsymStop=49; ui->sbTR->values ({15, 30, 60, 120, 300}); on_sbTR_valueChanged (ui->sbTR->value()); - ui->sbSubmode->setMaximum(4); +//### ui->sbSubmode->setMaximum(4); + ui->sbSubmode->setMaximum(7); ui->sbSubmode->setValue(m_nSubMode); m_wideGraph->setMode(m_mode); m_wideGraph->setMode(m_mode); m_wideGraph->setModeTx(m_modeTx);