Changeset 25538

Timestamp:

09/05/20 23:08:54 (5 years ago)

Author:

Eric.Larour

Message:

CHG: fixed leak.

File:

• issm/branches/trunk-larour-SLPS2020/src/c/main/issm_post.cpp (modified) (5 diffs)

issm/branches/trunk-larour-SLPS2020/src/c/main/issm_post.cpp

@@ -234 +234 @@
                 for (int f=0;f<nfields;f++){
                         char* field=fields[f];
+                        fseek(fid,0,SEEK_SET);
                         for (int j=0;j<nsteps;j++){
                                 int counter=f*nsteps+j;
@@ -548 +549 @@
                 /*start reading data from the buffer directly:*/
                 for (int f=0;f<nfields;f++){
+                        fseek(fid,0,SEEK_SET);
                         char* field=fields[f];
                         for (int j=0;j<nsteps;j++){
@@ -597 +599 @@
                                 x=xs[counter]; 
                                 allx=xNew<IssmDouble>(nsamples);
-                                MPI_Gather(x, range, ISSM_MPI_PDOUBLE,allx, 1, ISSM_MPI_PDOUBLE, 0, IssmComm::GetComm());
+                                MPI_Gather(x, range, ISSM_MPI_PDOUBLE,allx, range, ISSM_MPI_PDOUBLE, 0, IssmComm::GetComm());
                                 /*add to results:*/
                                 if(my_rank==0){
@@ -756 +758 @@
 
                 /*Deal with average in time: */
-                fseek(fid,0,SEEK_SET);
                 for (int f=0;f<nfields;f++){
+                        fseek(fid,0,SEEK_SET);
                         char* field=fields[f];
                         meanxtype[f]=readdata(&doublemat, &doublematsize, &scalar, fid,field,steps[0]);
@@ -1001 +1003 @@
 
                 /*Deal with average in time: */
-                fseek(fid,0,SEEK_SET);
                 for (int f=0;f<nfields;f++){
+                        fseek(fid,0,SEEK_SET);
                         char* field=fields[f];
                         meanxtype[f]=readdata(&doublemat, &doublematsize, &scalar, fid,field,steps[0]);