w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-02-03 09:44:24 -05:00
Code Issues Packages Projects Releases Wiki Activity

Change some calls to timer().

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4921 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2015-02-01 20:11:10 +00:00
parent ccca5b80ea
commit 7f70863caa
4 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lib/decjt9.f90
View File

@ -83,7 +83,6 @@ subroutine decjt9(ss,id2,nutc,nfqso,newdat,npts8,nfa,nfsplit,nfb,ntol, &
call timer('softsym ',0)
fpk=nf0 + df3*(i-1)
call softsym(id2,npts8,nsps8,newdat,fpk,syncpk,snrdb,xdt, &
freq,drift,schk,i1SoftSymbols)
call timer('softsym ',1)

6
lib/decoder.f90
View File

@ -41,7 +41,9 @@ subroutine decoder(ss,id2)
if(newdat.ne.0) dd(1:npts65)=id2(1:npts65)
nf1=nfa
nf2=nfb
call timer('jt65a ',0)
call jt65a(dd,npts65,newdat,nutc,nf1,nf2,nfqso,ntol65,nagain,ndecoded)
call timer('jt65a ',1)
done65=.true.
endif
@ -53,8 +55,10 @@ subroutine decoder(ss,id2)
!!$OMP SECTION
! print*,'B'
call timer('decjt9 ',0)
call decjt9(ss,id2,nutc,nfqso,newdat,npts8,nfa,nfsplit,nfb,ntol,nzhsym, &
nagain,ndepth,nmode)
call timer('decjt9 ',1)
!!$OMP SECTION
if(nmode.ge.65 .and. (.not.done65)) then
@ -62,7 +66,9 @@ subroutine decoder(ss,id2)
nf1=nfa
nf2=nfb
! print*,'C'
call timer('jt65a ',0)
call jt65a(dd,npts65,newdat,nutc,nf1,nf2,nfqso,ntol65,nagain,ndecoded)
call timer('jt65a ',1)
endif
!!$OMP END SECTIONS NOWAIT

4
lib/downsam9.f90
View File

@ -73,9 +73,7 @@ subroutine downsam9(id2,npts8,nsps8,newdat,nspsd,fpk,c2,nz2)
nw=100
ia=max(1,nf-nw)
ib=min(5000,nf+nw)
call timer('pctile_1',0)
call pctile(s(ia),ib-ia+1,40,avenoise)
call timer('pctile_1',1)
fac=sqrt(1.0/avenoise)
do i=0,nfft2-1
@ -83,9 +81,7 @@ subroutine downsam9(id2,npts8,nsps8,newdat,nspsd,fpk,c2,nz2)
if(i.gt.nh2) j=j-nfft2
c2(i)=fac*c1(j)
enddo
call timer('FFTsmal9',0)
call four2a(c2,nfft2,1,1,1) !FFT back to time domain
call timer('FFTsmal9',1)
nz2=8*npts8/ndown
return

4
lib/softsym.f90
View File

@ -19,9 +19,7 @@ subroutine softsym(id2,npts8,nsps8,newdat,fpk,syncpk,snrdb,xdt, &
call downsam9(id2,npts8,nsps8,newdat,nspsd,fpk,c2,nz2)
call timer('downsam9',1)
call timer('peakdt9 ',0)
call peakdt9(c2,nz2,nsps8,nspsd,c3,nz3,xdt) !Find DT
call timer('peakdt9 ',1)
fsample=1500.0/ndown
a=0.
@ -42,9 +40,7 @@ subroutine softsym(id2,npts8,nsps8,newdat,fpk,syncpk,snrdb,xdt, &
call timer('symspec2',1)
! Remove interleaving
call timer('interlv9',0)
call interleave9(i1SoftSymbolsScrambled,-1,i1SoftSymbols)
call timer('interlv9',1)
return
end subroutine softsym