w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-09-28 08:06:35 -04:00
Code Issues Packages Projects Releases Wiki Activity

Remove more KVASD remnants

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6173 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Bill Somerville 2015-11-24 19:46:59 +00:00
parent 1a08ce3383
commit eb1004ec76
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/decoder.f90
View File

@ -36,9 +36,6 @@ subroutine decoder(ss,id2,nfsample)
if(nmode.eq.4 .or. nmode.eq.65) open(14,file=trim(temp_dir)//'/avemsg.txt', &
status='unknown')
if(nmode.eq.65 .or. nmode.eq.(65+9)) open(22,file=trim(temp_dir)// &
'/kvasd.dat',access='direct',recl=1024,status='unknown')
if(nmode.eq.4) then
jz=52*nfsample
if(newdat.ne.0) then
@ -110,7 +107,6 @@ subroutine decoder(ss,id2,nfsample)
call flush(6)
close(13)
if(nmode.eq.4 .or. nmode.eq.65) close(14)
close(22)
return
end subroutine decoder