w4kek
/
WSJT-X
mirror of https://github.com/saitohirga/WSJT-X.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Remove some diagnostics. 

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@8318 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2017-12-12 20:33:44 +00:00
parent 84b38ee0ad
commit c4f4e9d7bd
1 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lib/ft8/foxgen.f90
View File

@ -131,15 +131,14 @@ subroutine foxgen()
peak3=maxval(abs(wave))
wave=wave/peak3
nadd=1000
print*,nwave,nadd,nwave/nadd,peak3
j=0
do i=1,NWAVE,nadd
sx=dot_product(wave(i:i+nadd-1),wave(i:i+nadd-1))
j=j+1
write(30,3001) j,sx/nadd
3001 format(i8,f12.6)
enddo
! nadd=1000
! j=0
! do i=1,NWAVE,nadd
! sx=dot_product(wave(i:i+nadd-1),wave(i:i+nadd-1))
! j=j+1
! write(30,3001) j,sx/nadd
!3001 format(i8,f12.6)
! enddo
call plotspec(3,wave) !Plot the spectrum