w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-01 15:39:46 -04:00
Code Issues Packages Projects Releases Wiki Activity

Changed the deep65 bug workaround from "rewind 23" to "call sleepqqq(1)".

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/trunk@273 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2006-09-05 16:27:29 +00:00
parent bbda677489
commit daa2ffd27a
3 changed files with 18 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
deep65.F
View File

@ -5,12 +5,11 @@
real s3(64,63) real s3(64,63)
character callsign*12,grid*4,message*22,hisgrid*6,c*1,ceme*3 character callsign*12,grid*4,message*22,hisgrid*6,c*1,ceme*3
character*12 mycall,hiscall character*12 mycall,hiscall
character*22 decoded,deepmsg character*22 decoded
character*22 testmsg(2*MAXCALLS + 2 + MAXRPT) character*22 testmsg(2*MAXCALLS + 2 + MAXRPT)
character*15 callgrid(MAXCALLS) character*15 callgrid(MAXCALLS)
character*180 line character*180 line
character*4 rpt(MAXRPT) character*4 rpt(MAXRPT)
logical first
integer ncode(63,2*MAXCALLS + 2 + MAXRPT) integer ncode(63,2*MAXCALLS + 2 + MAXRPT)
real pp(2*MAXCALLS + 2 + MAXRPT) real pp(2*MAXCALLS + 2 + MAXRPT)
common/tmp9/ mrs(63),mrs2(63) common/tmp9/ mrs(63),mrs2(63)
@ -61,7 +60,7 @@
if(neme.eq.1 .and. ceme.ne.'EME') go to 10 if(neme.eq.1 .and. ceme.ne.'EME') go to 10
endif endif
5 icall=icall+1 icall=icall+1
j1=index(mycall,' ') - 1 j1=index(mycall,' ') - 1
if(j1.le.-1) j1=12 if(j1.le.-1) j1=12
if(j1.lt.3) j1=6 if(j1.lt.3) j1=6
@ -120,7 +119,7 @@ C Insert CQ message unless sync=OOO (flip=-1).
p1=p p1=p
ip1=k ip1=k
endif endif
30 enddo enddo
p2=-1.e30 p2=-1.e30
do i=1,ntot do i=1,ntot
@ -133,9 +132,10 @@ C Insert CQ message unless sync=OOO (flip=-1).
C This is really weird, but do not remove the following statements! C This is really weird, but do not remove the following statements!
write(77,*) mode65,bias,p1,p2 ! write(77,*) mode65,bias,p1,p2
rewind 77 ! rewind 77
rewind 23 ! rewind 23
call sleepqqq(1)
qual=100.0*(p1-bias) qual=100.0*(p1-bias)
decoded=' ' decoded=' '

11
runqqq.F90
View File

@ -27,3 +27,14 @@ subroutine flushqqq(lu)
return return
end subroutine flushqqq end subroutine flushqqq
subroutine sleepqqq(n)
#ifdef Win32
use dflib
call sleepqq(n)
#else
call usleep(n*1000)
#endif
return
end subroutine sleepqqq

3
wsjt.py
View File

@ -1833,13 +1833,10 @@ HisGrid=Entry(f5a,width=9)
HisGrid.grid(column=1,row=1,pady=1) HisGrid.grid(column=1,row=1,pady=1)
bAdd=Button(f5a, text='Add',command=addtodb,padx=1,pady=1) bAdd=Button(f5a, text='Add',command=addtodb,padx=1,pady=1)
bAdd.grid(column=2,row=1,sticky='EW',padx=4) bAdd.grid(column=2,row=1,sticky='EW',padx=4)
#labAz=Label(f5a,text='Az 257 El 15',width=11,font=(font1,9))
labAz=Label(f5a,text='Az 257 El 15',width=11) labAz=Label(f5a,text='Az 257 El 15',width=11)
labAz.grid(column=1,row=2) labAz.grid(column=1,row=2)
#labHotAB=Label(f5a,bg='#FFCCFF',text='HotA: 247',font=(font1,9))
labHotAB=Label(f5a,bg='#FFCCFF',text='HotA: 247') labHotAB=Label(f5a,bg='#FFCCFF',text='HotA: 247')
labHotAB.grid(column=0,row=2,sticky='EW',padx=4,pady=3) labHotAB.grid(column=0,row=2,sticky='EW',padx=4,pady=3)
#labDist=Label(f5a,text='16753 km',font=(font1,9))
labDist=Label(f5a,text='16753 km') labDist=Label(f5a,text='16753 km')
labDist.grid(column=2,row=2) labDist.grid(column=2,row=2)