WSJT-X/plrr.f90
Joe Taylor 309e59f234 Fix measure mode (and make its label yellow).
Enlarge the system packet buffersize.
Include executable plrr.exe


git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@475 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2007-07-06 16:28:58 +00:00

57 lines
1.1 KiB
Fortran

program plrr
! Pseudo-Linrad "Receive" program
integer*1 userx_no,iusb
integer*2 nblock,nblock0
real*8 center_freq,buf8
logical first
common/plrscom/center_freq,msec,fselect,iptr,nblock,userx_no,iusb,buf8(174)
data first/.true./
call setup_rsocket
ns0=-99
nlost=0
10 call recv_pkt(center_freq)
lost=nblock-nblock0-1
if(lost.ne.0 .and. .not.first) then
nb=nblock
if(nb.lt.0) nb=nb+65536
nb0=nblock0
if(nb0.lt.0) nb0=nb0+65536
print*,'Lost packets:',nb,nb0,lost
nlost=nlost + lost ! Insert zeros for the lost data.
! do i=1,174*lost
! k=k+1
! d8(k)=0
! enddo
first=.false.
nlost=nlost+lost
endif
nblock0=nblock
ns=mod(msec/1000,60)
if(ns.ne.ns0) write(*,1010) ns,center_freq,0.001*msec,sec_midn(),nlost
1010 format('ns:',i3,' f0:',f10.3,' t1:',f10.3,' t2:',f10.3,i8)
ns0=ns
go to 10
end program plrr
! To compile: % gfortran -o plrr plrr.f90 plrr_subs.c
real function sec_midn()
real*8 sec8,hrtime
sec_midn=secnds(0.0)
return
end function sec_midn
subroutine sleep_msec(n)
use dflib
call sleepqq(n)
return
end subroutine sleep_msec