Enable some changes for Q65 submodes F, G, H. (They won't decode without additions to the core Q65 decoder.)

This commit is contained in:
Joe Taylor 2020-10-25 15:44:52 -04:00
parent 7a22e6a2e1
commit ef2c63af29
4 changed files with 6 additions and 6 deletions

View File

@ -1,6 +1,6 @@
subroutine pctile(x,npts,npct,xpct) subroutine pctile(x,npts,npct,xpct)
parameter (NMAX=128*1024) parameter (NMAX=256*1024)
real*4 x(npts) real*4 x(npts)
real*4 tmp(NMAX) real*4 tmp(NMAX)

View File

@ -3,7 +3,7 @@ subroutine qra_loops(c00,npts2,nsps,mode,mode64,nsubmode,nFadingModel, &
use packjt use packjt
use timer_module, only: timer use timer_module, only: timer
parameter (LN=1152*63) parameter (LN=2176*63) !LN=LL*NN; LL = 64*(mode64+2)
character*37 decoded character*37 decoded
complex c00(0:npts2-1) !Analytic representation of dd(), 6000 Hz complex c00(0:npts2-1) !Analytic representation of dd(), 6000 Hz
complex ,allocatable :: c0(:) !Ditto, with freq shift 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) call pctile(s3,LL*NN,40,base)
s3=s3/base s3=s3/base
where(s3(1:LL*NN)>s3lim) s3(1:LL*NN)=s3lim 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 else
s3(1:LL*NN)=s3avg(1:LL*NN) s3(1:LL*NN)=s3avg(1:LL*NN)
endif endif

View File

@ -74,8 +74,8 @@ subroutine spec64(c0,nsps,mode,mode64,jpk,s3,LL,NN)
! do j=1,NN ! do j=1,NN
! ipk1=maxloc(s3(1:LL,j)) ! ipk1=maxloc(s3(1:LL,j))
! m=ipk1(1)-65 ! m=ipk1(1)-65
! write(72,3072) j,m,m/2,m/4,m/8 ! write(72,3072) j,m,m/2,m/4,m/8,m/16,m/32,m/64
!3072 format(5i8) !3072 format(8i7)
! enddo ! enddo
return return

View File

@ -6403,7 +6403,8 @@ void MainWindow::on_actionQ65_triggered()
m_hsymStop=49; m_hsymStop=49;
ui->sbTR->values ({15, 30, 60, 120, 300}); ui->sbTR->values ({15, 30, 60, 120, 300});
on_sbTR_valueChanged (ui->sbTR->value()); 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); ui->sbSubmode->setValue(m_nSubMode); m_wideGraph->setMode(m_mode);
m_wideGraph->setMode(m_mode); m_wideGraph->setMode(m_mode);
m_wideGraph->setModeTx(m_modeTx); m_wideGraph->setModeTx(m_modeTx);