w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-07-16 08:35:17 -04:00
Code Issues Packages Projects Releases Wiki Activity

Code cleanup: don't modify the msg argument passed to packmsg().

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6178 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2015-11-25 14:57:10 +00:00
parent 959e96708a
commit acdc716f21
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/Makefile.jt65_Win
View File

@ -37,7 +37,7 @@ OBJS1 = astrosub.o astro0.o astro.o sun.o coord.o tmoonsub.o \
symspec.o analytic.o db.o \ symspec.o analytic.o db.o \
encode232.o interleave9.o \ encode232.o interleave9.o \
entail.o fano232.o gran.o sync9.o decjt9.o \ entail.o fano232.o gran.o sync9.o decjt9.o \
fil3.o decoder.o timer.o \ fil3.o decoder.o timer.o exp_decode65.o fqso_first.o \
twkfreq.o symspec2.o shell.o sync65.o peakup.o slope.o xcor.o\ twkfreq.o symspec2.o shell.o sync65.o peakup.o slope.o xcor.o\
fillcom.o chkss2.o zplot9.o flat1.o flat2.o \ fillcom.o chkss2.o zplot9.o flat1.o flat2.o \
jt65a.o symspec65.o flat65.o ccf65.o decode65a.o \ jt65a.o symspec65.o flat65.o ccf65.o decode65a.o \
@ -58,7 +58,7 @@ jt65: $(OBJS7) libjt9.a libsfrsd.a
OBJS2 = jt65sim.o wavhdr.o OBJS2 = jt65sim.o wavhdr.o
jt65sim: $(OBJS2) libjt9.a jt65sim: $(OBJS2) libjt9.a
$(FC) -o jt65sim $(OBJS2) -L. -ljt9 $(FC) -o jt65sim $(OBJS2) -L. -ljt9 C:\JTSDK\fftw3f\libfftw3f-3.dll
$(CP) jt65sim.exe $(EXE_DIR) $(CP) jt65sim.exe $(EXE_DIR)
init_rs.o: init_rs.c init_rs.o: init_rs.c

5
lib/packjt.f90
View File

@ -388,7 +388,7 @@ subroutine packbits(dbits,nsymd,m0,sym)
900 return 900 return
end subroutine unpackgrid end subroutine unpackgrid
subroutine packmsg(msg,dat,itype) subroutine packmsg(msg0,dat,itype)
! Packs a JT4/JT9/JT65 message into twelve 6-bit symbols ! Packs a JT4/JT9/JT65 message into twelve 6-bit symbols
@ -404,13 +404,14 @@ subroutine packbits(dbits,nsymd,m0,sym)
parameter (NBASE=37*36*10*27*27*27) parameter (NBASE=37*36*10*27*27*27)
parameter (NBASE2=262178562) parameter (NBASE2=262178562)
character*22 msg character*22 msg0,msg
integer dat(12) integer dat(12)
character*12 c1,c2 character*12 c1,c2
character*4 c3 character*4 c3
character*6 grid6 character*6 grid6
logical text1,text2,text3 logical text1,text2,text3
msg=msg0
itype=1 itype=1
call fmtmsg(msg,iz) call fmtmsg(msg,iz)