From b87c77ddf1743f2e9d2d306266206462bf22a17b Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Wed, 16 Dec 2015 01:07:07 +0000 Subject: [PATCH] Make erasure pattern exponents work, the intended way. :-) git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@6280 ab8295b8-cf94-4d9e-aec4-7959e3be5d79 --- lib/decoder.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/decoder.f90 b/lib/decoder.f90 index 69b7cb983..e76529138 100644 --- a/lib/decoder.f90 +++ b/lib/decoder.f90 @@ -19,8 +19,8 @@ subroutine decoder(ss,id2,nfsample) !$omp threadprivate(/tracer_priv/) save - if(mod(n,2).eq.0) ntrials=10**(nranera/2.0) - if(mod(n,2).eq.1) ntrials=3*10**(nranera/2.0) + if(mod(nranera,2).eq.0) ntrials=10**(nranera/2) + if(mod(nranera,2).eq.1) ntrials=3*10**(nranera/2) if(nranera.eq.0) ntrials=0 rms=sqrt(dot_product(float(id2(300000:310000)), &