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

19 years ago · aedef1ef01
parent d2afa63600
commit aedef1ef01
1 changed files with 1 additions and 1 deletions
--- a/src/serial/f77/smmp.f
+++ b/src/serial/f77/smmp.f
@ -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