w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-07-30 12:42:27 -04:00
Code Issues Packages Projects Releases Wiki Activity

Replace variable name 'mode64' with 'mode_q65' in several more places.

Browse Source
This commit is contained in:
Joe Taylor 2021-04-15 13:56:41 -04:00
parent 7b007e07f8
commit 30d37f292b
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
map65/libm65/map65a.f90
View File

@ -34,9 +34,9 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb, &
mode65=mod(nmode,10) mode65=mod(nmode,10)
if(mode65.eq.3) mode65=4 if(mode65.eq.3) mode65=4
mode64=nmode/10 mode_q65=nmode/10
nwrite_q65=0 nwrite_q65=0
bq65=mode64.gt.0 bq65=mode_q65.gt.0
mcall3a=mcall3b mcall3a=mcall3b
mousefqso0=mousefqso mousefqso0=mousefqso
xpol=(nxpol.ne.0) xpol=(nxpol.ne.0)
@ -226,8 +226,7 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb, &
if(nqd.eq.2) then if(nqd.eq.2) then
call timer('q65 ',0) call timer('q65 ',0)
call q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz, & call q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz, &
mousedf,ntol,xpol,mycall,hiscall,hisgrid, & mousedf,ntol,xpol,mycall,hiscall,hisgrid,mode_q65)
mode64)
call timer('q65 ',1) call timer('q65 ',1)
cycle cycle
endif endif