From f281d082bf2900a7cbbfd8912bb262f5bc1202a3 Mon Sep 17 00:00:00 2001
From: Steven Franke <s.j.franke@icloud.com>
Date: Wed, 16 Dec 2015 00:49:47 +0000
Subject: [PATCH] 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
---
 lib/decoder.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/decoder.f90 b/lib/decoder.f90
index 2dce5af73..69b7cb983 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)
-  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)),                            &