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'
#ifdef Win32
include 'four2a.f'
! include 'four2a.f' !Multi-threading problems with FFTW3
include 'four2.f'
#else
include 'four2.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 before decimation by NSPD.
parameter (NSPDMAX=200)
parameter (NSPD=25)
real y1(npts)
real y2(npts)
real y3(npts)
real y4(npts)
real zf(NSPDMAX)
real zf(NSPD)
complex csum
integer nsum(NSPDMAX)
integer nsum(NSPD)
real z(65538) !Ready for FSK110
complex cz(0:32768)
equivalence (z,cz)
data twopi/6.283185307/
NSPD=25
do i=1,NSPD
zf(i)=0.0
nsum(i)=0