diff --git a/deep65.F b/deep65.F index ee48e0d77..6b4b9f600 100644 --- a/deep65.F +++ b/deep65.F @@ -14,6 +14,7 @@ integer ncode(63,2*MAXCALLS + 2 + MAXRPT) real pp(2*MAXCALLS + 2 + MAXRPT) common/mrscom/ mrs(63),mrs2(63) + common/c3com/ mcall3a data neme0/-99/ data rpt/'-01','-02','-03','-04','-05', @@ -31,10 +32,11 @@ + 'RO','RRR','73'/ save - modified=0 !@@@ 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') rewind 23 k=0 diff --git a/gcom2.f90 b/gcom2.f90 index b4af63a46..bf340c110 100644 --- a/gcom2.f90 +++ b/gcom2.f90 @@ -15,6 +15,7 @@ integer ngreen !Length of green GUI real dgain !Digital audio gain setting GUI integer ndecoding !Decoder status (see decode2.f90) 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 multicast !1 for multicast data, 0 for unicast GUI 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), & 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, & dftolerance,LDecoded,rxdone,monitoring,nzap,minsigdb, & nclearave,nfreeze,nafc,ncsmin,newspec,nfa,nfb,nfcal,idphi,nkeep, & diff --git a/map65.py b/map65.py index 1a41a66d2..79360f43b 100644 --- a/map65.py +++ b/map65.py @@ -542,6 +542,7 @@ def addtodb(): if os.path.exists("CALL3.OLD"): os.remove("CALL3.OLD") os.rename("CALL3.TXT","CALL3.OLD") os.rename("CALL3.TMP","CALL3.TXT") + Audio.gcom2.mcall3=1 #-------------------------------------------------------- clrToRadio def clrToRadio(event): diff --git a/map65a.F90 b/map65a.F90 index 6152cb919..43184f6cc 100644 --- a/map65a.F90 +++ b/map65a.F90 @@ -18,11 +18,15 @@ subroutine map65a(newdat) real qphi(12) include 'gcom2.f90' include 'datcom.f90' + common/c3com/ mcall3a + data blank/' '/ data shmsg0/'ATT','RO ','RRR','73 '/ data nfile/0/,nutc0/-999/,nid/0/,ip000/1/,ip001/1/,mousefqso0/-999/ save + mcall3a=mcall3 + if(mcall3.eq.1) mcall3=0 if(mousefqso.ne.mousefqso0 .and. nagain.eq.1) newspec=2 mousefqso0=mousefqso nfoffset=nint(1000*(fcenter-144.125d0))