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

Correct the open() statement in readwav.f90.

Browse Source
This commit is contained in:
Joe Taylor 2019-06-04 10:19:35 -04:00
parent bda0206617
commit d3121bfedd
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/jt9.f90
View File

@ -234,7 +234,7 @@ program jt9
read(unit=wav%lun,end=3) shared_data%id2(k-kstep+1:k) read(unit=wav%lun,end=3) shared_data%id2(k-kstep+1:k)
go to 4 go to 4
3 call timer('read_wav',1) 3 call timer('read_wav',1)
print*,'EOF on input file ',infile print*,'EOF on input file ',trim(infile)
exit exit
4 call timer('read_wav',1) 4 call timer('read_wav',1)
nhsym=(k-2048)/kstep nhsym=(k-2048)/kstep

2
lib/readwav.f90
View File

@ -53,7 +53,7 @@ contains
type(riff_descriptor) :: desc type(riff_descriptor) :: desc
character(len=4) :: riff_type character(len=4) :: riff_type
open (newunit=this%lun, file=filename, access='stream', form='unformatted', 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)
do do