From 6a2ac44916d73ffaed3a57fb3c8bc7125231bac4 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Tue, 4 Jun 2019 10:39:43 -0400
Subject: [PATCH] Use LU=26 in readwav.f90.

---
 lib/readwav.f90 | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lib/readwav.f90 b/lib/readwav.f90
index 5cd866e68..253690496 100644
--- a/lib/readwav.f90
+++ b/lib/readwav.f90
@@ -53,6 +53,7 @@ contains
     type(riff_descriptor) :: desc
     character(len=4) :: riff_type
 
+    this%lun=26
     open (unit=this%lun, file=filename, access='stream',status='old')
     read (unit=this%lun) desc,riff_type
     inquire (unit=this%lun, pos=filepos)
@@ -67,5 +68,6 @@ contains
        end if
        filepos = filepos + (desc%size + 1) / 2 * 2 ! pad to even alignment
     end do
+    return
   end subroutine read
 end module readwav