From 1b541082fdd1238917b91571b1841b30f13d5683 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Mon, 2 Nov 2020 16:04:46 -0500
Subject: [PATCH] Optimize the Q65 inner loops.  Also more code cleanup.

---
 lib/qra64a.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/qra64a.f90 b/lib/qra64a.f90
index fb56390e5..d4189827d 100644
--- a/lib/qra64a.f90
+++ b/lib/qra64a.f90
@@ -102,8 +102,8 @@ subroutine qra_params(ndepth,maxaptype,idf0max,idt0max,ibwmin,ibwmax,maxdist)
 
   integer iparam(7)
   logical first,ex
-! data iparam/3,5,3,11,0,9,30/     !Maximum effort
-  data iparam/2,5,3,11,3,9,10/     !Default values
+! data iparam/3,5,11,11,0,11,60/     !Maximum effort
+  data iparam/3,5,7,7,0,4,15/        !Default values
   data first/.true./
   save first,iparam