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

Allocate some big arrays on the heap.

Browse Source
This commit is contained in:
Joe Taylor 2020-10-17 13:16:46 -04:00
parent 3f68f075e8
commit 1f2ca15ee5
3 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
CMakeLists.txt
View File

@ -1382,7 +1382,7 @@ if (${OPENMP_FOUND} OR APPLE)
endif (APPLE)
if (WIN32)
set_target_properties (jt9 PROPERTIES
LINK_FLAGS -Wl,--stack,28000000
LINK_FLAGS -Wl,--stack,16777216
)
endif ()
target_link_libraries (jt9 wsjt_fort_omp wsjt_cxx fort_qt)

3
lib/qra65_decode.f90
View File

@ -51,7 +51,7 @@ contains
character(len=6) :: hisgrid
character*37 decoded !Decoded message
integer*2 iwave(NMAX) !Raw data
real dd(NMAX) !Raw data
real, allocatable :: dd(:) !Raw data
integer dat4(12) !Decoded message as 12 6-bit integers
logical ltext
complex, allocatable :: c00(:) !Analytic signal, 6000 Sa/s
@ -62,6 +62,7 @@ contains
mode65=2**nsubmode
nfft1=ntrperiod*12000
nfft2=ntrperiod*6000
allocate(dd(NMAX))
allocate (c00(0:nfft1-1))
allocate (c0(0:nfft1-1))

3
lib/spec_qra65.f90
View File

@ -3,12 +3,13 @@ subroutine spec_qra65(c0,nsps,s3,LL,NN)
! Compute synchronized symbol spectra.
complex c0(0:85*nsps-1) !Synchronized complex data at 6000 S/s
complex cs(0:nsps-1) !Complex symbol spectrum
complex, allocatable :: cs(:) !Complex symbol spectrum
real s3(LL,NN) !Synchronized symbol spectra
real xbase0(LL),xbase(LL) !Work arrays
integer isync(22) !Indices of sync symbols
data isync/1,9,12,13,15,22,23,26,27,33,35,38,46,50,55,60,62,66,69,74,76,85/
allocate(cs(0:nsps-1))
fac=1.0/nsps
j=0
n=1