/[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 616 by elspeth, Wed Mar 22 02:46:56 2006 UTC revision 1044 by gross, Mon Mar 19 07:29:31 2007 UTC
# Line 31  void Finley_Mesh_write(Finley_Mesh *in,c Line 31  void Finley_Mesh_write(Finley_Mesh *in,c
31    char error_msg[LenErrorMsg_MAX];    char error_msg[LenErrorMsg_MAX];
32    FILE *f;    FILE *f;
33    int NN,i,j,numDim;    int NN,i,j,numDim;
34      Finley_TagMap* tag_map=in->TagMap;
35    
36    /* open file */    /* open file */
37    f=fopen(fname,"w");    f=fopen(fname,"w");
# Line 107  void Finley_Mesh_write(Finley_Mesh *in,c Line 108  void Finley_Mesh_write(Finley_Mesh *in,c
108    } else {    } else {
109      fprintf(f,"Point1 0\n");      fprintf(f,"Point1 0\n");
110    }    }
111      
112      /*  write tags:*/
113      if (tag_map) {
114         fprintf(f,"Tags\n");
115         while (tag_map) {
116            fprintf(f,"%s %d\n",tag_map->name,tag_map->tag_key);
117            tag_map=tag_map->next;
118         }
119      }
120    fclose(f);    fclose(f);
121    #ifdef Finley_TRACE    #ifdef Finley_TRACE
122    printf("mesh %s has been written to file %s\n",in->Name,fname);    printf("mesh %s has been written to file %s\n",in->Name,fname);
Legend:
Removed from v.616  
changed lines
  Added in v.1044
  ViewVC Help
Powered by ViewVC 1.1.26