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

decode1.F90

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

map65.py

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

map65a.f90

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

symspec.f

@@ -51,7 +51,7 @@ C  Compute spectra at four polarizations, using half-symbol steps.
          call four2a(cy,NFFT,1,1,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
             sx=real(cx(i))**2 + aimag(cx(i))**2
             ss(1,n,i)=sx         ! Pol = 0