Merge pull request #213 from rjleveque/qad_mwaves

waves and s declared with wrong dimensions in qad
clawpack · Jun 6, 2016 · 294c5ef · 294c5ef
2 parents 228ac9c + e98486b
commit 294c5ef
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/2d/shallow/qad.f b/src/2d/shallow/qad.f
@@ -40,7 +40,7 @@ subroutine qad(valbig,mitot,mjtot,nvar,
 
        parameter (max1dp1 = max1d+1)
        dimension ql(nvar,max1dp1),    qr(nvar,max1dp1)
-       dimension wave(nvar,max1dp1,maxvar), s(max1dp1,nvar)
+       dimension wave(nvar,mwaves,max1dp1), s(mwaves,max1dp1)
        dimension amdq(nvar,max1dp1),  apdq(nvar,max1dp1)
        dimension auxl(maxaux*max1dp1),  auxr(maxaux*max1dp1)
 c