diff options
Diffstat (limited to 'src/matrixOperations/jmat/djmata.c')
| -rw-r--r-- | src/matrixOperations/jmat/djmata.c | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/src/matrixOperations/jmat/djmata.c b/src/matrixOperations/jmat/djmata.c deleted file mode 100644 index 6ccff61d..00000000 --- a/src/matrixOperations/jmat/djmata.c +++ /dev/null @@ -1,22 +0,0 @@ -#include <jmat.h> - -void djmata(double n, double m, double *out){ - int i,nn,mm,j; - mm=(int) m; - nn=(int) n; - - - for (i=0;i<n;i++){/*We work by blocs*/ - for(j=0;j<m;j++){/*then by column*/ - /* - * i*mm*nn : advance to the good column - * mm*(nn-(i+1)) : take the first element of the column to be 1, when j=0 - * j*(mm*nn+1) : advance to the next which must be 1 - * */ - out[i*mm*mm*nn+(mm*(nn-(i+1))+j*(mm*nn+1))]=1; - } - } - -} - - |