From 0616ca3051e71b2a90c641755ea0e20e20e0f51e Mon Sep 17 00:00:00 2001
From: diener <diener@f69c4107-0314-4c4f-9ad4-17e986b73f4a>
Date: Fri, 18 Apr 2008 21:32:36 +0000
Subject: Fix wrong initialization of imax.

git-svn-id: https://svn.cct.lsu.edu/repos/numrel/LSUThorns/SummationByParts/trunk@103 f69c4107-0314-4c4f-9ad4-17e986b73f4a
---
 src/Coefficients_6_3_min_err_coeff.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Coefficients_6_3_min_err_coeff.F90 b/src/Coefficients_6_3_min_err_coeff.F90
index 30054c9..c0eef1e 100644
--- a/src/Coefficients_6_3_min_err_coeff.F90
+++ b/src/Coefficients_6_3_min_err_coeff.F90
@@ -31,7 +31,7 @@ subroutine set_coeff_6_3_opt ( nsize, loc_order, bb, gsize, imin, imax, dd )
 
   dd = zero
   imin = 0
-  imax = 0
+  imax = -1
 
   if ( bb(1) == 0 ) then
     il = 1 + gsize
-- 
cgit v1.2.3