w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-06-25 06:35:17 -04:00
Code Issues Packages Projects Releases Wiki Activity

Working on bandmap display ...

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@347 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2007-01-12 21:31:16 +00:00
parent d0815b78c5
commit 61d7af040c
4 changed files with 195 additions and 187 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ftn_init.F90
View File

@ -9,7 +9,7 @@
! 16 c:/wsjt.reg ! 16 c:/wsjt.reg
! 17 wave files written to disk ! 17 wave files written to disk
! 18 test file to be transmitted (wsjtgen.f90) ! 18 test file to be transmitted (wsjtgen.f90)
! 19 ! 19 bandmap.txt
! 20 ! 20
! 21 ALL.TXT ! 21 ALL.TXT
! 22 kvasd.dat ! 22 kvasd.dat
@ -97,8 +97,10 @@ subroutine ftn_init
status='unknown') status='unknown')
#endif #endif
open(24,file=appdir(:iz)//'/tmp24.txt',status='unknown') ! open(24,file=appdir(:iz)//'/tmp24.txt',status='unknown', &
open(26,file=appdir(:iz)//'/tmp26.txt',status='unknown') ! share='denynone')
open(26,file=appdir(:iz)//'/tmp26.txt',status='unknown', &
share='denynone')
return return

1
map65.py
View File

@ -1264,6 +1264,7 @@ def update():
except: except:
lines="" lines=""
bmtext.configure(state=NORMAL) bmtext.configure(state=NORMAL)
bmtext.delete('1.0',END)
bmtext.insert(END,' Freq DF Pol UTC\n') bmtext.insert(END,' Freq DF Pol UTC\n')
bmtext.insert(END,'--------------------------------------------\n') bmtext.insert(END,'--------------------------------------------\n')
for i in range(len(lines)): for i in range(len(lines)):

19
map65a.f90
View File

@ -23,14 +23,24 @@ subroutine map65a
common/spcom/ss(4,322,NFFT) !169 MB: half-symbol spectra common/spcom/ss(4,322,NFFT) !169 MB: half-symbol spectra
data blank/' '/ data blank/' '/
data shmsg0/'ATT','RO ','RRR','73 '/ data shmsg0/'ATT','RO ','RRR','73 '/
data nfile/0/
save
include 'gcom2.f90' include 'gcom2.f90'
rewind 11
rewind 12
nfile=nfile+1
nutc=0744+nfile
infile='061111.0745'
write(infile(8:11),1001) nutc
1001 format(i4.4)
! read(infile(8:11),*) nutc
tskip=0. tskip=0.
fselect=0. fselect=0.
fselect=104.5303 fselect=104.5303
nmin=1 nmin=1
infile='061111.0745'
open(23,file='CALL3.TXT',status='unknown') open(23,file='CALL3.TXT',status='unknown')
@ -43,12 +53,10 @@ subroutine map65a
kk=0 kk=0
nkk=1 nkk=1
do nfile=1,nmin
n=8*NSMAX n=8*NSMAX
call rfile3a(infile,id,n,ierr) call rfile3a(infile,id,n,ierr)
newdat=1 newdat=1
nz=n/8 nz=n/8
read(infile(8:11),*) nutc
if(fselect.gt.0.0) then if(fselect.gt.0.0) then
! nfilt=2 should be faster (but doesn't work right?) ! nfilt=2 should be faster (but doesn't work right?)
@ -277,9 +285,6 @@ subroutine map65a
j=j+nsiz(n) j=j+nsiz(n)
enddo enddo
call display(nutc) call display(nutc)
! if(nfile.ge.1) go to 999
100 continue
enddo
999 return return
end subroutine map65a end subroutine map65a

2
sysqqq.f90
View File

@ -7,7 +7,7 @@ subroutine sysqqq(cmnd,iret)
#endif #endif
character*(*) cmnd character*(*) cmnd
! iret=system(cmnd) iret=system(cmnd)
return return
end subroutine sysqqq end subroutine sysqqq