Commit 7de1e133 authored by rtoy's avatar rtoy
Browse files

Oops. NEQ is an array, not a scalar.

parent 32b9ff90
......@@ -44,7 +44,7 @@ C Band matrix case -----------------------------------------------------
C
100 CONTINUE
NROWPW = 2*ML + MU + 1
LENPW = NEQ * NROWPW
LENPW = NEQ(1) * NROWPW
DO 110 I = 1, LENPW
110 PW(I) = 0.0D0
C
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment