Correct a flaw in map65a.f90 defining variable nts_jt65.

This commit is contained in:
Joe Taylor 2022-11-03 15:12:24 -04:00
parent 7187172d02
commit 377d309d89

View File

@ -50,7 +50,7 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb, &
mode65=mod(nmode,10)
if(mode65.eq.3) mode65=4
mode_q65=nmode/10
nts_jt65=2**(mode65-1) !JT65 tone separation factor
nts_jt65=mode65 !JT65 tone separation factor
nts_q65=2**(mode_q65-1) !Q65 tone separation factor
xpol=(nxpol.ne.0)