w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2024-11-25 05:38:46 -05:00
Code Issues Packages Projects Releases Wiki Activity

Reverted to Fortran four2 to fix multi-threading problem with FFTW3.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/WSJT/trunk@13 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2005-12-24 13:12:34 +00:00
parent 9b4227f935
commit ba44a4125a
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
fsubs.f
View File

@ -19,7 +19,8 @@
include 'flat1.f' include 'flat1.f'
#ifdef Win32 #ifdef Win32
include 'four2a.f' ! include 'four2a.f' !Multi-threading problems with FFTW3
include 'four2.f'
#else #else
include 'four2.f' include 'four2.f'
include 'rfile2.f' include 'rfile2.f'

7
sync.f
View File

@ -3,20 +3,19 @@
C Input data are in the y# arrays: detected sigs in four tone-channels, C Input data are in the y# arrays: detected sigs in four tone-channels,
C before decimation by NSPD. C before decimation by NSPD.
parameter (NSPDMAX=200) parameter (NSPD=25)
real y1(npts) real y1(npts)
real y2(npts) real y2(npts)
real y3(npts) real y3(npts)
real y4(npts) real y4(npts)
real zf(NSPDMAX) real zf(NSPD)
complex csum complex csum
integer nsum(NSPDMAX) integer nsum(NSPD)
real z(65538) !Ready for FSK110 real z(65538) !Ready for FSK110
complex cz(0:32768) complex cz(0:32768)
equivalence (z,cz) equivalence (z,cz)
data twopi/6.283185307/ data twopi/6.283185307/
NSPD=25
do i=1,NSPD do i=1,NSPD
zf(i)=0.0 zf(i)=0.0
nsum(i)=0 nsum(i)=0