source: issm/oecreview/Archive/10977-11024/ISSM-11020-11021.diff

Last change on this file was 11025, checked in by Eric.Larour, 13 years ago

Oecreview 10977 11024
File size: 597 bytes
RevLine 
[11025]1Index: /proj/ice/larour/issm-uci/trunk-jpl/src/m/model/petscversion.m
2===================================================================
3--- /proj/ice/larour/issm-uci/trunk-jpl/src/m/model/petscversion.m (revision 11020)
4+++ /proj/ice/larour/issm-uci/trunk-jpl/src/m/model/petscversion.m (revision 11021)
5@@ -12,7 +12,9 @@
6
7 %go through the file, and recover the line we want
8 fid=fopen(configfile,'r');
9-while(1),
10+if(fid==-1), error(['could not open file: ' configfile]); end
11+
12+while(true),
13 tline=fgets(fid);
14 if ~ischar(tline), break, end
15 if strncmp(tline,'#define _PETSC_MAJOR_',21),
Note: See TracBrowser for help on using the repository browser.