From 203e0da5d6c4af13fb0ecc91ad932ff80e8a83ff Mon Sep 17 00:00:00 2001
From: Bill Somerville <bill@classdesign.com>
Date: Sun, 4 Oct 2020 00:45:56 +0100
Subject: [PATCH] Fix up out of date common block sizing

---
 lib/ft8/foxgen_wrap.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/ft8/foxgen_wrap.f90 b/lib/ft8/foxgen_wrap.f90
index fec9f37c6..825107607 100644
--- a/lib/ft8/foxgen_wrap.f90
+++ b/lib/ft8/foxgen_wrap.f90
@@ -1,7 +1,7 @@
 subroutine foxgen_wrap(msg40,msgbits,itone)
 
   parameter (NN=79,ND=58,KK=77,NSPS=4*1920)
-  parameter (NWAVE=(160+2)*134400) !the biggest waveform we generate (FST4-1800)
+  parameter (NWAVE=(160+2)*134400*4) !the biggest waveform we generate (FST4-1800)
 
   character*40 msg40,cmsg
   character*12 mycall12