w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-25 05:38:46 -05:00
Code Issues Packages Projects Releases Wiki Activity

Use LU=26 in readwav.f90.

Browse Source
This commit is contained in:
Joe Taylor 2019-06-04 10:39:43 -04:00
parent 14867a868b
commit 6a2ac44916
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/readwav.f90
View File

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