From aedef1ef01e1adc6dcf70ffe17f6dc7ccceb3b37 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Mon, 10 Oct 2005 14:05:35 +0000
Subject: [PATCH] Fixed ajj not being real(kind(1.d0)).

---
 src/serial/f77/smmp.f | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/serial/f77/smmp.f b/src/serial/f77/smmp.f
index 3be67e4c..bfc74c72 100644
--- 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