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

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

4
lib/jt9.f90
View File

@ -139,7 +139,7 @@ program jt9
read (optarg(:arglen), *) nexp_decode read (optarg(:arglen), *) nexp_decode
end select end select
end do end do
if (display_help .or. stat .lt. 0 & if (display_help .or. stat .lt. 0 &
.or. (.not. read_files .and. remain .gt. 0) & .or. (.not. read_files .and. remain .gt. 0) &
.or. (read_files .and. remain .lt. 1)) then .or. (read_files .and. remain .lt. 1)) then
@ -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