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