From fcf6b1f816d7b92358c5e89e6b351dd98cb496e1 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Thu, 7 May 2020 11:33:06 -0400
Subject: [PATCH] Fix a bug in wav11.f90.

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

diff --git a/lib/wav11.f90 b/lib/wav11.f90
index 219b7880a..1311d2512 100644
--- a/lib/wav11.f90
+++ b/lib/wav11.f90
@@ -6,7 +6,7 @@ subroutine wav11(d2,npts,dd)
   parameter (NFFT1=64*12000,NFFT2=64*11025)
   integer*2 d2(NZ12)
   real*4 dd(NZ11)
-  real x(NFFT2)
+  real x(NFFT1)
   complex cx(0:NFFT1/2)
   equivalence (x,cx)
   save x,cx