diff --git a/CREDITS b/CREDITS
index 938d76346..9db863714 100644
--- a/CREDITS
+++ b/CREDITS
@@ -51,6 +51,7 @@ but many others have contributed code and feedback, including
   Ye Luo                   @ye-luo             (Argonne National Laboratory)
   Ricardo Magana           @magania            (Hewlett Packard Enterprise)
   Bryan Marker             @bamarker           (The University of Texas at Austin)
+  Simon Lukas Märtens      @ACSimon33          (RWTH Aachen University)
   Devin Matthews           @devinamatthews     (The University of Texas at Austin)
   Stefanos Mavros          @smavros
   Nisanth Padinharepatt                        (AMD)
@@ -60,7 +61,7 @@ but many others have contributed code and feedback, including
   Ilya Polkovnichenko
   Jack Poulson             @poulson            (Stanford)
   Mathieu Poumeyrol        @kali
-  Christos Psarras         @ChrisPsa           (RWTH-Aachen)
+  Christos Psarras         @ChrisPsa           (RWTH Aachen University)
                            @qnerd
   Michael Rader            @mrader1248
   Pradeep Rao              @pradeeptrgit       (AMD)
@@ -74,7 +75,7 @@ but many others have contributed code and feedback, including
   Nathaniel Smith          @njsmith
   Shaden Smith             @ShadenSmith
   Tyler Smith              @tlrmchlsmth        (The University of Texas at Austin)
-  Paul Springer            @springer13         (RWTH-Aachen)
+  Paul Springer            @springer13         (RWTH Aachen University)
   Adam J. Stewart          @adamjstewart       (University of Illinois at Urbana-Champaign)
   Vladimir Sukarev
   Santanu Thangaraj                            (AMD)
diff --git a/frame/compat/bla_dot.c b/frame/compat/bla_dot.c
index eaf2022af..cfdff957d 100644
--- a/frame/compat/bla_dot.c
+++ b/frame/compat/bla_dot.c
@@ -264,10 +264,16 @@ float PASTEF77(sd,sdot)
        const float*   y, const f77_int* incy
      )
 {
-	float r = ( float )PASTEF77(d,sdot)( n,
-	                                     x, incx,
-	                                     y, incy );
-	return r + *sb;
+	return ( float )
+	       (
+	         ( double )(*sb) +
+	         PASTEF77(d,sdot)
+	         (
+	           n,
+	           x, incx,
+	           y, incy
+	         )
+	       );
 }
 
 // Input vectors stored in single precision, computed in double precision,
diff --git a/frame/compat/cblas/f77_sub/f77_dot_sub.c b/frame/compat/cblas/f77_sub/f77_dot_sub.c
index 6c06133f1..8667791fb 100644
--- a/frame/compat/cblas/f77_sub/f77_dot_sub.c
+++ b/frame/compat/cblas/f77_sub/f77_dot_sub.c
@@ -75,7 +75,7 @@ void PASTEF772(sds,dot,sub)
              float*   rval
      )
 {
-	*rval = *sb + PASTEF77(sds,dot)
+	*rval = PASTEF77(sds,dot)
 	(
 	  n,
 	  sb,