Changeset 25284

Timestamp:

07/15/20 20:20:55 (5 years ago)

Author:

Eric.Larour

Message:

CHG: acceleration of loadresultfromdisk if you know the positin already.

File:

• issm/trunk-jpl/src/m/solve/loadresultfromdisk.m (modified) (2 diffs)

issm/trunk-jpl/src/m/solve/loadresultfromdisk.m

@@ -1 @@
-function variable=loadresultfromdisk(filename,step,name)
+function [variable fpos]=loadresultfromdisk(filename,step,name,varargin)
 %LOADRESULTFROMDISK - load specific result of solution sequence from disk file "filename"            
 %
@@ -11 +11 @@
         end
 
+        if nargin==4,
+                fpos=varargin{1};
+                fseek(fid,fpos,'bof');
+        end
+
         %Put the pointer on the right position in the file:
         while 1,
 
                 %read field
+                fpos=ftell(fid);
                 [length,count]=fread(fid,1,'int');