Fixed ajj not being real(kind(1.d0)).

2026-10-16 19:02:09 +00:00 · 2005-10-10 14:05:35 +00:00
parent d2afa63600
commit aedef1ef01
1 changed files with 1 additions and 1 deletions
@@ -120,7 +120,7 @@ c
     *  ib(*), jb(*), diagb,
     *  ic(*), jc(*), diagc 
 c
-      real(kind(1.d0))          a(*), b(*), c(*), temp(*)
+      real(kind(1.d0))          a(*), b(*), c(*), temp(*),ajj
 c
 c       numeric matrix multiply c=a*b
 c