Tweak for consistency.

2019-07-12 10:41:09 -05:00 · 2019-07-12 10:41:09 -05:00 · f224790569
parent fb6e2861c0
commit f224790569
1 changed files with 1 additions and 2 deletions
--- a/lib/ft8/subtractft8.f90
+++ b/lib/ft8/subtractft8.f90
@ -20,12 +20,11 @@ subroutine subtractft8(dd,itone,f0,dt)
  save first

  nstart=dt*12000+1
-!  call genft8refsig(itone,cref,f0)
  nsym=79
  nsps=1920
  fs=12000.0
  icmplx=1
-  bt=4.0      ! Temporary compromise?
+  bt=2.0 
  call gen_ft8wave(itone,nsym,nsps,bt,fs,f0,cref,xjunk,icmplx,NFRAME)
  camp=0.
  do i=1,nframe