w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-30 21:32:29 -04:00
Code Issues Packages Projects Releases Wiki Activity

Work around gfortran v10 error message

Browse Source
This commit is contained in:
Bill Somerville 2020-07-08 02:25:25 +01:00
parent adafb89769
commit aa557820d4
No known key found for this signature in database
GPG Key ID: D864B06D1E81618F
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lib/fst240_decode.f90
View File

@ -33,6 +33,7 @@ contains
use timer_module, only: timer use timer_module, only: timer
use packjt77 use packjt77
use, intrinsic :: iso_c_binding
include 'fst240/fst240_params.f90' include 'fst240/fst240_params.f90'
parameter (MAXCAND=100) parameter (MAXCAND=100)
class(fst240_decoder), intent(inout) :: this class(fst240_decoder), intent(inout) :: this
@ -45,7 +46,8 @@ contains
complex, allocatable :: c2(:) complex, allocatable :: c2(:)
complex, allocatable :: cframe(:) complex, allocatable :: cframe(:)
complex, allocatable :: c_bigfft(:) !Complex waveform complex, allocatable :: c_bigfft(:) !Complex waveform
real, allocatable :: r_data(:) real, allocatable, target :: r_data(:)
complex, pointer, dimension(:) :: c_data_ptr
real llr(240),llra(240),llrb(240),llrc(240),llrd(240) real llr(240),llra(240),llrb(240),llrc(240),llrd(240)
real candidates(100,4) real candidates(100,4)
real bitmetrics(320,4) real bitmetrics(320,4)
@ -212,6 +214,7 @@ contains
nh1=nfft1/2 nh1=nfft1/2
allocate( r_data(1:nfft1+2) ) allocate( r_data(1:nfft1+2) )
call c_f_pointer (c_loc (r_data), c_data_ptr, [(nfft1+2)/2]) ! c_data_ptr shares memory with r_data
allocate( c_bigfft(0:nfft1/2) ) allocate( c_bigfft(0:nfft1/2) )
allocate( c2(0:nfft2-1) ) allocate( c2(0:nfft2-1) )
@ -238,7 +241,7 @@ contains
! and also for downconverting/downsampling each candidate. ! and also for downconverting/downsampling each candidate.
r_data(1:nfft1)=iwave(1:nfft1) r_data(1:nfft1)=iwave(1:nfft1)
r_data(nfft1+1:nfft1+2)=0.0 r_data(nfft1+1:nfft1+2)=0.0
call four2a(r_data,nfft1,1,-1,0) call four2a(c_data_ptr,nfft1,1,-1,0)
c_bigfft=cmplx(r_data(1:nfft1+2:2),r_data(2:nfft1+2:2)) c_bigfft=cmplx(r_data(1:nfft1+2:2),r_data(2:nfft1+2:2))
! write(*,3001) iwspr,nfa,nfb,nfsplit,ndepth ! write(*,3001) iwspr,nfa,nfb,nfsplit,ndepth
!3001 format('a',5i5) !3001 format('a',5i5)