w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-24 10:22:26 -04:00
Code Issues Packages Projects Releases Wiki Activity

Diagnostics for ndebug=2 sent to file tmp29.txt.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@571 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2007-11-02 14:50:18 +00:00
parent 9c2480c012
commit dbee0dc89b
5 changed files with 19 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
decode1.F90
View File

@ -40,13 +40,15 @@ subroutine decode1(iarg)
kbuf0=kbuf kbuf0=kbuf
kkk=kk kkk=kk
if(kbuf.eq.2) kkk=kk-5760000 if(kbuf.eq.2) kkk=kk-5760000
n=Tsec n=Tsec
if(n.ne.ns00) then if(ndebug.eq.2 .and. n.ne.ns00) then
write(29,3101) nutc,mod(n,60),ndiskdat,ndecoding,kbuf, & write(29,3101) nutc,mod(n,60),ndiskdat,ndecoding,kbuf, &
newdat,kk,kkdone newdat,kk,kkdone
3101 format('d1:',i5.4,i3.2,4i5,2i10) 3101 format('d1:',i5.4,i3.2,4i5,2i10)
ns00=n ns00=n
endif endif
if((ndiskdat.eq.1 .or. ndecoding.eq.0) .and. ((kkk-kkdone).gt.32768)) then if((ndiskdat.eq.1 .or. ndecoding.eq.0) .and. ((kkk-kkdone).gt.32768)) then
call symspec(id,kbuf,kk,kkdone,nutc,newdat) call symspec(id,kbuf,kk,kkdone,nutc,newdat)
call sleep_msec(10) call sleep_msec(10)

2
map65.py
View File

@ -1,4 +1,4 @@
#----------------------------------------------------------------------- MAP65 #---------------------------------------------------------------------- MAP65
# $Date$ $Revision$ # $Date$ $Revision$
# #
from Tkinter import * from Tkinter import *

14
map65a.F90
View File

@ -27,8 +27,8 @@ subroutine map65a(newdat)
mousefqso0=mousefqso mousefqso0=mousefqso
pctlost=nlost/331.03 pctlost=nlost/331.03
if(ndebug.eq.2) write(*,3001) nutc,mod(int(sec_midn()),60),nlost,pctlost if(ndebug.eq.2) write(29,3001) nutc,mod(int(sec_midn()),60),nlost,pctlost
3001 format('mod65a 1:',i5.4,i3.2,i8,f7.2,' %') 3001 format('m1:',i5.4,i3.2,i8,f7.2,' %')
rewind 11 rewind 11
rewind 12 rewind 12
@ -281,8 +281,8 @@ subroutine map65a(newdat)
call flushqqq(11) call flushqqq(11)
ndecdone=1 ndecdone=1
t2=sec_midn() t2=sec_midn()
if(ndebug.eq.2) write(*,3002) mod(int(t2),60) if(ndebug.eq.2) write(29,3002) mod(int(t2),60)
3002 format('mod65a 2:'i8.2) 3002 format('m2:'i8.2)
endif endif
if(nagain.eq.1) go to 999 if(nagain.eq.1) go to 999
enddo enddo
@ -371,11 +371,11 @@ subroutine map65a(newdat)
kk=kkdone kk=kkdone
if(nagain.eq.0) then if(nagain.eq.0) then
t3=sec_midn() t3=sec_midn()
if(ndebug.eq.2) write(*,3003) mod(int(t3),60) if(ndebug.eq.2) write(29,3003) mod(int(t3),60)
3003 format('mod65a 3:'i8.2) 3003 format('m3:'i8.2)
if(ndebug.eq.1) write(*,3004) nutc,mod(t2,60.0),mod(t3,60.0), & if(ndebug.eq.1) write(*,3004) nutc,mod(t2,60.0),mod(t3,60.0), &
nlost,pctlost nlost,pctlost
3004 format('mod65a:',i5.4,1x,2f6.1,i6,f8.2,' %') 3004 format('map65:',i5.4,1x,2f6.1,i6,f8.2,' %')
endif endif
nagain=0 nagain=0

11
recvpkt.F90
View File

@ -46,7 +46,7 @@ subroutine recvpkt(iarg)
if(nb.lt.0) nb=nb+65536 if(nb.lt.0) nb=nb+65536
nb0=nblock0 nb0=nblock0
if(nb0.lt.0) nb0=nb0+65536 if(nb0.lt.0) nb0=nb0+65536
if(ndebug.eq.2) print*,'Lost packets:',nb0,nb,lost if(ndebug.gt.0) print*,'Lost packets:',nb0,nb,lost
lost_tot=lost_tot + lost ! Insert zeros for the lost data. lost_tot=lost_tot + lost ! Insert zeros for the lost data.
do i=1,174*lost do i=1,174*lost
k=k+1 k=k+1
@ -113,22 +113,23 @@ subroutine recvpkt(iarg)
ntx=ntx+transmitting ntx=ntx+transmitting
if(ns.ge.nt1 .and. ndone1.eq.0) then if(ns.ge.nt1 .and. ndone1.eq.0) then
! Time in this minute has reached designated time to start FFTs
nutc=mutc nutc=mutc
fcenter=center_freq fcenter=center_freq
kbuf=kb kbuf=kb
kk=k kk=k
ndiskdat=0 ndiskdat=0
ndone1=1 ndone1=1
if(ndebug.eq.2) write(*,3001) nutc,mod(int(sec_midn()),60),ns, & if(ndebug.eq.2) write(29,3001) nutc,mod(int(sec_midn()),60),ns, &
kbuf,kk kbuf,kk
3001 format('r1:',i5.4,2i3.2,2i10) 3001 format('r1:',i5.4,2i3.2,i5,i10)
endif endif
if(ns.ge.nt2 .and. ndone2.eq.0) then if(ns.ge.nt2 .and. ndone2.eq.0) then
kk=k kk=k
ndone2=1 ndone2=1
if(ndebug.eq.2) write(*,3002) nutc,mod(int(sec_midn()),60),ns, & if(ndebug.eq.2) write(29,3002) nutc,mod(int(sec_midn()),60),ns, &
kbuf,kk kbuf,kk
3002 format('r2:',i5.4,2i3.2,2i10) 3002 format('r2:',i5.4,2i3.2,i5,i10)
nlost=lost_tot ! Save stats for printout nlost=lost_tot ! Save stats for printout
endif endif
endif endif

4
symspec.f90
View File

@ -18,7 +18,7 @@ subroutine symspec(id,kbuf,kk,kkdone,nutc,newdat)
! kbuf,kk,kkk,kkdone ! kbuf,kk,kkk,kkdone
!4001 format(a1,i5.4,2i3,3i9,i5) !4001 format(a1,i5.4,2i3,3i9,i5)
if(ndebug.eq.2) write(*,3001) nutc,mod(int(sec_midn()),60),n, & if(ndebug.eq.2) write(29,3001) nutc,mod(int(sec_midn()),60),n, &
newdat,ndecoding,kbuf,kk,kkdone newdat,ndecoding,kbuf,kk,kkdone
3001 format('s1:',i5.4,i3.2,4i5,2i10) 3001 format('s1:',i5.4,i3.2,4i5,2i10)
fac=0.0002 fac=0.0002
@ -120,7 +120,7 @@ subroutine symspec(id,kbuf,kk,kkdone,nutc,newdat)
999 continue 999 continue
! if(ndebug.gt.0) write(*,4001) 'B',nutc,mod(int(sec_midn()),60), & ! if(ndebug.gt.0) write(*,4001) 'B',nutc,mod(int(sec_midn()),60), &
! kbuf,kk,kkk,kkdone,n ! kbuf,kk,kkk,kkdone,n
if(ndebug.eq.2) write(*,3002) mod(int(sec_midn()),60),n, & if(ndebug.eq.2) write(29,3002) mod(int(sec_midn()),60),n, &
newdat,ndecoding,kbuf,kk,kkdone newdat,ndecoding,kbuf,kk,kkdone
3002 format('s2:',i8.2,4i5,2i10) 3002 format('s2:',i8.2,4i5,2i10)
return return