w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-24 10:22:26 -04: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 630ec94aaa
commit 3d112ab26c
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) call timer('softsym ',0)
fpk=nf0 + df3*(i-1) fpk=nf0 + df3*(i-1)
call softsym(id2,npts8,nsps8,newdat,fpk,syncpk,snrdb,xdt, & call softsym(id2,npts8,nsps8,newdat,fpk,syncpk,snrdb,xdt, &
freq,drift,schk,i1SoftSymbols) freq,drift,schk,i1SoftSymbols)
call timer('softsym ',1) 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) if(newdat.ne.0) dd(1:npts65)=id2(1:npts65)
nf1=nfa nf1=nfa
nf2=nfb nf2=nfb
call timer('jt65a ',0)
call jt65a(dd,npts65,newdat,nutc,nf1,nf2,nfqso,ntol65,nagain,ndecoded) call jt65a(dd,npts65,newdat,nutc,nf1,nf2,nfqso,ntol65,nagain,ndecoded)
call timer('jt65a ',1)
done65=.true. done65=.true.
endif endif
@ -53,8 +55,10 @@ subroutine decoder(ss,id2)
!!$OMP SECTION !!$OMP SECTION
! print*,'B' ! print*,'B'
call timer('decjt9 ',0)
call decjt9(ss,id2,nutc,nfqso,newdat,npts8,nfa,nfsplit,nfb,ntol,nzhsym, & call decjt9(ss,id2,nutc,nfqso,newdat,npts8,nfa,nfsplit,nfb,ntol,nzhsym, &
nagain,ndepth,nmode) nagain,ndepth,nmode)
call timer('decjt9 ',1)
!!$OMP SECTION !!$OMP SECTION
if(nmode.ge.65 .and. (.not.done65)) then if(nmode.ge.65 .and. (.not.done65)) then
@ -62,7 +66,9 @@ subroutine decoder(ss,id2)
nf1=nfa nf1=nfa
nf2=nfb nf2=nfb
! print*,'C' ! print*,'C'
call timer('jt65a ',0)
call jt65a(dd,npts65,newdat,nutc,nf1,nf2,nfqso,ntol65,nagain,ndecoded) call jt65a(dd,npts65,newdat,nutc,nf1,nf2,nfqso,ntol65,nagain,ndecoded)
call timer('jt65a ',1)
endif endif
!!$OMP END SECTIONS NOWAIT !!$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 nw=100
ia=max(1,nf-nw) ia=max(1,nf-nw)
ib=min(5000,nf+nw) ib=min(5000,nf+nw)
call timer('pctile_1',0)
call pctile(s(ia),ib-ia+1,40,avenoise) call pctile(s(ia),ib-ia+1,40,avenoise)
call timer('pctile_1',1)
fac=sqrt(1.0/avenoise) fac=sqrt(1.0/avenoise)
do i=0,nfft2-1 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 if(i.gt.nh2) j=j-nfft2
c2(i)=fac*c1(j) c2(i)=fac*c1(j)
enddo enddo
call timer('FFTsmal9',0)
call four2a(c2,nfft2,1,1,1) !FFT back to time domain call four2a(c2,nfft2,1,1,1) !FFT back to time domain
call timer('FFTsmal9',1)
nz2=8*npts8/ndown nz2=8*npts8/ndown
return 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 downsam9(id2,npts8,nsps8,newdat,nspsd,fpk,c2,nz2)
call timer('downsam9',1) call timer('downsam9',1)
call timer('peakdt9 ',0)
call peakdt9(c2,nz2,nsps8,nspsd,c3,nz3,xdt) !Find DT call peakdt9(c2,nz2,nsps8,nspsd,c3,nz3,xdt) !Find DT
call timer('peakdt9 ',1)
fsample=1500.0/ndown fsample=1500.0/ndown
a=0. a=0.
@ -42,9 +40,7 @@ subroutine softsym(id2,npts8,nsps8,newdat,fpk,syncpk,snrdb,xdt, &
call timer('symspec2',1) call timer('symspec2',1)
! Remove interleaving ! Remove interleaving
call timer('interlv9',0)
call interleave9(i1SoftSymbolsScrambled,-1,i1SoftSymbols) call interleave9(i1SoftSymbolsScrambled,-1,i1SoftSymbols)
call timer('interlv9',1)
return return
end subroutine softsym end subroutine softsym