w4kek
/
WSJT-X
mirror of https://github.com/saitohirga/WSJT-X.git
1
0
Fork 0
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.)

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)
parameter (NMAX=128*1024)
parameter (NMAX=256*1024)
real*4 x(npts)
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 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

4
lib/spec64.f90
View File

@ -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

3
widgets/mainwindow.cpp
View File

@ -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);