w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-10-31 15:47:10 -04:00
Code Issues Packages Projects Releases Wiki Activity

Some variables now need to be saved explicitly to maintain value

Browse Source 
betweek subsoutine calls.


git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4939 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2015-02-06 15:18:38 +00:00
parent f60c2e19c5
commit b01fb32aea
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lib/decjt9.f90
View File

@ -10,6 +10,7 @@ subroutine decjt9(ss,id2,nutc,nfqso,newdat,npts8,nfa,nfsplit,nfb,ntol, &
logical done(NSMAX) logical done(NSMAX)
integer*2 id2(NTMAX*12000) integer*2 id2(NTMAX*12000)
integer*1 i1SoftSymbols(207) integer*1 i1SoftSymbols(207)
save ccfred,red2
nsynced=0 nsynced=0
ndecoded=0 ndecoded=0

2
lib/downsam9.f90
View File

@ -17,7 +17,7 @@ subroutine downsam9(id2,npts8,nsps8,newdat,nspsd,fpk,c2,nz2)
logical first logical first
common/patience/npatience,nthreads common/patience/npatience,nthreads
data first/.true./ data first/.true./
save plan,first save plan,first,c1,s
nfft1=NMAX1 !Forward FFT length nfft1=NMAX1 !Forward FFT length
df1=12000.0/nfft1 df1=12000.0/nfft1