diff --git a/map65.py b/map65.py index 60f823585..a160f1a0e 100644 --- a/map65.py +++ b/map65.py @@ -224,7 +224,8 @@ def bandmap(event=NONE): #------------------------------------------------------ logqso def logqso(event=NONE): t=time.strftime("%Y-%b-%d,%H:%M",time.gmtime()) - t=t+","+hiscall+","+hisgrid+","+str(g.nfreq)+","+g.mode+"\n" +# t=t+","+hiscall+","+hisgrid+","+str(g.nfreq)+","+g.mode+"\n" + t=t+","+ToRadio.get()+","+HisGrid.get()+","+str(g.nfreq)+","+g.mode+"\n" t2="Please confirm making the following entry in MAP65.LOG:\n\n" + t msg=Pmw.MessageDialog(root,buttons=('Yes','No'),message_text=t2) msg.geometry(msgpos()) diff --git a/map65a.F90 b/map65a.F90 index 782df9e78..351339c37 100644 --- a/map65a.F90 +++ b/map65a.F90 @@ -117,7 +117,7 @@ subroutine map65a(newdat) shmsg=' ' ! Is there a shorthand tone above threshold? if(syncshort.gt.1.0) then - + ! ### Do shorthand AFC here (or maybe after finding a pair?) ### short(1,i)=syncshort diff --git a/plrr_subs_win.c b/plrr_subs_win.c index 3a7d92fbb..19fcab9e0 100644 --- a/plrr_subs_win.c +++ b/plrr_subs_win.c @@ -79,6 +79,7 @@ void setup_rsocket_(void) /* use setsockopt() to request that the kernel join a multicast group */ mreq.imr_multiaddr.s_addr=inet_addr(HELLO_GROUP); mreq.imr_interface.s_addr=htonl(INADDR_ANY); + // NG: mreq.imr_interface.s_addr=htonl("192.168.10.13"); if (setsockopt(fd,IPPROTO_IP,IP_ADD_MEMBERSHIP,&mreq,sizeof(mreq)) < 0) { perror("setsockopt"); exit(1); diff --git a/symspec.f90 b/symspec.f90 index 82f676a06..703cc9bf8 100644 --- a/symspec.f90 +++ b/symspec.f90 @@ -14,9 +14,9 @@ subroutine symspec(id,kbuf,kk,kkdone,nutc,newdat) kkk=kk if(kbuf.eq.2) kkk=kk-5760000 - if(ndebug.gt.0) write(*,4001) 'A',nutc,mod(int(sec_midn()),60), & - kbuf,kk,kkk,kkdone -4001 format(a1,i5.4,2i3,3i9,i5) +! if(ndebug.gt.0) write(*,4001) 'A',nutc,mod(int(sec_midn()),60), & +! kbuf,kk,kkk,kkdone +!4001 format(a1,i5.4,2i3,3i9,i5) if(ndebug.eq.2) write(*,3001) nutc,mod(int(sec_midn()),60) 3001 format('symspec 1:',i5.4,i3.2) @@ -116,8 +116,8 @@ subroutine symspec(id,kbuf,kk,kkdone,nutc,newdat) 998 kkdone=i1-1 999 continue - if(ndebug.gt.0) write(*,4001) 'B',nutc,mod(int(sec_midn()),60), & - kbuf,kk,kkk,kkdone,n +! if(ndebug.gt.0) write(*,4001) 'B',nutc,mod(int(sec_midn()),60), & +! kbuf,kk,kkk,kkdone,n if(ndebug.eq.2) write(*,3002) mod(int(sec_midn()),60),n 3002 format('symspec 2:',i8.2,i5) return