1. Corrected handling of compound callsigns: use JT65v1 encoding if

applicable, JT65v2 otherwise.  Thanks to DL9RDZ!

2. Fix a bug in flat3.f90, evident on OSX systems.  Thanks to G4KLA!

3. The Makefile now copy the jt9code executable into the destination
   directory for to-be-packaged executables.



git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@3648 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2014-01-18 13:59:19 +00:00
parent e903647371
commit 15c102fad8
6 changed files with 7 additions and 4 deletions

View File

@ -72,6 +72,7 @@ jt9sim.exe: $(OBJS3) libjt9.a
OBJS4 = jt9code.o OBJS4 = jt9code.o
jt9code.exe: $(OBJS4) libjt9.a jt9code.exe: $(OBJS4) libjt9.a
$(FC) -o jt9code.exe $(OBJS4) libjt9.a $(FC) -o jt9code.exe $(OBJS4) libjt9.a
cp jt9code.exe $(EXE_DIR)
OBJS5 = jt65.o OBJS5 = jt65.o
jt65.exe: $(OBJS5) libjt9.a jt65.exe: $(OBJS5) libjt9.a

View File

@ -62,6 +62,7 @@ jt9sim: $(OBJS3) libjt9.a
OBJS4 = jt9code.o OBJS4 = jt9code.o
jt9code: $(OBJS4) libjt9.a jt9code: $(OBJS4) libjt9.a
$(FC) -o jt9code $(OBJS4) -L. -ljt9 $(FC) -o jt9code $(OBJS4) -L. -ljt9
cp jt9code $(EXE_DIR)
sync9.o: sync9.f90 jt9sync.f90 sync9.o: sync9.f90 jt9sync.f90
$(FC) $(FFLAGS) -c sync9.f90 $(FC) $(FFLAGS) -c sync9.f90

View File

@ -4,7 +4,7 @@ subroutine flat3(s0,iz,nfa,nfb,nterms,ynoise,s)
parameter (NSMAX=6827) parameter (NSMAX=6827)
real*4 s0(iz) real*4 s0(iz)
real*4 s(iz) real*4 s(iz)
real*4 ynoise,y4 real*4 ynoise,y4,db
real*8 x(NSMAX) real*8 x(NSMAX)
real*8 y(NSMAX) real*8 y(NSMAX)

View File

@ -13,7 +13,7 @@ subroutine getpfx1(callsign,k,nv2)
if(iz.lt.0) iz=12 if(iz.lt.0) iz=12
islash=index(callsign(1:iz),'/') islash=index(callsign(1:iz),'/')
k=0 k=0
if(k.eq.0) go to 10 !### Always use JT65v2 ### ! if(k.eq.0) go to 10 !Tnx to DL9RDZ for reminder:this was for tests only!
c=' ' c=' '
if(islash.gt.0 .and. islash.le.(iz-4)) then if(islash.gt.0 .and. islash.le.(iz-4)) then
! Add-on prefix ! Add-on prefix

View File

@ -60,7 +60,8 @@ subroutine packmsg(msg,dat,text)
c3=' ' c3=' '
if(ic.ge.ib+1) c3=msg(ib+1:ic) if(ic.ge.ib+1) c3=msg(ib+1:ic)
if(c3.eq.'OOO ') c3=' ' !Strip out the OOO flag if(c3.eq.'OOO ') c3=' ' !Strip out the OOO flag
call getpfx1(c1,k1,junk) call getpfx1(c1,k1,kk)
if(kk.ne.0) go to 10 !Tnx to DL9RDZ for reminding me!
call packcall(c1,nc1,text1) call packcall(c1,nc1,text1)
call getpfx1(c2,k2,nv2) call getpfx1(c2,k2,nv2)
call packcall(c2,nc2,text2) call packcall(c2,nc2,text2)

View File

@ -1,4 +1,4 @@
//-------------------------------------------------------------- MainWindow //------------------------------------------------------------- MainWindow
#include "mainwindow.h" #include "mainwindow.h"
#include "ui_mainwindow.h" #include "ui_mainwindow.h"