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

Remove a diagnostic write.

Browse Source
This commit is contained in:
Joe Taylor 2021-01-30 14:59:55 -05:00
parent 14c4164651
commit 2f5c368aad
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lib/spec64.f90
View File

@ -21,7 +21,6 @@ subroutine spec64(c0,nsps,mode_q65,jpk,s3,LL,NN)
j=j+1 j=j+1
ja=(k-1)*nsps + jpk ja=(k-1)*nsps + jpk
jb=ja+nsps-1 jb=ja+nsps-1
write(71,*) k,ja,jb ; flush(71)
cs(0:nfft-1)=c0(ja:jb) cs(0:nfft-1)=c0(ja:jb)
call four2a(cs,nsps,1,-1,1) !c2c FFT to frequency call four2a(cs,nsps,1,-1,1) !c2c FFT to frequency
do ii=1,LL do ii=1,LL