w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-08-03 06:32:26 -04:00
Code Issues Packages Projects Releases Wiki Activity

Improved and the implementation of "Find dphi".

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@478 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2007-07-09 19:27:58 +00:00
parent bf6c93851a
commit 2c694c7007
2 changed files with 28 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ftn_init.F90
View File

@ -17,6 +17,7 @@
! 24 meas24.dat ! 24 meas24.dat
! 25 meas25.dat ! 25 meas25.dat
! 26 tmp26.tmp ! 26 tmp26.tmp
! 27 dphi.txt
!------------------------------------------------ ftn_init !------------------------------------------------ ftn_init
subroutine ftn_init subroutine ftn_init
@ -132,6 +133,13 @@ subroutine ftn_init
open(26,file=appdir(:iz)//'/tmp26.txt',status='unknown') open(26,file=appdir(:iz)//'/tmp26.txt',status='unknown')
#endif #endif
#ifdef Win32
open(27,file=appdir(:iz)//'/dphi.txt',status='unknown', &
share='denynone')
#else
open(27,file=appdir(:iz)//'/dphi.txt',status='unknown')
#endif
return return
910 print*,'Error opening DECODED.TXT' 910 print*,'Error opening DECODED.TXT'

34
map65a.F90
View File

@ -167,9 +167,8 @@ subroutine map65a(newdat)
! Keep only the best candidate within ftol. ! Keep only the best candidate within ftol.
! (Am I deleting any good decodes by doing this?) ! (Am I deleting any good decodes by doing this?)
if(freq-freq0.le.ftol .and. sync1.gt.sync10 .and. & if(freq-freq0.le.ftol .and. sync1.gt.sync10 .and. &
nkm.eq.1 .and.ndphi.eq.0) km=km-1 nkm.eq.1) km=km-1
if(freq-freq0.gt.ftol .or. sync1.gt.sync10 .or. & if(freq-freq0.gt.ftol .or. sync1.gt.sync10) then
ndphi.eq.1) then
nflip=nint(flipk) nflip=nint(flipk)
call decode1a(id(1,1,kbuf),newdat,nfilt,freq,nflip, & call decode1a(id(1,1,kbuf),newdat,nfilt,freq,nflip, &
mycall,hiscall,hisgrid,neme,ndepth,nqd,dphi,ndphi, & mycall,hiscall,hisgrid,neme,ndepth,nqd,dphi,ndphi, &
@ -233,27 +232,34 @@ subroutine map65a(newdat)
nsync2=nint(10.0*log10(sync2)) - 40 !### empirical ### nsync2=nint(10.0*log10(sync2)) - 40 !### empirical ###
nw=0 !### Fix this! ### nw=0 !### Fix this! ###
nwrite=nwrite+1 nwrite=nwrite+1
write(11,1010) nkHz,ndf,npol,nutc,dt,nsync2,decoded,nkv, & if(ndphi.eq.0) then
nqual,30*iloop write(11,1010) nkHz,ndf,npol,nutc,dt,nsync2,decoded,nkv,nqual
1010 format(i3,i5,i4,i5.4,f5.1,i4,2x,a22,i5,i4,i4) 1010 format(i3,i5,i4,i5.4,f5.1,i4,2x,a22,i5,i4,i4)
else
write(11,1010) nkHz,ndf,npol,nutc,dt,nsync2,decoded,nkv, &
nqual,30*iloop
write(27,1011) 30*iloop,nkHz,ndf,npol,nutc, &
dt,sync2,nkv,nqual,decoded
1011 format(i3,i4,i5,i4,i5.4,f5.1,f7.1,i3,i5,2x,a22)
endif
endif endif
enddo enddo
if(nwrite.eq.0) then if(nwrite.eq.0) then
write(11,1011) mousefqso,nutc write(11,1012) mousefqso,nutc
1011 format(i3,9x,i5.4) 1012 format(i3,9x,i5.4)
endif endif
write(11,*) '$EOF'
call flushqqq(11)
t2=sec_midn()
if(ndebug.eq.2) write(*,3002) mod(int(t2),60)
3002 format('mod65a 2:'i8.2)
ndecdone=1
endif endif
if(ndphi.eq.1 .and.iloop.lt.12) then if(ndphi.eq.1 .and.iloop.lt.12) then
iloop=iloop+1 iloop=iloop+1
go to 1 go to 1
endif endif
write(11,*) '$EOF'
call flushqqq(11)
ndecdone=1
t2=sec_midn()
if(ndebug.eq.2) write(*,3002) mod(int(t2),60)
3002 format('mod65a 2:'i8.2)
if(nagain.eq.1) go to 999 if(nagain.eq.1) go to 999
enddo enddo