mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-09-16 18:26:34 -04:00
90be033bce
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@454 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
23 lines
512 B
Fortran
23 lines
512 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)
|
|
|
|
call setup_rsocket
|
|
ns0=-99
|
|
|
|
10 call recv_pkt(center_freq)
|
|
ns=mod(msec/1000,60)
|
|
if(ns.ne.ns0) write(*,1010) ns,center_freq,0.001*msec,sec_midn()
|
|
1010 format('ns:',i3,' f0:',f10.3,' t1:',f10.3,' t2:',f10.3)
|
|
ns0=ns
|
|
go to 10
|
|
|
|
end program plrr
|
|
|
|
! To compile: % gfortran -o plrr plrr.f90 plrr_subs.c
|