w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-25 13:48:42 -05:00
Code Issues Packages Projects Releases Wiki Activity

Do JT65 decodes only at nhsym=280. Rewind LU 26 in m65a only at nhsym=280.

Browse Source
This commit is contained in:
Joe Taylor 2021-07-16 16:03:09 -04:00
parent 255d35c56e
commit ea48ae04fb
3 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
map65/libm65/display.f90
View File

@ -11,7 +11,7 @@ subroutine display(nkeep,ftol)
real*8 f0 real*8 f0
out0=' ' out0=' '
rewind 26 rewind(26)
do i=1,MAXLINES do i=1,MAXLINES
read(26,1010,end=10) line(i) read(26,1010,end=10) line(i)
@ -46,7 +46,7 @@ subroutine display(nkeep,ftol)
enddo enddo
20 i0=i 20 i0=i
nz=nz-i0+1 nz=nz-i0+1
rewind 26 rewind(26)
if(nz.lt.1) go to 999 if(nz.lt.1) go to 999
do i=1,nz do i=1,nz
j=i+i0-1 j=i+i0-1

7
map65/libm65/m65a.f90
View File

@ -91,8 +91,11 @@ subroutine m65c(dd,ss,savg,nparams0)
1000 format(/'UTC Date: 'a17/78('-')) 1000 format(/'UTC Date: 'a17/78('-'))
flush(21) flush(21)
endif endif
if(iand(nrxlog,2).ne.0) rewind 21 if(iand(nrxlog,2).ne.0) rewind(21)
if(iand(nrxlog,4).ne.0) rewind 26 if(iand(nrxlog,4).ne.0) then
if(nhsym.eq.nhsym1) rewind(26)
if(nhsym.eq.nhsym2) backspace(26)
endif
nstandalone=0 nstandalone=0
if(sum(nparams).ne.0) call decode0(dd,ss,savg,nstandalone) if(sum(nparams).ne.0) call decode0(dd,ss,savg,nstandalone)

4
map65/libm65/map65a.f90
View File

@ -54,7 +54,9 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb, &
xpol=(nxpol.ne.0) xpol=(nxpol.ne.0)
! No second decode for JT65? ! No second decode for JT65?
if(nhsym.eq.nhsym2 .and. (nstandalone.eq.1 .or. ndiskdat.eq.0)) mode65=0 ! if(nhsym.eq.nhsym2 .and. (nstandalone.eq.1 .or. ndiskdat.eq.0)) mode65=0
if(nhsym.eq.nhsym2 .and. nagain.eq.0) mode65=0
! print*,'=a',nhsym,nagain,mode65
if(nagain.eq.0) then if(nagain.eq.0) then
call timer('get_cand',0) call timer('get_cand',0)