/[ascend]/trunk/base/generic/solver/densemtx.c
ViewVC logotype

Diff of /trunk/base/generic/solver/densemtx.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1128 by johnpye, Sat Jan 13 08:33:43 2007 UTC revision 1129 by johnpye, Sat Jan 13 11:40:59 2007 UTC
# Line 1  Line 1 
1  /*  ASCEND modelling environment  /*  ASCEND modelling environment
2      Copyright 1997, Carnegie Mellon University      Copyright (C) 2007 Carnegie Mellon University
     Copyright (C) 2006 Carnegie Mellon University  
3    
4      This program is free software; you can redistribute it and/or modify      This program is free software; you can redistribute it and/or modify
5      it under the terms of the GNU General Public License as published by      it under the terms of the GNU General Public License as published by
# Line 86  void densematrix_write_mmio(DenseMatrix Line 85  void densematrix_write_mmio(DenseMatrix
85      mm_write_mtx_array_size(fp, matrix.nrows, matrix.ncols);      mm_write_mtx_array_size(fp, matrix.nrows, matrix.ncols);
86    
87      for(j=0;j<matrix.nrows;++j){      for(j=0;j<matrix.nrows;++j){
88          for(i=0;i<matrix.ncols;++j){          for(i=0;i<matrix.ncols;++i){
89              fprintf(fp,"%0.20g\n",DENSEMATRIX_ELEM(matrix,i,j));              fprintf(fp,"%0.20g\n",DENSEMATRIX_ELEM(matrix,i,j));
90          }          }
91      }      }

Legend:
Removed from v.1128  
changed lines
  Added in v.1129

john.pye@anu.edu.au
ViewVC Help
Powered by ViewVC 1.1.22