Remove a few more vestiges of ISCAT mode.

This commit is contained in:
Joe Taylor 2021-03-03 11:59:03 -05:00
parent 4573c78acd
commit 0e6f536d3e
2 changed files with 0 additions and 10 deletions

View File

@ -424,7 +424,6 @@ set (wsjt_FSRCS
lib/gen4.f90
lib/gen65.f90
lib/gen9.f90
lib/geniscat.f90
lib/genwave.f90
lib/ft8/genft8.f90
lib/qra/q65/genq65.f90
@ -456,7 +455,6 @@ set (wsjt_FSRCS
lib/interleave63.f90
lib/interleave9.f90
lib/inter_wspr.f90
lib/iscat.f90
lib/jplsubs.f
lib/jt9fano.f90
lib/jtmsg.f90
@ -538,7 +536,6 @@ set (wsjt_FSRCS
lib/sync9.f90
lib/sync9f.f90
lib/sync9w.f90
lib/synciscat.f90
lib/timf2.f90
lib/tweak1.f90
lib/twkfreq.f90

View File

@ -86,13 +86,6 @@ subroutine fast_decode(id2,narg,trperiod,line,mycall_12, &
endif
jz=ib-ia+1
line(1:100)(1:1)=char(0)
if(npick.eq.2) then
call iscat(cdat2(ia),jz,3,40,t2,pick,cfile6,minsync,ntol, &
mousebutton,mode4,nafc,ndebug,psavg,nmax,nlines,line)
else
call iscat(cdat(ia),jz,3,40,t2,pick,cfile6,minsync,ntol, &
mousebutton,mode4,nafc,ndebug,psavg,maxlines,nlines,line)
endif
900 return
end subroutine fast_decode