2016-07-21 16:30:04 -04:00
|
|
|
program qratest
|
|
|
|
|
|
|
|
|
|
parameter (NMAX=60*12000)
|
|
|
|
|
real dd(NMAX)
|
2016-07-22 12:56:08 -04:00
|
|
|
character*8 arg
|
2016-12-05 16:00:13 -05:00
|
|
|
character*12 mycall,hiscall
|
|
|
|
|
character*6 hisgrid
|
|
|
|
|
character*22 decoded
|
2016-07-22 12:56:08 -04:00
|
|
|
|
|
|
|
|
nargs=iargc()
|
2016-07-22 14:52:59 -04:00
|
|
|
if(nargs.ne.3) then
|
|
|
|
|
print*,'Usage: qratest f0 maxf1 fTol'
|
2016-07-22 12:56:08 -04:00
|
|
|
go to 999
|
|
|
|
|
endif
|
|
|
|
|
call getarg(1,arg)
|
|
|
|
|
read(arg,*) nf0
|
|
|
|
|
call getarg(2,arg)
|
2016-07-22 14:52:59 -04:00
|
|
|
read(arg,*) maxf1
|
|
|
|
|
call getarg(3,arg)
|
2016-07-22 12:56:08 -04:00
|
|
|
read(arg,*) ntol
|
2016-12-05 16:00:13 -05:00
|
|
|
ndepth=3
|
|
|
|
|
|
|
|
|
|
! do n=1,999
|
|
|
|
|
do n=1,1
|
|
|
|
|
read(60,end=999) dd,npts,nutc,nf1,nf2,nfqso,ntol,mode64,minsync,mycall, &
|
|
|
|
|
hiscall,hisgrid
|
|
|
|
|
call qra64a(dd,npts,nutc,nf1,nf2,nfqso,ntol,mode64,minsync,ndepth, &
|
|
|
|
|
mycall,hiscall,hisgrid,sync,nsnr,dtx,nfreq,decoded,nft)
|
|
|
|
|
write(*,1000) nutc,nsnr,dtx,nfreq,decoded,nft-100
|
|
|
|
|
1000 format(i4.4,i4,f6.2,i5,1x,a22,i3)
|
2016-07-21 16:30:04 -04:00
|
|
|
enddo
|
|
|
|
|
|
|
|
|
|
999 end program qratest
|
