w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-19 10:32:02 -05:00
Code Issues Packages Projects Releases Wiki Activity

Recompute deep search messages after change of neme status and after

Browse Source 
adding a callsign to CALL3.TXT.


git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@1718 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2009-11-27 15:57:50 +00:00
parent aac8e0aedf
commit a6e3b71a43
4 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
deep65.F
View File

@ -14,6 +14,7 @@
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/mrscom/ mrs(63),mrs2(63) common/mrscom/ mrs(63),mrs2(63)
common/c3com/ mcall3a
data neme0/-99/ data neme0/-99/
data rpt/'-01','-02','-03','-04','-05', data rpt/'-01','-02','-03','-04','-05',
@ -31,10 +32,11 @@
+ 'RO','RRR','73'/ + 'RO','RRR','73'/
save save
modified=0 !@@@
if(mycall.eq.mycall0 .and. hiscall.eq.hiscall0 .and. if(mycall.eq.mycall0 .and. hiscall.eq.hiscall0 .and.
+ hisgrid.eq.hisgrid0 .and. modified.eq.modified0) go to 30 + hisgrid.eq.hisgrid0 .and. mcall3a.eq.0 .and.
+ neme.eq.neme0) go to 30
mcall3a=0
call cs_lock('deep65a') call cs_lock('deep65a')
rewind 23 rewind 23
k=0 k=0

3
gcom2.f90
View File

@ -15,6 +15,7 @@ integer ngreen !Length of green GUI
real dgain !Digital audio gain setting GUI real dgain !Digital audio gain setting GUI
integer ndecoding !Decoder status (see decode2.f90) GUI,Decoder integer ndecoding !Decoder status (see decode2.f90) GUI,Decoder
integer ndecoding0 !Status on previous decode GUI,Decoder integer ndecoding0 !Status on previous decode GUI,Decoder
integer mcall3 !CALL3.TXT has been modified GUI,Decoder
integer mousebutton !Which button was clicked? GUI integer mousebutton !Which button was clicked? GUI
integer multicast !1 for multicast data, 0 for unicast GUI integer multicast !1 for multicast data, 0 for unicast GUI
integer ndecdone !Is decoder finished? GUI,Decoder integer ndecdone !Is decoder finished? GUI,Decoder
@ -104,7 +105,7 @@ character*8 utcdata !HHMM UTC for the processed data Decoder
common/gcom2/fcenter,ps0(431),psavg(450),s2(64,3100),ccf(-5:540), & common/gcom2/fcenter,ps0(431),psavg(450),s2(64,3100),ccf(-5:540), &
green(500),fselect,pctlost,pctblank,rxnoise,dphi,ngreen,dgain, & green(500),fselect,pctlost,pctblank,rxnoise,dphi,ngreen,dgain, &
ndecoding,ndecoding0,mousebutton,multicast,nsetftx,ierr, & ndecoding,ndecoding0,mcall3,mousebutton,multicast,nsetftx,ierr, &
ndecdone,lauto,mantx,nrestart,ntr,nmsg,nsave,nadd5, & ndecdone,lauto,mantx,nrestart,ntr,nmsg,nsave,nadd5, &
dftolerance,LDecoded,rxdone,monitoring,nzap,minsigdb, & dftolerance,LDecoded,rxdone,monitoring,nzap,minsigdb, &
nclearave,nfreeze,nafc,ncsmin,newspec,nfa,nfb,nfcal,idphi,nkeep, & nclearave,nfreeze,nafc,ncsmin,newspec,nfa,nfb,nfcal,idphi,nkeep, &

1
map65.py
View File

@ -542,6 +542,7 @@ def addtodb():
if os.path.exists("CALL3.OLD"): os.remove("CALL3.OLD") if os.path.exists("CALL3.OLD"): os.remove("CALL3.OLD")
os.rename("CALL3.TXT","CALL3.OLD") os.rename("CALL3.TXT","CALL3.OLD")
os.rename("CALL3.TMP","CALL3.TXT") os.rename("CALL3.TMP","CALL3.TXT")
Audio.gcom2.mcall3=1
#-------------------------------------------------------- clrToRadio #-------------------------------------------------------- clrToRadio
def clrToRadio(event): def clrToRadio(event):

4
map65a.F90
View File

@ -18,11 +18,15 @@ subroutine map65a(newdat)
real qphi(12) real qphi(12)
include 'gcom2.f90' include 'gcom2.f90'
include 'datcom.f90' include 'datcom.f90'
common/c3com/ mcall3a
data blank/' '/ data blank/' '/
data shmsg0/'ATT','RO ','RRR','73 '/ data shmsg0/'ATT','RO ','RRR','73 '/
data nfile/0/,nutc0/-999/,nid/0/,ip000/1/,ip001/1/,mousefqso0/-999/ data nfile/0/,nutc0/-999/,nid/0/,ip000/1/,ip001/1/,mousefqso0/-999/
save save
mcall3a=mcall3
if(mcall3.eq.1) mcall3=0
if(mousefqso.ne.mousefqso0 .and. nagain.eq.1) newspec=2 if(mousefqso.ne.mousefqso0 .and. nagain.eq.1) newspec=2
mousefqso0=mousefqso mousefqso0=mousefqso
nfoffset=nint(1000*(fcenter-144.125d0)) nfoffset=nint(1000*(fcenter-144.125d0))