From 23c54540e7fd3fff3ae77d750025a011792c9b88 Mon Sep 17 00:00:00 2001
From: Steve Franke <s.j.franke@icloud.com>
Date: Thu, 28 Mar 2019 10:59:20 -0500
Subject: [PATCH] Increase maximum wav file length to 20s.

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

diff --git a/lib/ft4/ft4d.f90 b/lib/ft4/ft4d.f90
index f8e6dab71..c8dae7bda 100644
--- a/lib/ft4/ft4d.f90
+++ b/lib/ft4/ft4d.f90
@@ -11,7 +11,7 @@ program ft4d
    character*4  cqstr
    real*8 fMHz
    integer ihdr(11)
-   integer*2 iwave(180000)                !15*12000
+   integer*2 iwave(240000)                !20*12000
 
    fs=12000.0/NDOWN                       !Sample rate
    dt=1/fs                                !Sample interval after downsample (s)