Fixed valgrind error causing apple M1 build error (#5)

Author: waternumbers

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: FKF
 Title: Fast Kalman Filter
-Version: 0.2.1
+Version: 0.2.2
 Authors@R: c(person(given = "David", family="Luethi", role=c("aut")),
 	    person(given = "Philipp", family="Erb", role=c("aut")),
 	    person(given = "Simon", family="Otziger", role=c("aut")),

NEWS.md

@@ -1,3 +1,8 @@
+# FKF v0.2.2
+
+- Fix memory leak in fks identified by CRAN valgrind tests
+- Fix building on MAC arm64 (M1) platform
+
 # FKF v0.2.1
 
 2021-09-28 Paul Smith

src/fkflib.c

@@ -1176,7 +1176,8 @@ void cfks(/* inputs */
 		    &dblone, &at[m*i], &m FCONE FCONE);
 
     /* tmpmxm = Pt[,,i] %*% tmpN */
-    F77_NAME(dgemm)(dont_transpose, dont_transpose, &m, &m, &m, &dblone,
+    F77_NAME(dgemm)(dont_transpose, dont_transpose, &m,
+		    &m, &m, &dblone,
 		    &Pt[m_x_m * i], &m, N, &m,
 		    &dblzero, tmpmxm, &m FCONE FCONE);
 
@@ -1308,8 +1309,8 @@ void cfks(/* inputs */
 			    &dblone, L, &m, tmpr, &m, &dblzero, r, &m FCONE FCONE);
 
 	    /* r = tmpmxd %*% v[,n] + r*/
-	    F77_NAME(dgemm)(dont_transpose, dont_transpose, &m, &intone, &d,
-			    &dblone, tmpmxd, &m, vt_temp, &d, &dblone, r, &m FCONE FCONE);
+	    F77_NAME(dgemm)(dont_transpose, dont_transpose, &m, &intone, &d_reduced,
+			    &dblone, tmpmxd, &m, vt_temp, &d_reduced, &dblone, r, &m FCONE FCONE);
 
 
 	    /*----------------*/