← Back to branch summary

~vcs-imports/escript-finley/trunk

« back to all changes in this revision

Viewing changes to paso/src/SystemMatrix_saveHB.c

  • Committer: jfenwick
  • Date: 2010-10-11 01:48:14 UTC
  • Revision ID: svn-v4:77569008-7704-0410-b7a0-a92fef0b09fd:trunk:3259
Merging dudley and scons updates from branches

Show diffs side-by-side

added added

removed removed

Lines of Context:
paso/src/SystemMatrix_saveHB.c
29
29
void Paso_SystemMatrix_saveHB( Paso_SystemMatrix *A_p, char *filename_p ) {
30
30
        FILE *fileHandle_p = NULL;
31
31
        if (A_p->mpi_info->size > 1) {
32
 
            Paso_setError(TYPE_ERROR,"Paso_SystemMatrix_saveHB: currently single processor runs are supported.\n");
 
32
            Esys_setError(TYPE_ERROR,"Paso_SystemMatrix_saveHB: currently single processor runs are supported.\n");
33
33
            return;
34
34
        }
35
35
        fileHandle_p = fopen( filename_p, "w" );
36
36
        if( fileHandle_p == NULL ) {
37
 
                Paso_setError(IO_ERROR,"File could not be opened for writing.");
 
37
                Esys_setError(IO_ERROR,"File could not be opened for writing.");
38
38
                return;
39
39
        }
40
40
 
41
41
        if ( A_p->type & MATRIX_FORMAT_CSC) {
42
42
             Paso_SparseMatrix_saveHB_CSC( A_p->mainBlock,fileHandle_p);
43
43
        } else {
44
 
              Paso_setError(TYPE_ERROR,"Paso_SystemMatrix_saveHB: only CSC is currently supported.\n");
 
44
              Esys_setError(TYPE_ERROR,"Paso_SystemMatrix_saveHB: only CSC is currently supported.\n");
45
45
        }
46
46
 
47
47
        /* close the file */