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) endif (APPLE)
if (WIN32) if (WIN32)
set_target_properties (jt9 PROPERTIES set_target_properties (jt9 PROPERTIES
LINK_FLAGS -Wl,--stack,28000000 LINK_FLAGS -Wl,--stack,16777216
) )
endif () endif ()
target_link_libraries (jt9 wsjt_fort_omp wsjt_cxx fort_qt) 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(len=6) :: hisgrid
character*37 decoded !Decoded message character*37 decoded !Decoded message
integer*2 iwave(NMAX) !Raw data 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 integer dat4(12) !Decoded message as 12 6-bit integers
logical ltext logical ltext
complex, allocatable :: c00(:) !Analytic signal, 6000 Sa/s complex, allocatable :: c00(:) !Analytic signal, 6000 Sa/s
@ -62,6 +62,7 @@ contains
mode65=2**nsubmode mode65=2**nsubmode
nfft1=ntrperiod*12000 nfft1=ntrperiod*12000
nfft2=ntrperiod*6000 nfft2=ntrperiod*6000
allocate(dd(NMAX))
allocate (c00(0:nfft1-1)) allocate (c00(0:nfft1-1))
allocate (c0(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. ! Compute synchronized symbol spectra.
complex c0(0:85*nsps-1) !Synchronized complex data at 6000 S/s 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 s3(LL,NN) !Synchronized symbol spectra
real xbase0(LL),xbase(LL) !Work arrays real xbase0(LL),xbase(LL) !Work arrays
integer isync(22) !Indices of sync symbols 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/ 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 fac=1.0/nsps
j=0 j=0
n=1 n=1