WSJT-X/plrr.f90
Joe Taylor 4ad0b09406 Added "Pseudo-Linrad" test programs.
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@394 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
2007-06-20 15:53:56 +00:00

24 lines
584 B
Fortran

program plrr
! Pseudo-Linrad "Receive" program
integer*1 userx_no,iusb
integer*2 nblock
real*8 center_freq,buf8
common/plrscom/center_freq,msec,fselect,iptr,nblock,userx_no,iusb,buf8(174)
! 8 4 4 4 2 1 1 1392
call setup_rsocket
npkt=0
10 call recv_pkt(center_freq)
npkt=npkt+1
if(mod(npkt,1000).eq.0) write(*,1010) npkt,center_freq,0.001*msec,fselect
1010 format('npkt:',i10,' f0:',f8.3,' t:',f10.3,' fselect:',f10.3)
go to 10
end program plrr
! To compile: % gfortran -o plrr plrr.f90 plrr_subs.c