We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 31b5076 commit 0eaf38bCopy full SHA for 0eaf38b
EXAMPLES/BAND/cnbdr2.f
@@ -206,6 +206,7 @@ program cnbdr2
206
idiag = kl+ku+1
207
do 30 j = 1, n
208
a(idiag,j) = (4.0E+0, 0.0E+0) / h2
209
+ m(idiag,j) = (1.0E+0, 0.0E+0)
210
30 continue
211
c
212
c %-------------------------------------%
EXAMPLES/BAND/znbdr2.f
@@ -206,6 +206,7 @@ program znbdr2
a(idiag,j) = (4.0D+0, 0.0D+0) / h2
+ m(idiag,j) = (1.0D+0, 0.0D+0)
0 commit comments