mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-19 10:32:02 -05:00
51 lines
1.3 KiB
FortranFixed
51 lines
1.3 KiB
FortranFixed
|
subroutine display(nutc)
|
||
|
|
|
||
|
|
parameter (MAXLINES=500)
|
||
|
|
integer indx(MAXLINES)
|
||
|
|
character*80 line(MAXLINES)
|
||
|
|
real freqkHz(MAXLINES)
|
||
|
|
integer utc(MAXLINES)
|
||
|
|
real*8 f0
|
||
|
|
|
||
|
|
ftol=0.02
|
||
|
|
rewind 26
|
||
|
|
|
||
|
|
do i=1,MAXLINES
|
||
|
|
read(26,1010,end=10) line(i)
|
||
|
|
1010 format(a80)
|
||
|
|
read(line(i),1020) f0,ndf,utc(i)
|
||
|
|
1020 format(f7.3,i5,26x,i5)
|
||
|
|
freqkHz(i)=1000.d0*(f0-144.d0) + 0.001d0*ndf
|
||
|
|
enddo
|
||
|
|
|
||
|
|
10 nz=i-1
|
||
|
|
call indexx(nz,freqkHz,indx)
|
||
|
|
|
||
|
|
nstart=1
|
||
|
|
rewind 24
|
||
|
|
write(24,3101) line(indx(1))
|
||
|
|
3101 format(a80)
|
||
|
|
do i=2,nz
|
||
|
|
j0=indx(i-1)
|
||
|
|
j=indx(i)
|
||
|
|
if(freqkHz(j)-freqkHz(j0).gt.ftol) then
|
||
|
|
if(nstart.eq.0) write(24,3101)
|
||
|
|
endfile 24
|
||
|
|
if(nstart.eq.1) then
|
||
|
|
!@@@ call sysqqq('sort -k 1.40 fort.24 | uniq > fort.13')
|
||
|
|
nstart=0
|
||
|
|
else
|
||
|
|
!@@@ call sysqqq('sort -k 1.40 fort.24 | uniq >> fort.13')
|
||
|
|
endif
|
||
|
|
rewind 24
|
||
|
|
endif
|
||
|
|
if(i.eq.nz) write(24,3101)
|
||
|
|
write(24,3101) line(j)
|
||
|
|
j0=j
|
||
|
|
enddo
|
||
|
|
endfile 24
|
||
|
|
!@@@ call sysqqq('sort -k 1.40 fort.24 | uniq >> fort.13')
|
||
|
|
|
||
|
|
return
|
||
|
|
end
|