X-Git-Url: https://git.auder.net/?a=blobdiff_plain;f=src%2Fsources%2FEMGLLF.c;h=42419acd24ab2a8c3e524e0c5b635298c01629a0;hb=aa8df014ec50b2569f03eb81de720355c77633ea;hp=6966e9c7c15c6c6686a6239b1551cdaed6e3d4a8;hpb=8e92c49c15bdacebf46190e7c8279bd227873928;p=valse.git

diff --git a/src/sources/EMGLLF.c b/src/sources/EMGLLF.c
index 6966e9c..42419ac 100644
--- a/src/sources/EMGLLF.c
+++ b/src/sources/EMGLLF.c
@@ -3,7 +3,7 @@
 #include <gsl/gsl_linalg.h>
 
 // TODO: don't recompute indexes every time......
-void EMGLLF(
+void EMGLLF_core(
 	// IN parameters
 	const double* phiInit, // parametre initial de moyenne renormalisé
 	const double* rhoInit, // parametre initial de variance renormalisé
@@ -281,7 +281,7 @@ void EMGLLF(
 				{
 					YiRhoR[u] = 0.0;
 					for (int v=0; v<m; v++)
-						YiRhoR[u] += Y[imi(i,v,n,m)] * rho[ai(v,u,r,m,m,k)];
+						YiRhoR[u] += Y[mi(i,v,n,m)] * rho[ai(v,u,r,m,m,k)];
 				}
 
 				//compute X(i,:)*phi(:,:,r)