Changeset 6441
- Timestamp:
- 10/27/10 13:59:06 (14 years ago)
- Location:
- issm/trunk/src/c
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk/src/c/io/pfclose.cpp
r6412 r6441 17 17 /*Close file handle: */ 18 18 extern int my_rank; 19 _assert_(fid); 19 20 if(fclose(fid)!=0)_error_("%s%s","could not close file ",filename); 20 21 } -
issm/trunk/src/c/modules/OutputResultsx/OutputResultsx.cpp
r6396 r6441 88 88 89 89 /*Close output file? :*/ 90 /*WARNING: issm.cpp is taking care of it for now (quick fix) 90 91 if((step==1) && (time==0)){ 91 92 if(io_gather){ … … 94 95 else pfclose(fid,cpu_outputfilename); 95 96 } 97 */ 96 98 #endif 97 99 -
issm/trunk/src/c/solutions/issm.cpp
r6412 r6441 62 62 femmodel=new FemModel(argv[3] /*input*/,argv[5] /*output*/,solution_type,analyses,numanalyses); 63 63 64 /*Open output file once for all*/ 65 output_fid=pfopen(argv[5],"wb"); 66 femmodel->parameters->SetParam(output_fid,OutputFilePointerEnum); 67 64 68 /*add petsc options to parameters: */ 65 69 ParsePetscOptions(femmodel->parameters,petscoptionsfilename); … … 100 104 101 105 /*Close output file and write lock file if requested*/ 106 pfclose(output_fid,argv[5]); 102 107 if (waitonlock>0){ 103 108 _printf_(true,"write lock file:\n");
Note:
See TracChangeset
for help on using the changeset viewer.