Skip to content

Commit 0eaf38b

Browse files
wo80fghoussen
authored andcommitted
Fix examples BAND _nbdr2 returning error info = -9
Both examples access the M matrix, so we initialize M to be the identity matrix. See #443 for discussion.
1 parent 31b5076 commit 0eaf38b

File tree

2 files changed

+2
-0
lines changed

2 files changed

+2
-0
lines changed

EXAMPLES/BAND/cnbdr2.f

+1
Original file line numberDiff line numberDiff line change
@@ -206,6 +206,7 @@ program cnbdr2
206206
idiag = kl+ku+1
207207
do 30 j = 1, n
208208
a(idiag,j) = (4.0E+0, 0.0E+0) / h2
209+
m(idiag,j) = (1.0E+0, 0.0E+0)
209210
30 continue
210211
c
211212
c %-------------------------------------%

EXAMPLES/BAND/znbdr2.f

+1
Original file line numberDiff line numberDiff line change
@@ -206,6 +206,7 @@ program znbdr2
206206
idiag = kl+ku+1
207207
do 30 j = 1, n
208208
a(idiag,j) = (4.0D+0, 0.0D+0) / h2
209+
m(idiag,j) = (1.0D+0, 0.0D+0)
209210
30 continue
210211
c
211212
c %-------------------------------------%

0 commit comments

Comments
 (0)