diff --git a/map65.py b/map65.py index 82c72ba6b..af9e45080 100644 --- a/map65.py +++ b/map65.py @@ -1,4 +1,4 @@ -#--------------------------------------------------------------------- MAP65 +#-------------------------------------------------------------------- MAP65 # $Date$ $Revision$ # from Tkinter import * diff --git a/pulsar.f90 b/pulsar.f90 index 639102e09..4066afb3e 100644 --- a/pulsar.f90 +++ b/pulsar.f90 @@ -42,6 +42,7 @@ program pulsar nb=nblock if(nb.lt.0) nb=nb+65536 lost=nb-nb0-1 + if(lost.eq.-65536) lost=0 if(lost.ne.0 .and. nb0.ne.0) print*,'Lost packets:',lost,nb,nb0 write(20) id !Write raw data @@ -62,8 +63,8 @@ program pulsar im=mod(nsec/60,60) is=mod(nsec,60) nw=nw+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(*,1000) nw,center_freq,ih,im,is,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) write(21) id2 diff --git a/symspec.f90 b/symspec.f90 index cb3df7fc7..bba6b8147 100644 --- a/symspec.f90 +++ b/symspec.f90 @@ -84,6 +84,8 @@ subroutine symspec(id,kbuf,kk,kkdone,nutc,newdat) enddo nz2=nz2+n2 pctblank=nclip*100.0/nz2 + else + pctblank=0. endif do nn=1,ntot