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

View File

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