/[escript]/trunk/paso/src/SystemMatrix_saveMM.c
ViewVC logotype

Diff of /trunk/paso/src/SystemMatrix_saveMM.c

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

revision 2550 by jfenwick, Mon Jul 20 06:20:06 2009 UTC revision 2551 by gross, Thu Jul 23 09:19:15 2009 UTC
# Line 54  void Paso_SystemMatrix_saveMM(Paso_Syste Line 54  void Paso_SystemMatrix_saveMM(Paso_Syste
54      Paso_setError(IO_ERROR,"file could not be opened for writing");      Paso_setError(IO_ERROR,"file could not be opened for writing");
55      return;      return;
56    }    }
   
57    if (A_p->type & MATRIX_FORMAT_CSC) {    if (A_p->type & MATRIX_FORMAT_CSC) {
58      Paso_setError(TYPE_ERROR,"Paso_SystemMatrix_saveMM does not support CSC yet.");      Paso_setError(TYPE_ERROR,"Paso_SystemMatrix_saveMM does not support CSC yet.");
59    } else {    } else {
# Line 63  void Paso_SystemMatrix_saveMM(Paso_Syste Line 62  void Paso_SystemMatrix_saveMM(Paso_Syste
62      mm_set_coordinate(&matcode);      mm_set_coordinate(&matcode);
63      mm_set_real(&matcode);      mm_set_real(&matcode);
64    
65      N= Paso_SystemMatrix_getGlobalNumRows(A_p);      N=Paso_SystemMatrix_getGlobalNumRows(A_p);
66      M=Paso_SystemMatrix_getGlobalNumCols(A_p);      M=Paso_SystemMatrix_getGlobalNumCols(A_p);
67      mm_write_banner(fileHandle_p, matcode);      mm_write_banner(fileHandle_p, matcode);
68      mm_write_mtx_crd_size(fileHandle_p, N*A_p->row_block_size, M*A_p->col_block_size, A_p->mainBlock->pattern->ptr[N]*A_p->block_size);      mm_write_mtx_crd_size(fileHandle_p, N*A_p->row_block_size, M*A_p->col_block_size, A_p->mainBlock->pattern->ptr[N]*A_p->block_size);

Legend:
Removed from v.2550  
changed lines
  Added in v.2551

  ViewVC Help
Powered by ViewVC 1.1.26