diff --git a/lib/fst240/gen_fst240wave.f90 b/lib/fst240/gen_fst240wave.f90 index 3005968b2..0df62c1b7 100644 --- a/lib/fst240/gen_fst240wave.f90 +++ b/lib/fst240/gen_fst240wave.f90 @@ -8,13 +8,11 @@ subroutine gen_fst240wave(itone,nsym,nsps,nwave,fsample,hmod,f0, & real, allocatable :: dphi(:) integer hmod integer itone(nsym) -! integer*8 count0,count1,clkfreq logical first data first/.true./ data nsps0/-99/ save first,twopi,dt,tsym,nsps0,ctab -! call system_clock(count0,clkfreq) if(first) then twopi=8.0*atan(1.0) do i=0,NTAB-1 @@ -88,11 +86,6 @@ subroutine gen_fst240wave(itone,nsym,nsps,nwave,fsample,hmod,f0, & (1.0+cos(twopi*(/(i,i=0,nsps/4-1)/)/real(nsps/2)))/2.0 cwave=cshift(cwave,kshift) endif - -! call system_clock(count1,clkfreq) -! tt=float(count1-count0)/float(clkfreq) -! write(*,3001) tt -!3001 format('Tgen:',f8.3) return end subroutine gen_fst240wave diff --git a/widgets/mainwindow.cpp b/widgets/mainwindow.cpp index 269fdc75f..575d43202 100644 --- a/widgets/mainwindow.cpp +++ b/widgets/mainwindow.cpp @@ -3888,12 +3888,11 @@ void MainWindow::guiUpdate() if(m_TRperiod==120) nsps=8200; if(m_TRperiod==300) nsps=21168; nsps=4*nsps; //48000 Hz sampling - int nsym=164; + int nsym=160; float fsample=48000.0; float dfreq=hmod*fsample/nsps; float f0=ui->TxFreqSpinBox->value() - m_XIT + 1.5*dfreq; -// int nwave=(nsym+2)*nsps; - int nwave=48000 + 166*nsps; + int nwave=48000 + (nsym+2)*nsps; int icmplx=0; gen_fst240wave_(const_cast(itone),&nsym,&nsps,&nwave, &fsample,&hmod,&f0,&icmplx,foxcom_.wave,foxcom_.wave);