From 0e6f536d3e45e40f09773d75da94f36c29c96f94 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Wed, 3 Mar 2021 11:59:03 -0500
Subject: [PATCH] Remove a few more vestiges of ISCAT mode.

---
 CMakeLists.txt      | 3 ---
 lib/fast_decode.f90 | 7 -------
 2 files changed, 10 deletions(-)

diff --git a/CMakeLists.txt b/CMakeLists.txt
index f4bda4cd7..add29e425 100644
--- a/CMakeLists.txt
+++ b/CMakeLists.txt
@@ -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
diff --git a/lib/fast_decode.f90 b/lib/fast_decode.f90
index d32314b93..30384b0aa 100644
--- a/lib/fast_decode.f90
+++ b/lib/fast_decode.f90
@@ -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