Remove more KVASD remnants

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

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', & if(nmode.eq.4 .or. nmode.eq.65) open(14,file=trim(temp_dir)//'/avemsg.txt', &
status='unknown') 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 if(nmode.eq.4) then
jz=52*nfsample jz=52*nfsample
if(newdat.ne.0) then if(newdat.ne.0) then
@ -110,7 +107,6 @@ subroutine decoder(ss,id2,nfsample)
call flush(6) call flush(6)
close(13) close(13)
if(nmode.eq.4 .or. nmode.eq.65) close(14) if(nmode.eq.4 .or. nmode.eq.65) close(14)
close(22)
return return
end subroutine decoder end subroutine decoder