diff --git a/lib/qra/q65/q65sim.f90 b/lib/qra/q65/q65sim.f90
index 241d0adb8..c3881d673 100644
--- a/lib/qra/q65/q65sim.f90
+++ b/lib/qra/q65/q65sim.f90
@@ -17,14 +17,11 @@ program q65sim
real*8 f0,dt,twopi,phi,dphi,baud,fsample,freq
character msg*37,fname*17,csubmode*1,arg*12,cd*1
character msgsent*37
- logical lsync
- data lsync/.false./
nargs=iargc()
- if(nargs.ne.9) then
- print *, 'Usage: q65sim "msg" A-E freq fDop DT TRp Nfiles Sync SNR'
- print *, 'Example: q65sim "K1ABC W9XYZ EN37" A 1500 0.0 0.0 60 1 T -26'
- print*,'Sync = T to include sync test.'
+ if(nargs.ne.8) then
+ print *, 'Usage: q65sim "msg" A-E freq fDop DT TRp Nfiles SNR'
+ print *, 'Example: q65sim "K1ABC W9XYZ EN37" A 1500 0.0 0.0 60 1 -26'
go to 999
endif
call getarg(1,msg)
@@ -41,15 +38,8 @@ program q65sim
call getarg(7,arg)
read(arg,*) nfiles
call getarg(8,arg)
- if(arg(1:1).eq.'T' .or. arg(1:1).eq.'1') lsync=.true.
- call getarg(9,arg)
read(arg,*) snrdb
- if(nfiles.lt.0) then
- nfiles=-nfiles
- lsync=.true.
- endif
-
if(ntrperiod.eq.15) then
nsps=1800
else if(ntrperiod.eq.30) then
@@ -98,7 +88,6 @@ program q65sim
write(*,1004)
1004 format('File TR Freq Mode S/N DT Dop Message'/60('-'))
- nsync=0
do ifile=1,nfiles !Loop over requested number of files
if(ntrperiod.lt.60) then
write(fname,1005) ifile !Output filename
@@ -192,24 +181,6 @@ program q65sim
if(snrdb.lt.90.0) iwave(1:npts)=nint(rms*dat(1:npts))
write(10) h,iwave(1:npts) !Save the .wav file
close(10)
-
-! if(lsync) then
-! cd=' '
-! if(ifile.eq.nfiles) cd='d'
-! nfqso=nint(f0)
-! ntol=100
-! call q65_sync(iwave,npts,mode65,nsps,nfqso,ntol,xdt2,f02,snr2)
-! terr=1.01/(8.0*baud)
-! ferr=1.01*mode65*baud
-! if(abs(xdt2-xdt).lt.terr .and. abs(f02-f0).lt.ferr) nsync=nsync+1
-! open(40,file='sync65.out',status='unknown',position='append')
-! write(40,1030) ifile,65,csubmode,snrdb,fspread,xdt2-xdt,f02-f0, &
-! snr2,nsync,cd
-!1030 format(i4,i3,1x,a1,2f7.1,f7.2,2f8.1,i5,1x,a1)
-! close(40)
-! endif
enddo
- if(lsync) write(*,1040) snrdb,nfiles,nsync
-1040 format('SNR:',f6.1,' nfiles:',i5,' nsynced:',i5)
999 end program q65sim