Changeset 9827


Ignore:
Timestamp:
09/16/11 16:42:39 (14 years ago)
Author:
seroussi
Message:

minor petsc major

File:
1 edited

Legend:

Unmodified
Added
Removed
  • TabularUnified issm/trunk/src/m/model/petscversion.m ΒΆ

    r6860 r9827  
    1616        tline=fgets(fid);
    1717        if ~ischar(tline), break, end
    18         if length(tline)>=25,
    19                 if  strcmpi(tline(1:23),'#define _PETSC_VERSION_'),
    20                         PETSC_VERSION=str2num(tline(25));
    21                 end
     18        if  strncmp(tline,'#define _PETSC_MAJOR_',21),
     19                PETSC_VERSION=str2num(tline(23));
    2220        end
    2321end
Note: See TracChangeset for help on using the changeset viewer.