mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2025-03-21 11:38:34 -04:00
Some general cleanup.
This commit is contained in:
parent
0926943326
commit
e7c7459a08
1
.gitignore
vendored
1
.gitignore
vendored
@ -8,5 +8,6 @@ jnq*
|
|||||||
*.o
|
*.o
|
||||||
*.mod
|
*.mod
|
||||||
*.pro.user
|
*.pro.user
|
||||||
|
*.txt
|
||||||
cmake-build-debug
|
cmake-build-debug
|
||||||
cmake-build-release
|
cmake-build-release
|
||||||
|
@ -55,8 +55,8 @@ subroutine iscat(cdat0,npts0,nh,npct,t2,pick,cfile6,minsync,ntol, &
|
|||||||
if(pick) t3=t2+t3
|
if(pick) t3=t2+t3
|
||||||
|
|
||||||
! Compute symbol spectra and establish sync:
|
! Compute symbol spectra and establish sync:
|
||||||
call synciscat(cdat,npts,nh,npct,s0,jsym,df,ntol,NFreeze, &
|
call synciscat(cdat,npts,nh,npct,s0,jsym,df,ntol, &
|
||||||
MouseDF,mousebutton,mode4,nafc,psavg,xsync,sig,ndf0,msglen, &
|
mousebutton,mode4,nafc,psavg,xsync,sig,ndf0,msglen, &
|
||||||
ipk,jpk,idf,df1)
|
ipk,jpk,idf,df1)
|
||||||
nfdot=nint(idf*df1)
|
nfdot=nint(idf*df1)
|
||||||
|
|
||||||
|
@ -1,5 +1,5 @@
|
|||||||
subroutine synciscat(cdat,npts,nh,npct,s0,jsym,df,ntol,NFreeze, &
|
subroutine synciscat(cdat,npts,nh,npct,s0,jsym,df,ntol, &
|
||||||
MouseDF,mousebutton,mode4,nafc,psavg,xsync,sig,ndf0,msglen, &
|
mousebutton,mode4,nafc,psavg,xsync,sig,ndf0,msglen, &
|
||||||
ipk,jpk,idf,df1)
|
ipk,jpk,idf,df1)
|
||||||
|
|
||||||
! Synchronize an ISCAT signal
|
! Synchronize an ISCAT signal
|
||||||
@ -86,8 +86,8 @@ subroutine synciscat(cdat,npts,nh,npct,s0,jsym,df,ntol,NFreeze, &
|
|||||||
|
|
||||||
ttot=npts/fsample !Length of record (s)
|
ttot=npts/fsample !Length of record (s)
|
||||||
df1=df/ttot !Step size for f1=fdot
|
df1=df/ttot !Step size for f1=fdot
|
||||||
idf1=-25.0/df1
|
idf1=int(-25.0/df1)
|
||||||
idf2=5.0/df1
|
idf2=int(5.0/df1)
|
||||||
if(nafc.eq.0) then
|
if(nafc.eq.0) then
|
||||||
idf1=0
|
idf1=0
|
||||||
idf2=0
|
idf2=0
|
||||||
|
@ -1,2 +0,0 @@
|
|||||||
curl https://pskreporter.info/cgi-bin/robot.pl > robo.dat
|
|
||||||
robo | sort -nr -k2 -k1
|
|
@ -1,48 +0,0 @@
|
|||||||
program robo
|
|
||||||
|
|
||||||
! Examine spots from PSK Reporter for past week to identify probable robots
|
|
||||||
|
|
||||||
! In a bash shell, from command line:
|
|
||||||
! $ curl https://pskreporter.info/cgi-bin/robot.pl > robo.dat
|
|
||||||
! $ robo | sort -nr -k2
|
|
||||||
|
|
||||||
parameter (NCHARS=20000)
|
|
||||||
parameter (NMAX=100)
|
|
||||||
|
|
||||||
character*1 c
|
|
||||||
character*20000 blob
|
|
||||||
character*12 callsign(0:NMAX)
|
|
||||||
integer*1 ic1
|
|
||||||
|
|
||||||
open(10,file='/tmp/robo.dat',status='old',access='stream')
|
|
||||||
callsign=' '
|
|
||||||
|
|
||||||
do ichar=1,NCHARS
|
|
||||||
read(10,end=10) ic1
|
|
||||||
ic=ic1
|
|
||||||
if(ic.lt.0) ic=ic+256
|
|
||||||
c=char(ic)
|
|
||||||
blob(ichar:ichar)=c
|
|
||||||
enddo
|
|
||||||
10 continue
|
|
||||||
|
|
||||||
do icall=1,NMAX
|
|
||||||
i1=index(blob,'":{"median_minutes":')-1
|
|
||||||
do i=i1,i1-10,-1
|
|
||||||
if(i1.lt.1) go to 20
|
|
||||||
if(blob(i:i).eq.'"') exit
|
|
||||||
enddo
|
|
||||||
i0=i+1
|
|
||||||
callsign(icall)=blob(i0:i1)
|
|
||||||
i2=index(blob,',')-1
|
|
||||||
read(blob(i1+21:i2),*) median_minutes
|
|
||||||
i3=index(blob,'median_hours')+14
|
|
||||||
i4=index(blob,'}')-1
|
|
||||||
read(blob(i3:i4),*) median_hours
|
|
||||||
write(*,3001) median_minutes,median_hours,trim(callsign(icall))
|
|
||||||
3001 format(2i5,2x,a)
|
|
||||||
blob=blob(i4+3:)
|
|
||||||
enddo
|
|
||||||
|
|
||||||
20 continue
|
|
||||||
end program robo
|
|
Loading…
Reference in New Issue
Block a user