From 255d35c56e45b82662ca79d08dac0474108210c5 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Fri, 16 Jul 2021 12:40:20 -0400
Subject: [PATCH] No need for the file read_tf2.f90.

---
 map65/libm65/read_tf2.f90 | 33 ---------------------------------
 1 file changed, 33 deletions(-)
 delete mode 100644 map65/libm65/read_tf2.f90

diff --git a/map65/libm65/read_tf2.f90 b/map65/libm65/read_tf2.f90
deleted file mode 100644
index cb6c5b1b5..000000000
--- a/map65/libm65/read_tf2.f90
+++ /dev/null
@@ -1,33 +0,0 @@
-subroutine read_tf2(k)
-
-  parameter (NFFT=32768)
-  integer*8 ms                              !ms since epoch
-  integer k                                 !data sample pointer
-  integer*2 id2(4,174)
-  logical lopen
-  real*8 fcenter
-  common/datcom/dd(4,5760000),ss(4,322,NFFT),savg(4,NFFT),fcenter,nutc,junk(38)
-  data lopen/.false./
-  save lopen
-
-  if(k.eq.0) then
-     inquire(27,opened=lopen)
-     if(lopen) then
-        rewind 27
-     else
-        open(27,file='000000_0000.tf2',status='old',access='stream')
-     endif
-     read(27) fcenter
-  endif
-  
-  read(27,end=999) id2
-  do i=1,174
-     k=k+1
-     dd(1,k)=id2(1,i)
-     dd(2,k)=id2(2,i)
-     dd(3,k)=id2(3,i)
-     dd(4,k)=id2(4,i)
-  enddo
-
-999 return
-end subroutine read_tf2