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

Annotation of /trunk/paso/src/SystemMatrix_saveHB.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1312 - (hide annotations)
Mon Sep 24 06:18:44 2007 UTC (12 years, 4 months ago) by ksteube
File MIME type: text/plain
File size: 1605 byte(s)
The MPI branch is hereby closed. All future work should be in trunk.

Previously in revision 1295 I merged the latest changes to trunk into trunk-mpi-branch.
In this revision I copied all files from trunk-mpi-branch over the corresponding
trunk files. I did not use 'svn merge', it was a copy.

1 ksteube 1312
2 jgs 150 /* $Id$ */
3    
4 ksteube 1312 /*******************************************************
5     *
6     * Copyright 2003-2007 by ACceSS MNRF
7     * Copyright 2007 by University of Queensland
8     *
9     * http://esscc.uq.edu.au
10     * Primary Business: Queensland, Australia
11     * Licensed under the Open Software License version 3.0
12     * http://www.opensource.org/licenses/osl-3.0.php
13     *
14     *******************************************************/
15 dhawcroft 631
16 jgs 150 /**************************************************************/
17    
18     /* Paso: SystemMatrix is saved to Harwell-Boeing format */
19    
20     /**************************************************************/
21    
22     /* Copyright: ACcESS Australia 2005 */
23     /* Author: imran@esscc.uq.edu.au */
24    
25     /**************************************************************/
26    
27     #include "Paso.h"
28     #include "SystemMatrix.h"
29    
30 ksteube 1312 void Paso_SystemMatrix_saveHB( Paso_SystemMatrix *A_p, char *filename_p ) {
31     FILE *fileHandle_p = NULL;
32     if (A_p->mpi_info->size > 1) {
33     Paso_setError(TYPE_ERROR,"Paso_SystemMatrix_saveHB: currently single processor runs are supported.\n");
34     return;
35     }
36     fileHandle_p = fopen( filename_p, "w" );
37     if( fileHandle_p == NULL ) {
38 jgs 150 Paso_setError(IO_ERROR,"File could not be opened for writing.");
39     return;
40     }
41    
42 gross 415 if ( A_p->type & MATRIX_FORMAT_CSC) {
43 ksteube 1312 Paso_SparseMatrix_saveHB_CSC( A_p->mainBlock,fileHandle_p);
44 gross 415 } else {
45 ksteube 1312 Paso_setError(TYPE_ERROR,"Paso_SystemMatrix_saveHB: only CSC is currently supported.\n");
46 jgs 150 }
47    
48     /* close the file */
49     fclose( fileHandle_p );
50    
51     return;
52     }

Properties

Name Value
svn:eol-style native
svn:keywords Author Date Id Revision

  ViewVC Help
Powered by ViewVC 1.1.26