mirror of
				https://github.com/saitohirga/WSJT-X.git
				synced 2025-11-03 13:30:52 -05:00 
			
		
		
		
	Oops! Fix def'n of contingent xmed in sync9.f90.
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@2710 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
		
							parent
							
								
									8a73f22f2e
								
							
						
					
					
						commit
						38b1f4df20
					
				@ -76,6 +76,7 @@ subroutine decoder(ntrSeconds,ndepth,nRxLog,c0)
 | 
				
			|||||||
        snr=10.0*log10(ccfred(i)) - 10.0*log10(2500.0/df3) + 2.0
 | 
					        snr=10.0*log10(ccfred(i)) - 10.0*log10(2500.0/df3) + 2.0
 | 
				
			||||||
        sync=ccfred(i) - 2.0
 | 
					        sync=ccfred(i) - 2.0
 | 
				
			||||||
        if(sync.lt.0.0) sync=0.0
 | 
					        if(sync.lt.0.0) sync=0.0
 | 
				
			||||||
 | 
					        print*,f,ccfred(i),sync,snr,msg
 | 
				
			||||||
        nsync=sync
 | 
					        nsync=sync
 | 
				
			||||||
        if(nsync.gt.10) nsync=10
 | 
					        if(nsync.gt.10) nsync=10
 | 
				
			||||||
        nsnr=nint(snr)
 | 
					        nsnr=nint(snr)
 | 
				
			||||||
 | 
				
			|||||||
@ -45,7 +45,7 @@ subroutine sync9(ss,tstep,df3,ntol,nfqso,ccfred,ia,ib,ipkbest)
 | 
				
			|||||||
  enddo
 | 
					  enddo
 | 
				
			||||||
 | 
					
 | 
				
			||||||
  call pctile(ccfred(ia),ib-ia+1,50,xmed)
 | 
					  call pctile(ccfred(ia),ib-ia+1,50,xmed)
 | 
				
			||||||
  if(xmed.le.1.0) xmed=1.0
 | 
					  if(xmed.le.0.0) xmed=1.0
 | 
				
			||||||
  ccfred=ccfred/xmed
 | 
					  ccfred=ccfred/xmed
 | 
				
			||||||
 | 
					
 | 
				
			||||||
  return
 | 
					  return
 | 
				
			||||||
 | 
				
			|||||||
@ -1,4 +1,4 @@
 | 
				
			|||||||
//--------------------------------------------------------------- MainWindow
 | 
					//-------------------------------------------------------------- MainWindow
 | 
				
			||||||
#include "mainwindow.h"
 | 
					#include "mainwindow.h"
 | 
				
			||||||
#include "ui_mainwindow.h"
 | 
					#include "ui_mainwindow.h"
 | 
				
			||||||
#include "devsetup.h"
 | 
					#include "devsetup.h"
 | 
				
			||||||
 | 
				
			|||||||
@ -1,6 +1,6 @@
 | 
				
			|||||||
[Setup]
 | 
					[Setup]
 | 
				
			||||||
AppName=wsjtx
 | 
					AppName=wsjtx
 | 
				
			||||||
AppVerName=wsjtx Version 0.2 r2708
 | 
					AppVerName=wsjtx Version 0.2 r2709
 | 
				
			||||||
AppCopyright=Copyright (C) 2001-2012 by Joe Taylor, K1JT
 | 
					AppCopyright=Copyright (C) 2001-2012 by Joe Taylor, K1JT
 | 
				
			||||||
DefaultDirName=c:\wsjtx
 | 
					DefaultDirName=c:\wsjtx
 | 
				
			||||||
DefaultGroupName=wsjtx
 | 
					DefaultGroupName=wsjtx
 | 
				
			||||||
 | 
				
			|||||||
		Loading…
	
	
			
			x
			
			
		
	
		Reference in New Issue
	
	Block a user