From 67422f2ede74a7d5b2ef622a4b5c820e01dc298e Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Mon, 29 Jun 2020 13:28:06 -0400
Subject: [PATCH] Remove a diagnostic write statement.

---
 lib/fst240_decode.f90 | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/lib/fst240_decode.f90 b/lib/fst240_decode.f90
index 1347654a4..106344139 100644
--- a/lib/fst240_decode.f90
+++ b/lib/fst240_decode.f90
@@ -61,9 +61,6 @@ contains
              1,0,0,1,0,1,1,0,0,0,0,1,0,0,0,1,0,1,0,0,1,1,1,1,0,0,1,0,1, &
              0,1,0,1,0,1,1,0,1,1,1,1,1,0,0,0,1,0,1/
 
-   write(*,3001) nzhsym,emedelay,lapcqonly,napwid,mycall,hiscall
-3001 format(i4,f6.1,L3,i3,2x,2a12)
-   
    this%callback => callback
    hmod=2**nsubmode
    if(nfqso+nqsoprogress.eq.-999) return