Make odd erasure pattern exponents work.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6279 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Steven Franke 2015-12-16 00:49:47 +00:00
parent d7e7b43045
commit f281d082bf
1 changed files with 2 additions and 2 deletions

View File

@ -19,8 +19,8 @@ subroutine decoder(ss,id2,nfsample)
!$omp threadprivate(/tracer_priv/)
save
if(mod(n,2).eq.0) ntrials=10**(nranera/2)
if(mod(n,2).eq.1) ntrials=3*10**(nranera/2)
if(mod(n,2).eq.0) ntrials=10**(nranera/2.0)
if(mod(n,2).eq.1) ntrials=3*10**(nranera/2.0)
if(nranera.eq.0) ntrials=0
rms=sqrt(dot_product(float(id2(300000:310000)), &