/[escript]/trunk/finley/src/Mesh_write.c
ViewVC logotype

Diff of /trunk/finley/src/Mesh_write.c

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

revision 82 by jgs, Tue Oct 26 06:53:54 2004 UTC revision 150 by jgs, Thu Sep 15 03:44:45 2005 UTC
# Line 1  Line 1 
1    /*
2     ******************************************************************************
3     *                                                                            *
4     *       COPYRIGHT  ACcESS 2003,2004,2005 -  All Rights Reserved              *
5     *                                                                            *
6     * This software is the property of ACcESS. No part of this code              *
7     * may be copied in any form or by any means without the expressed written    *
8     * consent of ACcESS.  Copying, use or modification of this software          *
9     * by any unauthorised person is illegal unless that person has a software    *
10     * license agreement with ACcESS.                                             *
11     *                                                                            *
12     ******************************************************************************
13    */
14    
15  /**************************************************************/  /**************************************************************/
16    
17  /*   Finley: write Mesh */  /*   Finley: write Mesh */
18    
19  /**************************************************************/  /**************************************************************/
20    
 /*   Copyrights by ACcESS Australia 2003 */  
21  /*   Author: gross@access.edu.au */  /*   Author: gross@access.edu.au */
22  /*   Version: $Id$ */  /*   Version: $Id$ */
23    
24  /**************************************************************/  /**************************************************************/
25    
 #include "Common.h"  
 #include "Finley.h"  
26  #include "Mesh.h"  #include "Mesh.h"
27    
28  /**************************************************************/  /**************************************************************/
# Line 19  Line 30 
30  /*  writes the mesh to the external file fname unsing the Finley file format: */  /*  writes the mesh to the external file fname unsing the Finley file format: */
31    
32  void Finley_Mesh_write(Finley_Mesh *in,char* fname) {  void Finley_Mesh_write(Finley_Mesh *in,char* fname) {
33      char error_msg[LenErrorMsg_MAX];
34    FILE *f;    FILE *f;
35    int NN,i,j,numDim;    int NN,i,j,numDim;
36    
37    /* open file */    /* open file */
38    f=fopen(fname,"w");    f=fopen(fname,"w");
39    if (f==NULL) {    if (f==NULL) {
40      Finley_ErrorCode=IO_ERROR;      sprintf(error_msg,"__FILE__: Opening file %s for writing failed.",fname);
41      sprintf(Finley_ErrorMsg,"Opening file %s for writing failed.",fname);      Finley_setError(IO_ERROR,error_msg);
42      return;      return;
43    }    }
44    
# Line 106  void Finley_Mesh_write(Finley_Mesh *in,c Line 118  void Finley_Mesh_write(Finley_Mesh *in,c
118    
119  /*  /*
120  * $Log$  * $Log$
121  * Revision 1.1  2004/10/26 06:53:57  jgs  * Revision 1.2  2005/09/15 03:44:23  jgs
122  * Initial revision  * Merge of development branch dev-02 back to main trunk on 2005-09-15
123    *
124    * Revision 1.1.1.1.6.1  2005/09/07 06:26:20  gross
125    * the solver from finley are put into the standalone package paso now
126    *
127    * Revision 1.1.1.1  2004/10/26 06:53:57  jgs
128    * initial import of project esys2
129  *  *
130  * Revision 1.1.1.1  2004/06/24 04:00:40  johng  * Revision 1.1.1.1  2004/06/24 04:00:40  johng
131  * Initial version of eys using boost-python.  * Initial version of eys using boost-python.
Legend:
Removed from v.82  
changed lines
  Added in v.150
  ViewVC Help
Powered by ViewVC 1.1.26