mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-04 08:21:17 -05:00
Changes to compile on K1JT machine, Kubuntu 6.06.
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@407 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
parent
dfe64029a1
commit
068551448b
@ -38,7 +38,7 @@ F2PY = @F2PY@
|
||||
###
|
||||
all: Audio.so
|
||||
|
||||
OBJS2C = init_rs.o encode_rs.o decode_rs.o plrr_subs.o
|
||||
OBJS2C = init_rs.o encode_rs.o decode_rs.o plrr_subs.o loc.o
|
||||
|
||||
F2PYONLY = ftn_init ftn_quit audio_init getfile azdist0 astro0 \
|
||||
spec map65a0
|
||||
|
4
fil659.f
4
fil659.f
@ -48,9 +48,9 @@ C Loop over all output samples
|
||||
do j=-NH,NH
|
||||
w=w*wstep
|
||||
if(j.eq.3-NH) w0=w
|
||||
z=a(j)*cmplx(float(id(1,j+k)),float(id(2,j+k)))*w
|
||||
z=a(j)*cmplx(float(int(id(1,j+k))),float(int(id(2,j+k))))*w
|
||||
c2a(i)=c2a(i) + z
|
||||
z=a(j)*cmplx(float(id(3,j+k)),float(id(4,j+k)))*w
|
||||
z=a(j)*cmplx(float(int(id(3,j+k))),float(int(id(4,j+k))))*w
|
||||
c2b(i)=c2b(i) + z
|
||||
enddo
|
||||
enddo
|
||||
|
4
filbig.f
4
filbig.f
@ -65,8 +65,8 @@ C If we just have a new f0, continue with the existing ca and cb.
|
||||
if(newdat.ne.0) then
|
||||
nz=min(nmax,NFFT1)
|
||||
do i=1,nz
|
||||
ca(i)=cmplx(float(id(1,i)),float(id(2,i)))
|
||||
cb(i)=cmplx(float(id(3,i)),float(id(4,i)))
|
||||
ca(i)=cmplx(float(int(id(1,i))),float(int(id(2,i))))
|
||||
cb(i)=cmplx(float(int(id(3,i))),float(int(id(4,i))))
|
||||
enddo
|
||||
if(nmax.lt.NFFT1) then
|
||||
do i=nmax+1,NFFT1
|
||||
|
@ -56,7 +56,7 @@ subroutine map65a
|
||||
! nflip=-1 !May need to try both +/- 1
|
||||
! ip0=4 !Try all four?
|
||||
|
||||
open(23,file='CALL3.TXT',status='unknown')
|
||||
! open(23,file='CALL3.TXT',status='old')
|
||||
|
||||
df=96000.0/NFFT !df = 96000/NFFT = 2.930 Hz
|
||||
fa=0.0
|
||||
|
19
plrs.f90
19
plrs.f90
@ -15,22 +15,27 @@ program plrs
|
||||
integer fd
|
||||
integer open,read,close
|
||||
integer nm(11)
|
||||
character*8 fname
|
||||
character*8 fname,arg
|
||||
logical fast
|
||||
real*8 center_freq,dmsec,dtmspacket,tmsec
|
||||
common/plrscom/center_freq,msec2,fsample,iptr,nblock,userx_no,iusb,buf8(174)
|
||||
! 8 4 4 4 2 1 1 1392
|
||||
data nm/45,46,48,50,52,54,55,56,57,58,59/
|
||||
data nblock/0/
|
||||
data nblock/0/,fast/.false./
|
||||
|
||||
nargs=iargc()
|
||||
if(nargs.ne.1) then
|
||||
print*,'Usage: plrs <iters>'
|
||||
if(nargs.ne.1 .and. nargs.ne.2) then
|
||||
print*,'Usage: plrs [-f] <iters>'
|
||||
go to 999
|
||||
endif
|
||||
call getarg(1,arg)
|
||||
if(arg(1:2).eq.'-f') then
|
||||
fast=.true.
|
||||
call getarg(2,arg)
|
||||
endif
|
||||
read(arg,*) iters
|
||||
|
||||
fname="all.tf2"//char(0)
|
||||
iters=1
|
||||
|
||||
userx_no=0
|
||||
iusb=1
|
||||
center_freq=144.125d0
|
||||
@ -73,7 +78,7 @@ program plrs
|
||||
nsec=time()-nsec0
|
||||
nwait=msec-1000*nsec
|
||||
! Pace the data at close to its real-time rate
|
||||
if(nwait.gt.0) call usleep(nwait*1000)
|
||||
if(nwait.gt.0 .and. .not.fast) call usleep(nwait*1000)
|
||||
endif
|
||||
ns=mod(msec2/1000,60)
|
||||
if(ns.ne.ns0) write(*,1010) npkt,ns,0.001*msec2,nwait
|
||||
|
@ -33,7 +33,7 @@ subroutine recvpkt(iarg)
|
||||
10 call recv_pkt(center_freq)
|
||||
lost=nblock-nblock0-1
|
||||
if(lost.ne.0 .and. .not.first) then
|
||||
print*,'Lost packets?',nblock,nblock0,lost
|
||||
! print*,'Lost packets?',nblock,nblock0,lost
|
||||
nlost=nlost + lost
|
||||
do i=1,174*lost
|
||||
k=k+1
|
||||
|
Loading…
Reference in New Issue
Block a user