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

Fixed handling of nutc and kbuf.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@397 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2007-06-21 18:21:21 +00:00
parent de785cab80
commit d2c2dcaebb
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
getfile2.F90
View File

@ -30,6 +30,8 @@ subroutine getfile2(fname,len)
ierr=0
n=8*NSMAX
monitoring=0
kbuf=1
#ifdef Win32
! open(10,file=fname,form='binary',status='old',err=998)
call rfile3a(fname,id,n,ierr)

8
map65a.f90
View File

@ -73,10 +73,10 @@ subroutine map65a
! print*,'B',newdat2,nfilt,freq,nflip,ip0
write(*,3001) newdat2,nfilt,nflip,ip0,freq, &
(id(1,i),id(2,i),id(3,i),id(4,i),i=1,2)
(id(1,i,kbuf),id(2,i,kbuf),id(3,i,kbuf),id(4,i,kbuf),i=1,2)
3001 format(4i5,f10.3,8i5)
call decode1a(id,newdat2,nfilt,freq,nflip,ip0,sync2, &
call decode1a(id(1,1,kbuf),newdat2,nfilt,freq,nflip,ip0,sync2, &
a,dt,pol,nkv,nhist,qual,decoded)
! print*,'C',nkv,qual,decoded
nsync1=0
@ -103,7 +103,7 @@ subroutine map65a
short(3,i)=0.
enddo
call symspec(id,nz,savg)
call symspec(id(1,1,kbuf),nz,savg)
newspec=1
freq0=-999.
@ -197,7 +197,7 @@ subroutine map65a
if(freq-freq0.gt.ftol .or. sync1.gt.sync10) then
nflip=nint(flipk)
call decode1a(id,newdat2,nfilt,freq,nflip,ipol, &
call decode1a(id(1,1,kbuf),newdat2,nfilt,freq,nflip,ipol, &
sync2,a,dt,pol,nkv,nhist,qual,decoded)
! i9=index(decoded,'AA1YN')
! if(i9.gt.0) print*,i,i9,fselect,freq,decoded