From 7192f53e68a03877b650af68d4d0ec5b31b35887 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Fri, 19 Feb 2021 09:47:30 -0500 Subject: [PATCH] Code cleanup. --- lib/qra/q65/q65.f90 | 2 -- 1 file changed, 2 deletions(-) diff --git a/lib/qra/q65/q65.f90 b/lib/qra/q65/q65.f90 index 06a37a2dc..b020ed55d 100644 --- a/lib/qra/q65/q65.f90 +++ b/lib/qra/q65/q65.f90 @@ -636,8 +636,6 @@ subroutine q65_snr(dat4,dtdec,f0dec,mode_q65,snr2) integer itone(85) real, allocatable :: spec(:) -! write(70) mode_q65,df,dtdec,f0dec,iz0,jz0,s1raw - allocate(spec(iz0)) call q65_enc(dat4,codeword) i=1