diff --git a/lib/qra64a.f90 b/lib/qra64a.f90 index dd678ce3e..1a9728a8f 100644 --- a/lib/qra64a.f90 +++ b/lib/qra64a.f90 @@ -101,8 +101,8 @@ subroutine qra_params(ndepth,maxaptype,idf0max,idt0max,ibwmin,ibwmax) integer iparam(6) logical first,ex -! data iparam/3,5,11,5,0,9/ !Maximum effort - data iparam/3,5,3,3,7,9/ !Default values +! data iparam/3,5,3,11,0,9/ !Maximum effort + data iparam/2,5,3,11,3,9/ !Default values data first/.true./ save first,iparam