Making progress, but I will need to double-buffer ss(), savg().

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@433 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2007-06-28 20:36:17 +00:00
parent 92514ba855
commit d9e5e8919e
4 changed files with 8 additions and 4 deletions

View File

@ -30,6 +30,7 @@ subroutine decode1(iarg)
if((kk-kkdone).gt.32768) call symspec(id,kbuf,kk,kkdone,rxnoise, & if((kk-kkdone).gt.32768) call symspec(id,kbuf,kk,kkdone,rxnoise, &
newspec,newdat,ndecoding) newspec,newdat,ndecoding)
print*,'A',kbuf,kk,kkdone,newspec,newdat,ndecoding
if(ndecoding.gt.0 .and. mode(1:4).eq.'JT65') then if(ndecoding.gt.0 .and. mode(1:4).eq.'JT65') then
ndecdone=0 ndecdone=0
@ -66,7 +67,8 @@ subroutine decode1(iarg)
endif endif
#ifdef Win32 #ifdef Win32
call sleepqq(100) ! call sleepqq(100)
call sleepqq(1000)
#else #else
call usleep(100*1000) call usleep(100*1000)
#endif #endif

View File

@ -966,7 +966,8 @@ def update():
Audio.gcom2.nfreeze=1 Audio.gcom2.nfreeze=1
if Audio.gcom2.monitoring: if Audio.gcom2.monitoring:
Audio.gcom2.ndecoding=1 Audio.gcom2.ndecoding=1
Audio.gcom2.nagain=0 # Audio.gcom2.nagain=0
Audio.gcom2.nagain=1
else: else:
Audio.gcom2.ndecoding=4 Audio.gcom2.ndecoding=4
Audio.gcom2.nagain=1 Audio.gcom2.nagain=1
@ -1009,7 +1010,7 @@ def update():
# if g.ndecphase==2: bc='yellow' # if g.ndecphase==2: bc='yellow'
bdecode.configure(bg=bc,activebackground=bc,state=DISABLED) bdecode.configure(bg=bc,activebackground=bc,state=DISABLED)
else: else:
bdecode.configure(bg='gray85',activebackground='gray95',state=ACTIVE) bdecode.configure(bg='gray85',activebackground='gray85',state=ACTIVE)
g.ndecphase=0 g.ndecphase=0
tx1.configure(bg='white') tx1.configure(bg='white')

View File

@ -24,6 +24,7 @@ subroutine map65a(newdat)
include 'gcom2.f90' include 'gcom2.f90'
save save
! print*,'a',newdat,nagain,kbuf,kk,kkdone
pctlost=nlost/331.03 pctlost=nlost/331.03
if(nlost.ne.0) write(*,1001) nutc,nlost,pctlost if(nlost.ne.0) write(*,1001) nutc,nlost,pctlost
1001 format('UTC:',i5.4,' Lost packets:',i6,', or',f6.1,' %') 1001 format('UTC:',i5.4,' Lost packets:',i6,', or',f6.1,' %')

View File

@ -51,7 +51,7 @@ C Compute spectra at four polarizations, using half-symbol steps.
call four2a(cy,NFFT,1,1,1) call four2a(cy,NFFT,1,1,1)
n=n+1 n=n+1
print*,'B',n,kbuf,kkdone,kk,i0,npts print*,'B',n,kbuf,kkdone,kk,i0
do i=1,NFFT !Save and accumulate power spectra do i=1,NFFT !Save and accumulate power spectra
sx=real(cx(i))**2 + aimag(cx(i))**2 sx=real(cx(i))**2 + aimag(cx(i))**2
ss(1,n,i)=sx ! Pol = 0 ss(1,n,i)=sx ! Pol = 0