X-Git-Url: https://git.auder.net/?p=valse.git;a=blobdiff_plain;f=src%2Fsources%2FEMGrank.c;h=3a9bf94b23a05c443d7cb6f32dd835d19667274f;hp=2422fc0ba6fafb6b322615fbf5d621ab919865a1;hb=c3bc47052f3ccb659659c59a82e9a99ea842398d;hpb=e39bc178cf5de02489ea2dce3869ba6323e18492

diff --git a/src/sources/EMGrank.c b/src/sources/EMGrank.c
index 2422fc0..3a9bf94 100644
--- a/src/sources/EMGrank.c
+++ b/src/sources/EMGrank.c
@@ -132,7 +132,7 @@ void EMGrank_core(
 				{
 					Real dotProduct = 0.0;
 					for (int u=0; u<cardClustR; u++)
-						dotProduct += Xr[mi(u,j,n,p)] * Yr[mi(u,j,n,m)];
+						dotProduct += Xr[mi(u,j,n,p)] * Yr[mi(u,jj,n,m)];
 					tXrYr[mi(j,jj,p,m)] = dotProduct;
 				}
 			}
@@ -281,7 +281,7 @@ void EMGrank_core(
 			for (int jj=0; jj<p; jj++)
 			{
 				for (int r=0; r<k; r++)
-					Phi[ai(j,jj,r,p,m,k)] = phi[ai(j,jj,r,p,m,k)];
+					Phi[ai(jj,j,r,p,m,k)] = phi[ai(jj,j,r,p,m,k)];
 			}
 		}
 		ite++;