mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-10-01 01:26:39 -04:00
Cleanup, removing diagnostic prints.
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@2434 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
parent
ab28014fb5
commit
6d6596500a
2
map65.py
2
map65.py
@ -1,4 +1,4 @@
|
|||||||
#--------------------------------------------------------------------- MAP65
|
#-------------------------------------------------------------------- MAP65
|
||||||
# $Date$ $Revision$
|
# $Date$ $Revision$
|
||||||
#
|
#
|
||||||
from Tkinter import *
|
from Tkinter import *
|
||||||
|
@ -42,6 +42,7 @@ program pulsar
|
|||||||
nb=nblock
|
nb=nblock
|
||||||
if(nb.lt.0) nb=nb+65536
|
if(nb.lt.0) nb=nb+65536
|
||||||
lost=nb-nb0-1
|
lost=nb-nb0-1
|
||||||
|
if(lost.eq.-65536) lost=0
|
||||||
if(lost.ne.0 .and. nb0.ne.0) print*,'Lost packets:',lost,nb,nb0
|
if(lost.ne.0 .and. nb0.ne.0) print*,'Lost packets:',lost,nb,nb0
|
||||||
|
|
||||||
write(20) id !Write raw data
|
write(20) id !Write raw data
|
||||||
@ -62,8 +63,8 @@ program pulsar
|
|||||||
im=mod(nsec/60,60)
|
im=mod(nsec/60,60)
|
||||||
is=mod(nsec,60)
|
is=mod(nsec,60)
|
||||||
nw=nw+1
|
nw=nw+1
|
||||||
write(*,1000) nw,center_freq,ih,im,is,nblock,sqave,rxnoise,id2(1)
|
write(*,1000) nw,center_freq,ih,im,is,nblock,sqave,rxnoise,id2(1)
|
||||||
write(13,1000) nw,center_freq,0.001*msec,nblock,sqave,rxnoise,id2(1)
|
write(13,1000) nw,center_freq,ih,im,is,nblock,sqave,rxnoise,id2(1)
|
||||||
1000 format(i10,f7.3,i4,2i3.2,i7,f10.0,f8.2,i8)
|
1000 format(i10,f7.3,i4,2i3.2,i7,f10.0,f8.2,i8)
|
||||||
write(21) id2
|
write(21) id2
|
||||||
|
|
||||||
|
@ -84,6 +84,8 @@ subroutine symspec(id,kbuf,kk,kkdone,nutc,newdat)
|
|||||||
enddo
|
enddo
|
||||||
nz2=nz2+n2
|
nz2=nz2+n2
|
||||||
pctblank=nclip*100.0/nz2
|
pctblank=nclip*100.0/nz2
|
||||||
|
else
|
||||||
|
pctblank=0.
|
||||||
endif
|
endif
|
||||||
|
|
||||||
do nn=1,ntot
|
do nn=1,ntot
|
||||||
|
Loading…
Reference in New Issue
Block a user