Changeset 9827

Timestamp:

09/16/11 16:42:39 (14 years ago)

Author:

seroussi

Message:

minor petsc major

File:

• issm/trunk/src/m/model/petscversion.m (modified) (1 diff)

issm/trunk/src/m/model/petscversion.m ¶

@@ -16 +16 @@
         tline=fgets(fid);
         if ~ischar(tline), break, end
-        if length(tline)>=25,
-                if  strcmpi(tline(1:23),'#define _PETSC_VERSION_'),
-                        PETSC_VERSION=str2num(tline(25));
-                end
+        if  strncmp(tline,'#define _PETSC_MAJOR_',21),
+                PETSC_VERSION=str2num(tline(23));
         end
 end