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

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

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

revision 2143 by jfenwick, Thu Nov 6 05:27:33 2008 UTC revision 2144 by artak, Wed Dec 10 00:31:03 2008 UTC
# Line 174  Paso_SystemMatrix* Paso_SystemMatrix_loa Line 174  Paso_SystemMatrix* Paso_SystemMatrix_loa
174      for( i=0; i<nz; i++ )      for( i=0; i<nz; i++ )
175      {      {
176          scan_ret = fscanf( fileHandle_p, "%d %d %le\n", &row_ind[i], &col_ind[i], &val[i] );          scan_ret = fscanf( fileHandle_p, "%d %d %le\n", &row_ind[i], &col_ind[i], &val[i] );
177          FSCANF_CHECK(scan_ret, "fscanf: read elements 1")          if (scan_ret!=3)
178            {
179                MEMFREE( val );
180                MEMFREE( row_ind );
181                MEMFREE( col_ind );
182                MEMFREE( row_ptr );
183                Paso_MPIInfo_free(mpi_info);
184                fclose(fileHandle_p);
185                return NULL;
186            }
187          row_ind[i]--;          row_ind[i]--;
188          col_ind[i]--;          col_ind[i]--;
189      }      }
# Line 220  Paso_SystemMatrix* Paso_SystemMatrix_loa Line 229  Paso_SystemMatrix* Paso_SystemMatrix_loa
229      Paso_SharedComponents_free(send);      Paso_SharedComponents_free(send);
230          Paso_MPIInfo_free(mpi_info);          Paso_MPIInfo_free(mpi_info);
231      MEMFREE( val );      MEMFREE( val );
232      MEMFREE( row_ind );      MEMFREE( col_ind );
   
233      return out;      return out;
234  }  }
235    
# Line 295  Paso_SystemMatrix* Paso_SystemMatrix_loa Line 303  Paso_SystemMatrix* Paso_SystemMatrix_loa
303      for( i=0; i<nz; i++ )      for( i=0; i<nz; i++ )
304      {      {
305          scan_ret = fscanf( fileHandle_p, "%d %d %le\n", &row_ind[i], &col_ind[i], &val[i] );          scan_ret = fscanf( fileHandle_p, "%d %d %le\n", &row_ind[i], &col_ind[i], &val[i] );
306          FSCANF_CHECK(scan_ret, "fscanf: read elements 2")          if (scan_ret!=3)
307            {
308                MEMFREE( val );
309                MEMFREE( row_ind );
310                MEMFREE( col_ind );
311                MEMFREE( col_ptr );
312                Paso_MPIInfo_free(mpi_info);
313                fclose(fileHandle_p);
314                return NULL;
315            }
316          row_ind[i]--;          row_ind[i]--;
317          col_ind[i]--;          col_ind[i]--;
318      }      }
# Line 339  Paso_SystemMatrix* Paso_SystemMatrix_loa Line 356  Paso_SystemMatrix* Paso_SystemMatrix_loa
356      Paso_SharedComponents_free(send);      Paso_SharedComponents_free(send);
357          Paso_MPIInfo_free(mpi_info);          Paso_MPIInfo_free(mpi_info);
358      MEMFREE( val );      MEMFREE( val );
359      MEMFREE( col_ind );      MEMFREE( row_ind );
360      return out;      return out;
361  }  }

Legend:
Removed from v.2143  
changed lines
  Added in v.2144

  ViewVC Help
Powered by ViewVC 1.1.26