w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-04 16:31:17 -05:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/pctile.f90
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)

3
lib/qra_loops.f90
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

4
lib/spec64.f90
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

3
widgets/mainwindow.cpp
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);