diff options
| author | Abhinav Dronamraju | 2017-09-29 22:00:40 +0530 |
|---|---|---|
| committer | Abhinav Dronamraju | 2017-09-29 22:00:40 +0530 |
| commit | 9bc7ad78e8d7d7acc4b9387aa592542832e80b31 (patch) | |
| tree | 7fce060665a91de5e5adb12d02003351c3d1fdfc /src/c/Files/mput/dmputa.c | |
| parent | 33755eb085a3ca8154cf83773b23fbb8aac4ba3e (diff) | |
| parent | ac0045f12ad3d0938758e9742f4107a334e1afaa (diff) | |
| download | scilab2c-9bc7ad78e8d7d7acc4b9387aa592542832e80b31.tar.gz scilab2c-9bc7ad78e8d7d7acc4b9387aa592542832e80b31.tar.bz2 scilab2c-9bc7ad78e8d7d7acc4b9387aa592542832e80b31.zip | |
NEW FEATURES AND NEW FUNCTIONS
Diffstat (limited to 'src/c/Files/mput/dmputa.c')
| -rw-r--r-- | src/c/Files/mput/dmputa.c | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/src/c/Files/mput/dmputa.c b/src/c/Files/mput/dmputa.c new file mode 100644 index 00000000..9cb6482b --- /dev/null +++ b/src/c/Files/mput/dmputa.c @@ -0,0 +1,33 @@ +/* Copyright (C) 2016 - IIT Bombay - FOSSEE + + This file must be used under the terms of the CeCILL. + This source file is licensed as described in the file COPYING, which + you should have received as part of this distribution. The terms + are also available at + http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt + Author: Siddhesh Wani + Organization: FOSSEE, IIT Bombay + Email: toolbox@scilab.in +*/ + +/*Function ot write 'double' array/matrix in given file */ + +#include "files.h" + +int dmputa (FILE *fptr, double *data, int row, int col) +{ + int res = 0, row_ctr, col_ctr; + + if(fptr != NULL) + { + for(row_ctr = 0; row_ctr < row; row_ctr++) + { + for(col_ctr = 0; col_ctr < col; col_ctr++) + { + res += fprintf(fptr, "%f ", data[row*col_ctr+row_ctr]); + } + fprintf(fptr, "\n"); + } + } + return res; +}
\ No newline at end of file |