[Getfem-commits] [getfem-commits] branch master updated: fix inconsistent call

[Yves Renard]

This is an automated email from the git hooks/post-receive script.

renard pushed a commit to branch master
in repository getfem.

The following commit(s) were added to refs/heads/master by this push:
     new f5b3893  fix inconsistent call
f5b3893 is described below

commit f5b38938b6d4dffd9b2eb02aa6498276ab624e2b
Author: Yves Renard <address@hidden>
AuthorDate: Fri Apr 17 13:52:49 2020 +0200

    fix inconsistent call
---
 interface/src/scilab/src/c/extras.c | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/interface/src/scilab/src/c/extras.c 
b/interface/src/scilab/src/c/extras.c
index bce4e2c..ca6d4ec 100644
--- a/interface/src/scilab/src/c/extras.c
+++ b/interface/src/scilab/src/c/extras.c
@@ -474,13 +474,14 @@ int       Aj0, Bj0, Cj0;
 {
     register int       i, j, k;
 
-    /****************************************
     for ( i = 0; i < m; i++ )
-       for ( j = 0; j < n; j++ )
-           C[i][Cj0+j] += alpha*Mdot(p,&(A[i][Aj0]),&(B[j][Bj0]));
-    ****************************************/
-    for ( i = 0; i < m; i++ )
-       Mmv(n,p,alpha,&(A[i][Aj0]),B,Bj0,&(C[i][Cj0]));
+      for ( j = 0; j < n; j++ )
+        C[i][Cj0+j] += alpha*Mdot(p,&(A[i][Aj0]),&(B[j][Bj0]));
+
+    /*
+      for ( i = 0; i < m; i++ )
+        Mmv(n,p,alpha,&(A[i][Aj0]),B,Bj0,&(C[i][Cj0]));
+    */
 }
 
 /* Mmtrmtr -- C <- C + alpha.A^T.B^T */