2016-04-05 08:38:21 -04:00
|
|
|
program jt9w
|
|
|
|
|
|
|
|
|
|
parameter (NSMAX=6827,NZMAX=60*12000)
|
|
|
|
|
real ss(184,NSMAX)
|
|
|
|
|
real ref(NSMAX)
|
|
|
|
|
integer*2 id2(NZMAX)
|
|
|
|
|
character*12 arg
|
2016-04-05 10:17:34 -04:00
|
|
|
character*22 decoded
|
2016-04-05 08:38:21 -04:00
|
|
|
|
|
|
|
|
call getarg(1,arg)
|
|
|
|
|
read(arg,*) iutc
|
|
|
|
|
|
|
|
|
|
open(20,file='refspec.dat',status='old')
|
|
|
|
|
do i=1,NSMAX
|
|
|
|
|
read(20,*) j,freq,ref(i)
|
|
|
|
|
enddo
|
|
|
|
|
|
|
|
|
|
do ifile=1,999
|
2016-04-05 09:17:38 -04:00
|
|
|
read(60,end=999) nutc,nfqso,ntol,ndepth,nmode,nsubmode,ss,id2
|
2016-04-05 08:38:21 -04:00
|
|
|
if(nutc.ne.iutc) cycle
|
2016-04-05 10:17:34 -04:00
|
|
|
ntol=100
|
|
|
|
|
call decode9w(nutc,nfqso,ntol,nsubmode,ss,id2,sync,nsnr,xdt,freq,decoded)
|
|
|
|
|
write(*,1100) nutc,nsnr,xdt1-1.0,nint(freq),decoded
|
|
|
|
|
1100 format(i4.4,i4,f5.1,i5,1x,'@',1x,a22)
|
|
|
|
|
exit
|
2016-04-05 08:38:21 -04:00
|
|
|
enddo
|
|
|
|
|
|
|
|
|
|
999 end program jt9w
|
