From 65ff3ce05e554f474813666bd15a8e08a600c9d7 Mon Sep 17 00:00:00 2001
From: Steven Franke <s.j.franke@icloud.com>
Date: Sun, 13 Dec 2020 15:47:38 -0600
Subject: [PATCH] Remove some debug prints.

---
 lib/fst4_decode.f90 | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/lib/fst4_decode.f90 b/lib/fst4_decode.f90
index ccf6d9662..c1ef0ed26 100644
--- a/lib/fst4_decode.f90
+++ b/lib/fst4_decode.f90
@@ -93,20 +93,16 @@ contains
 
       if(first) then
 ! read the fst4_calls.txt file
-         write(*,*) 'data_dir is:',trim(data_dir)
          inquire(file=trim(data_dir)//'/fst4w_calls.txt',exist=wcalls_exists)
          if( wcalls_exists ) then
             open(42,file=trim(data_dir)//'/fst4w_calls.txt',status='unknown')
-            write(*,*) 'fst4w_calls.txt exists'
             do i=1,MAXWCALLS
                wcalls(i)=''
                read(42,fmt='(a)',end=2867) wcalls(i)
                wcalls(i)=adjustl(wcalls(i))
                if(len(trim(wcalls(i))).eq.0) exit
-               write(*,*) 'record ',i,':',wcalls(i),':',len(trim(wcalls(i)))
             enddo
 2867        nwcalls=i-1
-            write(*,*) 'nwcalls ',nwcalls
             close(42)
          endif