From 5034e21291f86e62f595cd050a77553b640459e2 Mon Sep 17 00:00:00 2001 From: Steve Franke Date: Fri, 21 Dec 2018 09:51:39 -0600 Subject: [PATCH] Remove some diagnostic writes. --- lib/ft8/genft8.f90 | 1 - 1 file changed, 1 deletion(-) diff --git a/lib/ft8/genft8.f90 b/lib/ft8/genft8.f90 index 949348530..41ff546c3 100644 --- a/lib/ft8/genft8.f90 +++ b/lib/ft8/genft8.f90 @@ -18,7 +18,6 @@ subroutine genft8(msg,i3,n3,msgsent,msgbits,itone) n3=-1 call pack77(msg,i3,n3,c77) call unpack77(c77,0,msgsent,unpk77_success) -write(*,*) 'in genft8 ',i3,n3,msgsent read(c77,'(77i1)',err=1) msgbits if(unpk77_success) go to 2 1 msgbits=0