/[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 1027 by dhawcroft, Thu Mar 23 05:37:00 2006 UTC revision 1028 by gross, Wed Mar 14 00:15:24 2007 UTC
# Line 30  void Paso_SystemMatrix_saveMM(Paso_Syste Line 30  void Paso_SystemMatrix_saveMM(Paso_Syste
30    
31    int iRow, iCol, iPtr,ir,ic;    int iRow, iCol, iPtr,ir,ic;
32    index_t index_offset=(A_p->type & MATRIX_FORMAT_OFFSET1 ? 1:0);    index_t index_offset=(A_p->type & MATRIX_FORMAT_OFFSET1 ? 1:0);
33      FILE * fileHandle_p = NULL;
34      MM_typecode matrixCode;
35    
36    if (A_p->type & MATRIX_FORMAT_SYM) {    if (A_p->type & MATRIX_FORMAT_SYM) {
37      Paso_setError(TYPE_ERROR,"Paso_SystemMatrix_saveMM does not support symmetric storage scheme");      Paso_setError(TYPE_ERROR,"Paso_SystemMatrix_saveMM does not support symmetric storage scheme");
38      return;      return;
39    }    }
40    /* open the file */    /* open the file */
41    FILE * fileHandle_p = fopen(fileName_p, "w");    fileHandle_p = fopen(fileName_p, "w");
42    if (fileHandle_p==NULL) {    if (fileHandle_p==NULL) {
43      Paso_setError(IO_ERROR,"file could not be opened for writing");      Paso_setError(IO_ERROR,"file could not be opened for writing");
44      return;      return;
45    }    }
46    
47    /* set the matrix code */    /* set the matrix code */
   MM_typecode matrixCode;  
48    mm_initialize_typecode(&matrixCode);    mm_initialize_typecode(&matrixCode);
49    mm_set_matrix(&matrixCode);    mm_set_matrix(&matrixCode);
50    mm_set_coordinate(&matrixCode);    mm_set_coordinate(&matrixCode);

Legend:
Removed from v.1027  
changed lines
  Added in v.1028

  ViewVC Help
Powered by ViewVC 1.1.26