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

  • proj/ice/larour/issm-uci/trunk-jpl/src/m/model/petscversion.m

     
    1212
    1313%go through the file, and recover the line we want
    1414fid=fopen(configfile,'r');
    15 while(1),
     15if(fid==-1), error(['could not open file: ' configfile]); end
     16
     17while(true),
    1618        tline=fgets(fid);
    1719        if ~ischar(tline), break, end
    1820        if  strncmp(tline,'#define _PETSC_MAJOR_',21),
Note: See TracBrowser for help on using the repository browser.